问题 填空题

运行程序,当窗体加载事件发生:
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
此程序运行结果为______。

答案

参考答案:共循环了6次

解析: b每次变为原来的一半。b为10、5、25、1.25、0.625、0.3125,循环体每执行一次,t增加1,所以b=0.3125,t=6。

选择题
单项选择题