更多"有如下事件过程： Private Sub Command1_Clic"的相关试题:
[单项选择]编写如下事件过程：
Private sub sub1 (ByVal x1 As String, y1 As String)
Dim xt As String
Dim i As Integer
i = Len(x1)
Do While i＞= 1
xt = xt + Mid(x1, i, 1)
i=i-1
Loop
y1 = xt
End Sub
Private Sub Form Click（ ）
Dim s1 As String, s2 As String
s1= "teacher"
sub1 s1, s2
Print s2
End Sub
程序运行后，单击窗体，则窗体上显示的内容是
A. rehcaet
B. tahreee
C. themee
D. eerthea
[单项选择]有如下事件过程：
Private Sub Commandl_Click（ ）
b=10
Do Until b=-1
a=InputBox(“请输入a的值”)
a=Val(a)
b=InputBox(“请输入b的值”)
b=Val(b)
a=a*b
Loop
Pdnt a
End Sub
程序运行后，依次输入数值30，20，10，-1，输出结果为( )。
A. 6000
B. -10
C. 200
D. -6000
[单项选择]有如下事件过程： Private Sub Command1_Click（ ） b=10 Do Until b =-1 a = InputBox("请输入a的值") a = Val(a) b = InputBox("请输入b值") b = Val(b) a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果为( )。
A. 6000
B. -10
C. 200
D. -6000
[单项选择]编写如下事件过程： Option Explicit Private Sub Form_Click（ ） Dim Str As String， I As Integer Open "examp" For Output As 1 For I=1 To 5 Str=Chr(I+64) Print #1，Str； Next I Close 1 Open”examp’，For lnput AS 2 Str=Input(10，#2) Print Str； Close 2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是
A. ABCDE
B. 96
C. 65
D. abcde
[单项选择]编写如下事件过程：
Private Sub Form Activate（ ）
Dim score(1 To 3) As Integer
Dim i As Integer,t As Variant
For i=3 To 1 Step-l
score(i)=2*i
Next i
For Each t In score
Print t;
Next
End Sub
程序运行后窗体上显示( )。
A. 6 4 2
B. 2 4 6
C. 2
D. 6
[单项选择]编写如下事件过程：
Private Sub Form MouseDown(Button As Integer，Shift As Integer，X As Single，
Y As Single)
If Shift=6 And Button=2 Then
Print "BBBB"
End If
End Sub
程序运行后，为了在窗体上输出“BBBB”，应执行的操作为 ______。
A. 同时按下Shift键和鼠标左键
B. 同时按下Shift键和鼠标右键
C. 同时按下Ctrl、Alt键和鼠标左键
D. 同时按下Ctrl、Alt键和鼠标右键
[填空题]有如下事件过程：
Private Sub Form Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为 【14】 。
[填空题]有如下事件过程：
Private Sub Form Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为______。
[单项选择]编写如下事件过程： Private Sub FOrm_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Pint "AAAA" Then End If End Sub Private Sub Form_ MouseUp (Button As Integer, _ Shift As Integer, X As Single, Y As Single) Print "BBBB" End Sub程序运行后，如果在窗体上单击鼠标右键，则输出结果为______ 。
A. AAAA BBBB
B. BBBB
C. AAAA
D. BBBB AAAA
[单项选择]编写如下事件过程: Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print “Hello” End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下______ 操作。
A. 同时按下Shift键和鼠标左按钮．
B. 同时按下Shift键和鼠标右按钮
C. 同时按下Ctrl、Alt键和鼠标左按钮
D. 同时按下Ctrl、Alt键和鼠标右按钮
[单项选择]编写如下事件过程：
Private Sub Form KeyDown (KeyCode As Integer, Shift As Integer)
Print Chr (KeyCode)
End Sub
Private Sub Form_KeyPress( KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时)运行程序，若按“T”键，则程序输出的结果是
A. T
B. t
C. T
D. t
