更多"下面程序段的运行结果是( )。 Private Sub Form_"的相关试题:
[单项选择]下面程序段，运行后的结果是 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 n AS Integer
I =21: n = 3
do while I＞n
I=I- n
Loop
Print I
End Sub
在窗体上打印的结果是______。
A. 3
B. 5
C. 6
D. 8
[单项选择]下列程序段，运行后窗体上输出结果是( )。
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
Printx
End Sub
A. 1
B. True
C. False
D. 2
[单项选择]有如下程序段：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
[单项选择]有以下程序段，单击Command1按钮后，屏幕上的输出结果是( )。
Private Sub Command1_Click（ ）
For i=6 To 9
Print Tab(i*i),i
Next i
End Sub
A. 6 7 8
B. 6 7 8 9
C. 6 7
D. 6
[单项选择]执行下面的程序段，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
[单项选择]下列程序段运行后窗体上输出结果为( )。 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 Command1_ Click（ ） a = 0 for 1=15 To 15 Step- 2 a = a +1 Next I Print a, IEnd Sub发生Command 1的单击事件后，程序的输出结果是 ______。
A. 0 13
B. 15 13
C. 0 15
D. 15 15
[单项选择]下面程序运行后的输出结果是
Private Sub Command1_Click（ ）
For j=1 To 10
If j Mod 3＜＞0 Then a=a+j/3
Next
Print a
End Sub
A. 20
B. 10
C. 3
D. 9
[单项选择]下面程序运行结果是( )。 Private Sub Form_Click（ ） Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End Sub
A. _35_2510
B. 25102510
C. _35_35_
D. 2510_35_
[单项选择]下面程序的运行结果是( )。 Private Sub Commandl_Click（ ） a=1.5 b=1.5 Callfun(a,b) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End Sub
A. 2．25 1.5
B. 1.5 2.25
C. 2.25 3.75
D. 0.75 1.5
[单项选择]下面程序运行后的结果是( )。 Private Sub Form_Click（ ） Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub
A. 6
B. 72
C. 144
D. 432
[单项选择]下面程序的运行结果是 Private Sub Command1_Click（ ） x＝1:y＝1 For i=1 To 3 x＝x+y:y＝y+x Next i:print x,y End Sub
A. 6 6
B. 5 8
C. 13 21
D. 34 35
[单项选择]下面的程序运行结果是( )。
Private Sub Form_Click（ ）
I=0
DoUntil0
i=i+1
if i＞10 then Exit Do
Loop
Printi
End Sub
A. 0
B. 10
C. 11
D. 出错
