填空题 运行程序,当窗体加载事件发生:
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。