7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim a As String, b As String
a = "参数1": b = "参数2"
test a, b
Debug.Print a, b
End Sub
Private Sub test(ia As String, ByVal ib As String)
ia = "改变a"
ib = "改变b"
End Sub
Dim a As Double
Dim b As Integer
Dim i As Integer
a = 100
b = 100
For i = 1 To 10
a = a / i
Next
For i = 1 To 10
a = a * i
Next
Debug.Print a, b, a = b
从数学角度上说,a最后还是100,和100是否相等 的判断应该是true
最后的输出: 100 100 False