更多"下列程序段的运行结果是：Private Sub Command1_Cl"的相关试题:
[单项选择]下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a（ ） As Integer) Dim t#，i% t=1 For i=2 To UBound(a) t=t * a(i) Next i Tof=t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]有如下程序段：Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print G(a) Next iEnd SubFunction G(a As Integer) b=0 Static c b=b + 1 c=c + 1 G=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为
A. 1 2 3
B. 2 3 4
C. 4 5 6
D. 1 4 6
[单项选择]下列程序段，运行后窗体上输出结果是( )。
Private Sub Command1_Click（ ）
a=5:b=4:c=3:d=2
x=3＞2*b Or a=c And b＜＞c Or c＞d
Printx
End Sub
A. 1
B. True
C. False
D. 2
[单项选择]下列程序段运行后窗体上输出结果为( )。 Private Sub Command1_Click（ ） a=5: b=4: c=3: d=2 x=3＞2*b Or a=c And b＜＞c Or c＞d Print x End Sub
A. 1
B. True
C. False
D. 2
[单项选择]下列程序运行时输出的结果是 Private Sub Form_Click（ ） Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
[单项选择]下列程序段的运行结果是( )。 Sub sele（ ） Dim n As Integer i=21: n=3 Do While i ＞ n i=i-n Loop Print i End Sub
A. 2
B. 4
C. 5
D. 3
[单项选择]下列程序段的执行结果为 Private Sub Command1_Click（ ） a=InputBox("请输入a值") c="您要查询的是" &IIf(a＞0，"天气"，" ") &IIf(a＜0，"电话号码"，" ") &IIf(a=0，"邮编"，" ") Text1.Text=c End Sub程序运行后，如果从键盘上输入"16"，则在文本框显示的内容是______。
A. 您要查询的是天气
B. 您要查询的是邮编
C. 您要查询的是电话号码
D. False
[单项选择]执行下面的程序段，x的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub
A. 5
B. 6
C. 7
D. 8
[单项选择]执行下面的程序段，x的值为 Private Sub Commandl_Click（ ） For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub
A. 5
B. 6
C. 7
D. 8
[单项选择]单击窗体时，下列程序段的执行结果为( )。 Private Sub Form_Crick（ ） Line(200,200)-(400,400) Print"+++++++++++++++++++" Print"*******************" End Sub
A. 在窗体上画一斜线，从斜线终点处开始打印两行符号
B. 在窗体上画一斜线，从斜线起点处开始打印两行符号
C. 在窗体上画一斜线，从窗体左上角开始打印两行符号
D. 从窗体左上角开始打印两行符号，从符号结束处开始画一斜线
[单项选择]单击命令按钮，下列程序段的输出结果为______。 Private Sub Command1_Click（ ） Dim n As Integer n = 5 While n ＜= 10 n = n + 2 Print n; Wend End Sub
A. 5 7 9 11
B. 6 8 10
C. 7 9 11
D. 6 8 10 12
[单项选择] 下面这段代码的运行结果是（）。 Dim MyStringBuilder As New StringBuilder("Hello World!") MyStringBuilder.Remove(5, 7) Console.WriteLine(MyStringBuilder)
A. "Hello_"
B. "Hello"
C. "_World!"
D. "World!"
[单项选择]下面程序运行后，输出的结果是 Dim arr(3,3) For j=1 To 3 For k=1 To 3 Arr(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For j=2 To 3 Print art(k,j)； Next k Print Next j
A. 2 5 3 6
B. 5 8 6 9
C. 4 7 5 8
D. 5 9 6 8
[单项选择]以下程序的输出结果是( )。 Dim varl Dim var2 Dim var3 varl＝"HellO" var2＝"World!" var3=varl & " " & var2 varl＝10 var2＝20 NsgBox varl＋var2
A. Hello world!
B. 30
C. 1020
D. Hello world!
[单项选择]下列事件过程运行后输出结果是 Private Sub Command1_Click（ ） Print Formats(123，456，"###，##%") End Sub
A. 123.46%
B. 123.45%
C. 123.456%
D. 12345.6%
