UC知道VB for循环
来源：百度知道 编辑：UC知道 时间：2024/06/24 16:46:24
private sub form_click()
dim b,k as integer
b=1
for k= 1 to 4
b= b*k
if b>=15 then
exit for
else
k=k+2
end if
next k
print k
print b
end sub
请求VB大虾们 务必详细为我解答下,在下是不折不扣的VB小白
dim b,k as integer
b=1
for k= 1 to 4
b= b*k
if b>=15 then
exit for
else
k=k+2
end if
next k
print k
print b
end sub
请求VB大虾们 务必详细为我解答下,在下是不折不扣的VB小白
'先给你解释一下代码:
Private Sub form_click()
Dim b, k As Integer '定义变量 b,k,其中 b是变体,k 是整形,最好这样定义:dim b as integer,k as integer
b = 1 'b赋值=1
For k = 1 To 4 '开始for循环
b = b * k 'b=b*k
If b >= 15 Then '如果b值>=15 则,退出循环
Exit For
Else
k = k + 2 '否则 k=k+2
End If
Next k
Print k '输出k
Print b '输出 b
End Sub
'第一次循环时k=1，b=b*k=1*1=1,因为 b>=15 不成立，所以执行 k=k+2=1+2=3 ，然后执行到next k 时，k值要加上step值，则第一次循环结束时k=4
'第二次循环时,k=4,b=1*4=4 ,接着执行k=k+2=4+2=6 ，然后执行 next k ，则 k=6+1=7 ,循环结束
'所以最终结果 ： k=7，b=4