计算机程序设计
对窗体编写如下事件过程： Private Sub Form_MouseDown（Button As Integer，Shift As Integer，X As Single Y As Single） If Button=2 ThenPrint"AAAAA"End IfEnd SubPrivate Sub Form_MouseUp（Button As Integer，Shift As Integer，X As Single，Y As Single） Print"BBBBB" End Sub程序运行后，如果
题目
对窗体编写如下事件过程： Private Sub Form_MouseDown（Button As Integer，Shift As Integer，X As Single Y As Single） If Button=2 ThenPrint"AAAAA"End IfEnd SubPrivate Sub Form_MouseUp（Button As Integer，Shift As Integer，X As Single，Y As Single） Print"BBBBB" End Sub程序运行后，如果单击鼠标右键，则输出结果为（）
- A、AAAAA
- B、BBBBB
- C、AAAAA CR BBBBB（其中CR表示回车和换行）
- D、BBBBB CR AAAAA
相似问题和答案
第1题：
把窗体的KeyPreView属性设置为True，并编写如下两个事件过程：
Private Sub Form_KeyDown（KeyCode As Integer, Shift As Integer）
Print KeyCode
End Sub
Private Sub Form_KeyPress（KeyAscii As Integer）
Print KeyAscii
End Sub
程序运行后，如果按下B键，则在窗体上输出的数值是 【12】 和 【13】 。
正确答案: 1.(66) 2.(98)
第2题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2,a) Print a End Sub 程序运行后，单击命令按钮，则窗体下显示的内容是______。
A．8
B．2
C．5
D．11
解析：因为Subl过程的形参都是传值传送，所以在其内的所有计算结果都不将返回，并不影响对应的实参值，变量a的值并没有改变，仍然是8。
第3题：
在窗体上有一个命令按钮，其名称为Command1。要实现程序运行后，单击命令按钮，如果在输入对话框里分别输入12和4，编写如下事件过程：
Private Sub Command1_Click()
A=InputBox("被除数")
B=InputBox("除数")
Print A；"÷"；B；"="；A / B
End Sub
则窗体中显示的内容是______。
12÷4=3
第4题：
有如下SUB过程:
Sub s(x As Single,y As Single)
t=x
x=t / y
y=t Mod y
End Sub
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
s a,b
Print a,b
End Sub
则程序运行后,单击命令按钮,输出的结果为【 】 。
1.25,1 解析：调用s过程,传入"a=5,b=4"。t=5 , x=5/4, 故x=1.25;y=5%4,故y=1。返回并输出(1.25,1)
第5题：
对窗体编写如下事件过程： Private Sub Form_ MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button =2 Then Print “AAAAA” End If End Sub Private Sub Form_ MouseUp (Button As Integer，Shift As Integer，X As Single，Y As Single) Print “BBBBB” End Sub 程序运行后，如果单击鼠标右键，则输出结果为______ 。
A．AAAAA BBBBB
B．BBBBB
C．AAAAA
D．BBBBB AAAAA
第6题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。
A．5
B．120
C．153
D．160
解析：由于参数y、w是ByRef的参数，称为“引用”，所以在过程Subl中改变的值是带回到调用的地方的，因此Sum结果是5次Subl计算结果的和，即sum=(1+2+6+24+120)=153。本题答案为153。
第7题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．VVV
B．Vis
C．sic
D．11
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。
第8题：
布窗体上画一个名称为Command l的命令按钮，然后编写如下事件过程：
Private Sub Command l-Click ()
n=5
f=l
s=o
For I =l To n
f=f【 】
s= s +f
Next
Print s
End Sub
该事件过程的功能是计算s=1+1／2!+l+3!+…+l/ n!的值。请填空。
*(1/i)或 /i 解析：本程序首先置f为1，s为0；经过5次循环使f每次都乘以l/i实现了l/n的求法，每次循环后都加 f，把结果再赋给s，循环结束，s的值即为所求。
第9题：
把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。
A． A
B．B
C．C
D．D
解析：当把窗体的KeyPreview属性设置为True时，按键盘上的键时，就触发窗体的KeyPress事件。如果键盘上按的是“A”，则KeyAscii=97，即小写的“a”，把该字母转化为大写以后，再对Ascii码加2，则为大写的“C”。
第10题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Y as String
X=5
Y=X & Space(3) & X
Print X；
Print Trim(Y)；Len(Trim(Y))
End Sub
该程序的执行结果是【 】。
□5□5□□□5□5