?? code142a.txt
字號:
Private Function Change_First(ByRef First As Integer, ByVal Second _
As Integer) As Integer
First = Second ' Assign value of second to first
Change_First = First + Second
End Function
Public Sub Main()
Dim A As Integer, B As Integer, Result As Integer
A = 0
B = 5
Result = 0
Debug.Print "Value of a, value of b, result", A, B, Result
Result = Change_First(A, B)
Debug.Print "Value of a, value of b, result", A, B, Result
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -