阅读下面的程序:Private Sub Form_Click( )Dim Check As Boolean,Counter As IntegerCheck=TreeCounter=5DODO While Counter<20Counter=Counter+1If Counter=10 ThenCheck=FalseExit DoEnd ifLoopLoop Until Check=FalsePrint CounterEnd Sub程序运行后,单击窗体,输出结果为【 】。
阅读下面的程序:
Private Sub Form_Click( )
Dim Check As Boolean,Counter As Integer
Check=Tree
Counter=5
DO
DO While Counter<20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End if
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后,单击窗体,输出结果为【 】。
相关考题:
阅读下面的程序:Private Sub Form_Click()Dim Check As Boolean, Counter As IntegerCheck = TrueCounter = 5DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint CounterEnd Sub程序运行后,单击窗体,输出结果为______。
下列( )语句使复选框Check1无效。A、 Check1.Value = 1B、 Check1.Value = 2C、 Check1.Style. = 1D、 Check1.Style. = 0
下列关于PDCA循环理论描述中正确的是A、Play、Do、Check、AbbreviateB、Play、Develop、Check、ActionC、Play、Develop、Capacity、AbbreviateD、Plan、Do、Check、ActionE、Plan、Do、Check、Abbreviate
阅读下面的程序:PriVate Sub Form_C1ick()Dim Check As Booleau,Counter As IntegerCheck=TrueCounter=5DoDo While Counter<20Counter=Counter+1If Counter=10 ThenCheck=FalSeEXit Do
19、下列()语句使复选框Check1的标题显示在左边。A.Check1.Style = 0B.Check1.Alignment = 0C.Check1.Style = 1D.Check1.Alignment = 1
下列()语句使复选框Check1的标题显示在左边。A.Check1.Style = 0B.Check1.Alignment = 0C.Check1.Style = 1D.Check1.Alignment = 1
18、下列()语句使复选框Check1变成灰色。A.Check1.Value = 0B.Check1.Value =1C.Check1.Value = 2D.Check1.Style = 0