更多"若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )。 "的相关试题:
[单项选择]若看到程序中确以下事件过程，则可以肯定的是，当程序运行时( )。
Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，Yas Single)
Print"VB Program"
End Sub
A. 用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B. 用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C. 用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程
D. 用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程
[单项选择]下列程序运行时输出的结果是
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. 不确定的值
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
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
[单项选择]阅读程序：
Option Base 1
Private Sub Form_Click( )
Dim arr Sum
Sum=0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 TO 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+art(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15
[单项选择]设有如下程序：
Option Base 0
Private Sub Form_Click（ ）
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i)；
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是( )。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]执行下列程序后，鼠标单击窗体，输出结果为（ ）。
Private Sub Form_Click（ ）
Print“Click”；
End Sub
Private Sub Form_MouseDown(Button As Integer，Shift_
As Integer，X As Single，Y As Single)
Print “Donw”
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift_
As Integer，X As Single，Y As Single)
Print“Up”
End Sub
A. J2DE
B. J2SE
C. J2ME
D. Y2EE
[单项选择]单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click（ ） Dim a As Integer, b As Integer, c As Integer a=3 b=4 c=5 Print SecProc(c,b,a) End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*Z End Function Function SecProc(x As Integer,y As Integer, z As Integer) SecProc=FirProc(z,x,y)+x End Function
A. 20
B. 22
C. 28
D. 30
[单项选择]单击命令按钮时，下列程序段的执行结果为( )。
Private Sub Command1_Click（ ）
Dim FirstStr As String
FirstStr="abcdef"
Print PickMid(FirstStr)
End Sub
Private Function PickMid(xStr As String)As String
Dim tempStr As String,strLen As Integer
TempStr=" "
strLen=Len(xStr)
i=1
Do While i＜=strLen/2
tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)
i=i+1
Loop
PickMid=tempStr
End Funcfion
A. abcdef
B. fed
C. fedcba
D. defabc
[单项选择]下列程序运行时输出的结果是( )。
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
