vb里面for循环语句怎么写( 二 ) _语句

5.要求编写一个VB的FOR循环语句Private Sub Command1_Click()
Dim a(7, 3) As Integer, i As Integer, j As Integer
Dim Sum As Single, Pjf As Single
Dim s As String
For i = 0 To 7
Sum = 0
Pjf = 0
For j = 0 To 3
a(i, j) = Val(InputBox（"请输入第" & j + 1 & "门成绩（-1 退出）"，"学生" & i + 1 & "各科成绩录入"））
If a(i, j) = -1 Then Exit Sub
Sum = Sum + a(i, j)
Next
s = s & "学生" & i + 1 & "总分：" & Sum & "分，平均分：" & Format(Sum / 4, "0.00") & vbNewLine
Next
MsgBox s, vbInformation，"成绩统计结果"
End Sub
6.关于vb for循环语句循环结构是程序中一种很重要的结构。在给定条件成立时，可反复执行某程序段，直到条件不成立为止。给定的条件称为循环条件，反复执行的程序段称为循环体。在VB中提供了多种循环语句供用户使用循环，下面介绍两种常用的形式：For语句和Do语句。
一、For语句
For循环（For……Next）语句的基本格式为：
For 循环变量=初值 To 终值 Step 增量，循环体，Next 变量
循环变量为数值型变量，初值、终值、增量均为数值型表达式。“Step 增量”部分可以省略，缺省时默认为1 。在循环体中使用Exit
For语句可直接中止循环，执行next后面的语句。当增量值为正数时，For循环的执行过程如下：
(1) 将循环变量赋初值；
(2)比较循环变量是否小于等于终值，小于等于时循环条件成立，运行一次循环体中的语句；如果循环条件不成立时，循环结束，执行Next后面的语句；
(3)遇到Next语句，循环变量增加增量值，转到（2）继续循环；
增量值为负数时，For循环的执行过程第（2）步不同。比较循环变量是否大于等于终值，大于等于时循环条件成立，运行一次循环体中的语句；如果循环条件不成立时，循环结束，执行Next后面的语句结束。
7.VB语句中的for循环语句这么运用for i=3 to 10000 '查找质数
for j=2 to i-1
x=i mod j
if i<>0 then
exit for '如果除了1和本身，还能被任意小于本身的一个数整除，那么此数不是指数，并跳出循环，进行下一个数的判断
esle '如果一个数不能被所有小于它的数整除，那么这个数就是质数
pds=1 '质数累加的判断数，等于1时，质数个数累加1
end if
next j
if pds=1 then
y=y+1 '质数个数累加1
end if
next i '指数查找结束
for i 1 to 10000 '打印
print i，'打印数
if i<>10000 then
print space(5) '打印5个空格
else
print
print y 在最末尾打印质数的个数
end if
if i mod =20 then print 一行打印20个数
next i
8.要求编写一个VB的FOR循环语句dim str() as doubleredim str(8) for i as integer =0 to 7str(i)=val(inputbox（"乱写的，自己改了吧！"））nextdim sum as double=0.0for i as integer =0 to 7sum +=str(i)nextdim pinjun as double =sum/8msgbox （"总分数：" & sum & vbcrlf & "平均成绩：" & pinjun）就说到这了，要是你还不会，只能证明你没诚心了。

文章插图