题目内容
（请给出正确答案）
有如下程序： 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 0
B．20 -1
C．10 True
D．10 False
如果结果不匹配，请 联系老师 获取答案
更多“有如下程序：Ptivate Sub Form_Click（)…”相关的问题
在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下； Ptivate Sub run_Click() Yesult=" " For i=1 To Me!n For j=1 To Me!n result=result +"*" Next j result=resuh+Chr(13)+Chr(10) NexL i MsSBOx result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是
A． * * * * * * * * * * * * * * * *
B． * * * * * * * * * * * * * * * *
C． * * * * * * * * * * * * * * * * * * * * * * * * * * * *
D． * * * * * * * * * * * * * * * *
下列程序的执行结果为()。 Ptivate Sub Command_Click() DimFirStr As String FirStr="abcdef" PrintPat(FirSB) End Sub PrivateFunctionPat(xStr As String)As String DimtempStr As String，strLen As Integer tempStr="" strLen=Len(xStr) i=1 DoW
A．abcdef
B．afbecd
C．fedcba
D．defabc
设有如下程序：
Private Sub Form_Click()
Dim i As Integer，x As String,Y As String
x=”ABCDEFG”
For i=4 To 1 Step-1
y=Mid(x，i，i)+y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为
A．ABCCDEDEFG
B．AABBCDEFG
C．ABCDEFG
D．AABBCCDDEEFFGG
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n \ 3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是
A．15
B．18
C．21
D．24
Prirate Sub Form_L．aad()
Labell．Caption=“欢迎”
Timer1．Enabled=False
Timer1．Interval=【 】
Commandl．Caption=“开始闪烁”
End sut)
Private Sub Timer1_rrimer()
Label1．visible=【 】
Emi sub
PTivate Sub Commandl_Click()
【 】
End sub
.jpg)
有如下程序： Private Sub Form_CHck() Dim i As Integer，sum As Integer sum=0 For i=2 TO 10 If Mod 2 ＜＞And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A．12
B．30
C．24
D．18
有如下程序，该程序的执行结果是【 】。
Private Sub Command1 Click()
For i=1 To 4
x=4
For j=1 To i
x =3
For k=1 To 2
x= x + 5
Next k
Next j
Next i
Print x
End Sub
有如下程序： Private Sub Command1 Click() Dim a As Single Dim b As Single a=5：b=4 Call S(a，B)End Sub Sub S(x As Single，y As Single) t=x x=t\y y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为
A．0 0
B．1 1
C．2 2
D．1 2
有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A．12
B．30
C．24
D．18
A.2
B.3
C.4
D.5
