Question

一些VB题

1.Private x As Integer
Private Sub Command1_Click()
x=5:y=1
Call proc(x,y)
Lable1.Caption=x
Lable2.Caption=y
End Sub
Private Sub proc(Byval a As Integer,Byval b As Integer)
x=a*a
y=b+b
End Sub
单击命令按钮，两标签显示的是什么 答案是25和3，对吗
2.Public Function f(x As Integer)
Dim y As Integer
x=20
y=2
f=x*y
End Function
在窗体上画一名称为command1的命令按钮，编写如下过程
Private Sub Command1_Click()
Static x As Integer
x=10
y=5
y=f(x）
Printx:y
End Sub
单击命令窗体上显示内容（C）
A.10 5 B.20 5 C.20 40 D.10 40解释下原因
3.Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
a=3:b=5:c=7
abc=F（c,a,b)
Print abc
End Sub
Private Function F(x As Integer,y As Integer,z As Integer)As Integer
F=(x+y*y)*z
End Function
输出的结果是（B）
A.80 B.196 C.90 D.100 为什么不是A
4.Private Sub Command1_Click()
Dim x As Integer ,y As Integer
x=12:y=32
Call Proc(x,y)
Print x:y
End Sub
Private Sub Proc(n As Integer ,Byval m As Integer)
n=n Mod 10:m=m Mod 10
End Sub
单击按钮结果为（B）
A.12 32 B.2 32 C.2 3 D.12 3
麻烦解释下原因
5.Private Sub Command1_Click()
A&=InputBox("请输入第一个数: ")
B&=InputBox("请输入第二个数: ")
PrivateA&+B&
End Sub
单击按钮，在两个对话框中输入12345和54321，结果是（D）
A.666666 B.5432112345 C.1234554321 D.出错
为什么

Answer 1

1. 不对，还是5和1。函数是传值的，不是 传地址的，所以传进去的参数自身的值没改变
2.选 C，20，40。因为函数f(x)不管传入什么参数 f的值都是40。另外函数没有明确地显示出 参数是传值（ByVal）还是传地址（ByRef），默认是 后者。
3.应该是A啊，除非你抄错题了，是F（a,b,c) 吗？
4. 函数中，n的声明是 传地址的也就是ByRef【见题2】，m是传值的即ByVal。将x, y 传给n,m后，m只是取得了y的值，m的改变不影响y,而n得到了x的地址，n的一切改变就相当于x的相应改变【可以把n想成x的另一个名字或绰号，但是对应的是 同一个人】
5.PrivateA&+B& 是什么意思？题上是 Private A&+B& 吗？我是说 之间有空格？
后者当然是错误的，因为Private是用来声明变量、函数、过程的。A&+B& 是个运算的表达式，不能和Private 用在一起，所以出错