填空题
运行程序,当窗体加载事件发生:
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次
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
函数Mid( 学生信息管理系统 ,3,2)的结果是______。
点击查看答案&解析
填空题
运行如下程序。 x=1 y=1 z=1 For i=1 To 3 For k=1 To 3 If i=1 Then x=x+y+z ElseIf j=2 Then x=2*x+2*y+2*z ElseIf j=3 Then x=3*x+3*y+3*z End if Next k Next j 则x的值为______。
点击查看答案&解析
相关试题
aver=aver+mark或avet=mark+aver
在窗体上画一个名称为Command1的命令按钮...
max1=matk
在下面的VBA程序段运行时,内层循环的循环...