Question

关于VB小程序的过程问题

第一个程序为什么运行不了？
Private Sub Command1_Click()
Dim a, b As Integer, c1, c2, i, j, k1, k2 As Integer
a = 3
b = 4
Call Mysub(a, b, c1, c2)
Print c1, c2
i = 2
j = 4
Mysub i, j, k1, k2
Print k1, k2
End Sub
Sub Mysub(x As Integer, y As Integer, z1 As Integer, z2 As Integer)
z1 = x * x + y * y
z2 = x * x - y * y
End Sub
第二个程序为什么又可以？
Private Sub Command1_Click()
Dim a, b, c As Integer
a = 18

Print a
Call m(a, b, c)
Print a, b, c
End Sub

Public Sub m(x, y, z As Integer)
y = x + x
z = x + y
End Sub

Answer 1

VB6 的声明问题
Dim a, b As Integer 这句等同于

Dim a as Variant , b as integer
也就是说在VB6中 没有显示声明的都是默认为Variant (可变型)
所以在你第一个程序中 只有b 和 k2是整型 其它的都是Variant型
与Mysub需要的参数不相符 所以不能运行

第二个程序 因为 你声明的a b 和sub m中的参数 x y 都是Variant 型 所以可以执行