Question

求VB计算题解答！！

function F（a As Integer）
b = 2
Static c
b = b + 1
c = c + 1
F = a +b +1
End Function

private sub command1_Click()
Dim a As Integer
a = 2
For i = 1 to 3
print F(a)
Next i
End sub
写出单击命令按钮在窗体上的输出结果。

Private Sub command1_Click()
Dim a As Integer:Dim b As Integer
a = 10: b =20
Change1a , b
Print "A1=";a,"B2 = "; b
a = 10: b = 20
Change2 a ,b
Print "A2 = " ; a ,"B2="; b
End Sub

Sub Change1(ByVal x As Integer, ByVal y As Integer)
t = x ;x = y ; y=t
End Sub
Sub Change2(x As Integer , y As Integer)
t = x : x = y : y = t
End Sub
写出单击命令按钮在窗体上的输出结果。

Answer 1

666

A1= 10 B2 = 20
A1= 20 B2 = 10

追问

第一题等于666？？？

追答

我亲自运行的三行6，每行一个6

Answer 2

1: 6, 6, 6
2: A1=10 B2=20
3: A2=20 B2=10

Answer 3

这是VB的计算题? 楼主你太坑爹了.
以上回答你满意么？