网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
阅读下面的程序：
Private Sub Form_Click（）
Dim Check As Boolean, Counter As Integer
Check = True
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程序运行后，单击窗体，输出结果为______。 ” 相关考题
考题
有如下程序； Private SubForm_Click() Dim check As Boolean，n As Integer check=False n=0 Do Do While n＜10 n=n+1 If n=5 Then check=True Exit Do End if Print n； Loop Loop Until check = True End Sub 程序运行后，输出的结果是 ______ 。A．1 2 3B．1 2 3 4C．1 2 3 4 5D．1 2 3 4 5 6
考题
下列程序段的输出结果为______。Check = True: a = 1Doa = a + 1Check = Check + 1Loop While a ＜ 10print Check
考题
阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd Sub单击窗体程序的执行结果是【 】。
考题
执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=StrMid(S，i，1)Next iMsgBox StrEnd Sub
考题
阅读下面的程序：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程序运行后，单击窗体，输出结果为【 】。
考题
阅读下面的程序段： K=0 Forl=1 t03 For J＝l to I K=K+J Next J Next 1 执行上面的语句后，K的值为______。A．8B．10C．14D．21
考题
阅读下面的程序： Private Sub Form_Click() Dim Check， Counter Check=True Counter=0 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， Check End Sub 程序运行后，单击窗体，输出的结果为A．15 0B．20 -1C．10 TrueD．10 False
考题
阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。A．105B．1C．120D．15
考题
请阅读下面程序为使该程序正确执行，下画线处的语句应是（ ）。A.t．sleep（ ）B.t．yield（ ）C.t．interrupt（ ）D.t．start（ ）
热门标签
最新试卷
