网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
阅读下面的程序： 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 0
B．20 -1
C．10 True
D．10 False
参考答案
更多 “ 阅读下面的程序： 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 ” 相关考题
考题
在窗体上面画一个命令按钮和一个标签，其名称分别为 Command1和 Label1，然后编写如下事件过程：Private Sub Commandl_Click（）Counter=0For i=1 To 4For j=6 To 1 Step -2Counter=Counter+1Next jNext iLabel1.Caption=Str（Counter）End Sub程序运行后，单击命令按钮，标签中显示的内容是（ ）。 A．11B．12C．16D．20
考题
有如下程序； 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
考题
有如下程序段，该程序段执行完后，执行循环的次数是total=0Counter=1DoPrint Countertotal=total + CounterPrint totalCounter=Counter + 1If total 10 ThenExit DoEnd IfLoop While Counter =10（ ）。A．5B．10C．15D．20
考题
阅读下面的程序：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程序运行后，单击窗体，输出结果为______。
考题
（22）在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编写如下事件过程：Private Sub Command1_Click( )Counter=0For i=1 To 4For j=6 To 1 Step -2Counter=Counter+1Next jNext iLabel1.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是（ ）。A）11B）12C）16D）20
考题
以上程序段运行的结果是：______. Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j=j+1 if a(i)= False Then a(i)= True Exit For End If If i = 5 Then flag = True End If Next Loop Print jA．20B．7C．35D．8
考题
在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter＝0 For i=1 To 4 For j＝6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是______。A．11B．12C．16D．20
考题
下列程序段的输出结果为______。Check = True: a = 1Doa = a + 1Check = Check + 1Loop While a ＜ 10print Check
考题
有如下程序：Private Sub Form_Click（）Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．15 0B．20 -1C．10 TrueD．10 False
考题
有如下程序： 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 TreeD．10 False
考题
阅读下面的程序：PriVate Sub Form_C1ick()Dim Check As Booleau，Counter As IntegerCheck=TrueCounter=5DoDo While Counter＜20Counter=Counter+1If Counter=10 ThenCheck=FalSeEXit Do
考题
对于如下程序，单击Co皿andl事件发生后，窗体上显示的内容为 ______。 Private Sub Command1_Click() Dim i As Integer,a a As Integer Do While i＜20 Do While True If i Mod 10 = 0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+1 Loop Print a End SubA．21B．32C．33D．11
考题
在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell，然后编写如下事件过程：Private Sub Command1_Click()Counter=0Fori=1 T04Forj=6 To 1 Step一2Counter=Counter+1Next jNextiLabell．Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是A．11B．12C．16D．20
考题
以下程序段运行的结果是______。 Dima(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print jA．20B．7C．35D．8
考题
有如下程序： 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
考题
有如下的程序段，该程序段执行完后，共执行的循环次数是 total=0 Counter=1 Do Print Counter total=total * Counter + 1 Print total Counter=Counter +1 If total ＞ 10 Then Exit Do End If Loop While Counter＜=10A．4B．10C．15D．20
考题
有如下程序段，该程序段执行完后，执行循环的次数是 total=0 Counter=1 Do Print Counter total=total + Counter Print total Counter=Counter+1 If total＞10 Then Exit Do End If Loop While Counter ＜=10A．5B．10C．15D．20
考题
有如下的程序段，该程序段的执行完后，共执行循环的次数是 Private Sub Command1_Click() total=0 Counter=l Do Print Counter total=total+Counter Print total Counter=Counter+1 If total＞=10 Then Exit Do End If Loop While Counter＜=10 End SubA．5B．10C．12D．20
考题
给出下面的程序：Private Sub Command1_ 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 MsgBox CounterEnd Sub 程序最后弹出的消息对话框的内容是______。A．TrueB．FalseC．20D．10
考题
有如下程序： Private Sub Form_C1ick() 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 Ptint Counter,Check End Sub 程序运行后，单击窗体，输出结果为______。A． 15 0B．20 -1C．10 TreeD．10 False
考题
在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Label1，然后编写如下事件过程：Private Sub Command1_Click()Counter=0For i=1 T0 4For j=6 T0 1 Step -2Counter=Counter+1Next jNext iLabel1.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是______。
考题
---What should I do first before boarding? ----().A.You may ask the policeman there to help.B.Please go to the airline counter to check-in for your flight.C.You should wait and see.D.You have to go there to check in for your flight.
考题
有如下程序： Ptivate Sub Form_Click() Dim Check，Counter Cbeck=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
考题
以下程序段运行的结果是______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+l If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print jA．20B．7C．35D．8
考题
有如下程序段，该程序段执行完后，共执行循环的次数是 Private Sub Command1_Click( ) Tota1=0 Counter=1 Do Print Counter Tota1=tota1+Counter Print total Counter=Counter+1 If total=10 Then Exit Do End lf Loop While Counter＜=10 End SubA．5B．10C．12D．20
考题
All passengers should present their _____ documents at the check-in counter.
A. boarded
B. boarding
C. to board
D. boards
考题
填空题下列程序的运行结果是（）。 Program test Implicit none Integer,parameter:: limit=10 Integer counter Integer:: ans=0 Counter=2 do while(counter=limit) ans=ans+counter counter=counter+2 end do Wrte(*,*)ans end
热门标签
最新试卷