更多"下面程序运行时，若输入395，则输出结果是（）。 Private Su"的相关试题:
[单项选择]下面程序运行时，若输入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
[单项选择]下列程序运行时输出的结果是
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（ ） Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i)； NextI End Sub
A. 3 7 11 45 19
B. 17 13 9 5 1
C. 1 3 5 7 9
D. 不确定的值
[单项选择]下列程序运行时输出的结果是( )。
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 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. 不确定的值
[单项选择]有如下程序，运行时从键盘输入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
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
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 Command1_Click（ ）
Ch$="ABCDEF"
proc ch:Print ch
End Sub
Private Sub proc(ch As String)
s=" "
For k=Len(ch)To 1 Step-1
s=s＆Mid(ch,k,1)
Next k
ch=s
End Sub
A. ABCDEF
B. FEDCBA
C. A
D. F
[填空题]下面程序的输出结果是 【15】 。
Private Sub Form_Click（ ）
i=0
Do Until 0
i=i+1
if i＞10 then Exit Do
Loop
Print i
End Sub
[单项选择]下面程序的输出结果是( )。
Private Sub Command1_Click（ ）
ch$="ABCDEF"
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
s=""
For k=Len(ch)To 1 Step-1
s=s & Mid(ch,k,1)
Next k
ch=s
End Sub
A. ABCDEF B) FEDCBA C) A D) F
[填空题]下面程序的输出结果是 【15】 。
Private Sub Form_Click（ ）
i=0
Do Until 0
i=i+1
if i＞10 then Exit Do
Loop
Print i
End Sub
