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


For语句可直接中止循环 , 执行next后面的语句 。当增量值为正数时 , For循环的执行过程如下:
(1) 将循环变量赋初值;
(2)比较循环变量是否小于等于终值 , 小于等于时循环条件成立 , 运行一次循环体中的语句;如果循环条件不成立时 , 循环结束 , 执行Next后面的语句;
(3)遇到Next语句 , 循环变量增加增量值 , 转到(2)继续循环;
增量值为负数时 , For循环的执行过程第(2)步不同 。比较循环变量是否大于等于终值 , 大于等于时循环条件成立 , 运行一次循环体中的语句;如果循环条件不成立时 , 循环结束 , 执行Next后面的语句结束 。
5.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
6.vb中的循环语句怎么写循环语句包括For-Next、While-Wend、Do-Loop语句比较常用的是for和whileFor-Next语句:For 变量 = 初值 To 终值 [Step 步长] 循环体NextWhile Wend 语句:While 条件 循环体Wend但满足条件时 , (如当i>5时) , 便退出循环 , 否则执行循环体 。
Do-Loop语句:Do循环体 。[Exit Do]Loop循环体会在Do 与 Loop 之间不停循环 。
Exit Do 语句可有可无 , 是为了设定当满足一定条件后 , 运行Exit Do 语句 , 即退出循环 。for应该是最简单的 , 因为不用自己去控制自增或自减 , 只要设置初始值 , 循环条件 , 和步阶就行了~ 。
7.要求编写一个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
8.vb中的循环语句怎么写循环语句包括For-Next、While-Wend、Do-Loop语句比较常用的是for和whileFor-Next语句:
For 变量 = 初值 To 终值 [Step 步长]
循环体
Next
While Wend 语句:
While 条件
循环体
Wend
但满足条件时 , (如当i>5时) , 便退出循环 , 否则执行循环体 。Do-Loop语句:
Do
循环体
[Exit Do]
Loop
循环体会在Do 与 Loop 之间不停循环 。Exit Do 语句可有可无 , 是为了设定当满足一定条件后 , 运行Exit Do 语句 , 即退出循环 。for应该是最简单的 , 因为不用自己去控制自增或自减 , 只要设置初始值 , 循环条件 , 和步阶就行了~