更多"下列程序运行时输出的结果是( )。 Private Sub For"的相关试题:
[单项选择]下列程序运行时输出的结果是( )。
Private Sub Form_Click( )
Dim a
a=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. 天天向上清华大学天长地久程序设计
[单项选择]下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click（ ）
Dim x (10)As Integer，y(5)As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
[单项选择]下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click（ ）
Dim X(10J As Integer,y(5) As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=X(2*i-1)+X(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
[单项选择]有如下程序，运行时从键盘输入3，输出结果是 ______。 Private Sub Command1_Click（ ） a=InputBox("请输入一个数字：") Select Case a Case Is＞2 b=a+1 Case Is＞3 b=a+2 Case Is＞4 b=a＋3 Case Is＞5 b＝a＋4 End Select Print a ＋ b End Sub
[单项选择]下列程序在运行时输出的结果是（）。Option Base 1Private Sub Form_Click（ ） Dim x(10) For i=1 To 10x(i)=10-i+1Next i For i=10 To 1 Step-2Print x(i)Next i End Sub
A. 1 3 5 7 9
B. 9 7 5 3 1
C. 1 2 3 4 5 6 7 8 9 10
D. 10 9 8 7 6 5 4 3 2 1
[单项选择]下列程序运行时输出的结果是______。
Option Base 1
Private Sub Form_Click（ ）
Dim x(10) As Integer,y(5) As Integer
For i=1 to 10
x(i)=10-1+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 13 5 79
D. 不确定的值
[单项选择]下面程序运行时，若输入395，则输出结果是( )
Private Sub Command1_Click（ ）
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x/100,(X Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[单项选择]
下面程序运行时，若输入395，则输出结果是（）。
Private Sub Command1_Click（ ）
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10，x/100，(x Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click（ ）
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]下面的程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click（ ）
Dim a(1 To 6)As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7
n=6
For i=1 To n-1
min 1=i
For j=i+1 To n
If a(j)＜a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(i)
Next i
End Sub
A. 9 8 7 6 3 2
B. 2 3 6 7 8 9
C. 9 8 7 6 3
D. 2 3 6 7 8
[单项选择]下列程序的运行结果是 Private Sub Form_Click（ ） Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub
A. 1
B. 12
C. 11
D. 32
[单项选择]以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。
Private SubForm_Click（ ）
Dim a As Integer，b As Integer
a=10 ：b=20
Call ff(a，B)
Print a，b
End Sub
Private Sub ff(x As Integer，y As Integer)
x=x+y
y=x+y
End Sub
A. 30 50
B. 30 30
C. 20 20
D. 10 20
[单项选择]若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )
Private Sub Click_MouseDown(Button As Integer,Shift As Integet,X As Single，Y As Single)
Print"VB Program"
End Sub
A. 用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B. 用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C. 用鼠标右键单击名称为“MouseDown"的命令按钮时，执行此过程
D. 用鼠标左键或右键单击名称为“Click"的命令按钮时，执行此过程
[单项选择]下列程序的执行结果是( )。 Privaae Sub Form_Activate Dim score(3)As Integer,total As Integer Dim aa_score As Variant score(1)=50:score(2)=14:score(3)=36 total=0:i=0 For Each aa_score In score i=i+1 total=total+aa_score Print i,aa_score,total Next End Sub
A. 1 0 0 2 50 50 3 14 64 4 36 100
B. 1 50 50 2 14 64 3 36 100
C. 0 50 50 1 14 64 2 36 100 3 36 100
D. 0 0 0 1 50 50 2 14 64
[单项选择]下面程序段，运行后的结果是 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(
[单项选择]下列程序的执行结果是( )。
Private Sub Form_Activate（ ）
Dim score(3)As Integer,total As Integer
Dim aa score AS Variant
score(1)=50:score(2)=14:score(3)=36
total=0:i=0
For Each aa score In score
i=i+1
tota1=tota1+aa_score
Print i,aa_score,tota1
Next
End Sub
A. 1 0 0
B. 1 50 50
C. 0 50 50
D. 0 0 0
[单项选择]下面程序运行后的结果是( )。
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
