更多"下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Priva"的相关试题:
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
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 Str1 As String, Str2 As String
Dim Str3 As String, I As Integer
Str1 = "e"
for I = t To 2
Str2 = Ucase (Str1)
Str1 = Str2 & Str1
Str3 = Str3 & Str1
str1 = Chr (Asc(Str1) + I)
Next I
Print Str3
End Sub
A. EeFF
B. eEfF
C. EEFF
D. eeFF
[单项选择]以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。
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 FORM_CLICK（ ） DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STR&CHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUB
A. ABCE
B. ABCD
C. ABDB
D. ABFB
[单项选择]下列程序运行时输出的结果是
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. 不确定的值
[单项选择]有如下程序，运行时从键盘输入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
A. 8
B. 7
C. 6 p．9
[填空题]当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是 【13】 。
Private Sub Form_Click（ ）
Dim x As Integer，y As Integer
x=Val(InputBox("输入整数72"))
y=Val(InputBox("输入整数24"))
z=fun1(x，y)
MsgBox Str(Z)
End Sub
Private Function funl(ByVal a As Integer， ByVal b As Integer)As Integer
Do
r=a Mod b
a = b
b = r
Loop Until r=0
funl=a
End Function
[填空题]当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是______。
Private Sub Form_Click( )
Dim X As Inte9er, y As Integer
x=Val(InputBox("输入整数72"))
y=Val(InputBox("输入整数24"))
z=funl(x，y)
MsgBox Str(z)
End Sub
Private Function funl(ByVal a As Integer, ByVal b As Integer)As Integer
Do
r=a Mod b
a=b
h=r
Loop Until r=0
funl=a
End Function
[单项选择]若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )。
Private Sub Click_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "VB Program"
End Sub
A. 用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B. 用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C. 用鼠标右键单击名称为“MouseDown”的控件时，执行此过程
D. 用鼠标左键或右键单击名称为“Click”的控件时，执行此过程
[填空题]下列程序运行时，若输入123，输入对话框的提示信息是______。
Private Sub Command1_Click（ ）
X1=InputBox("请输入")
MsgBox(X1)
End Sub
[填空题]下列程序运行时，若输入123，输入对话框的提示信息是______。
Private Sub Command1_Click（ ）
X1=InputBox("请输入")
MsgBox(X1)
End Sub
