填空题
运行程序,当窗体加载事件发生:
Private Sub Form_Load( )
Dim b As Single
Dim t as Integer
t=0
b=20
Do
t=t+1
b=b/2
Loop Until b<0.5
MsgBox b
MsgBox"共循环了"&t&"次"
End Sub
此程序运行结果为______。
1、
【正确答案】
1、共循环了6次
【答案解析】
[解析] b每次变为原来的一半。b为10、5、25、1.25、0.625、0.3125,循环体每执行一次,t增加1,所以b=0.3125,t=6。
提交答案
关闭