?? code202a.txt
字號:
Public Sub Show_Array (ByRef Values() As Integer)
Dim I As Integer
For I = 0 to Ubound(Values)
Debug.Print Values(I)
Next
End Sub
Public Sub Main()
Dim Scores(4) As Integer
Scores(0) = 70
Scores(1) = 80
Scores(2) = 90
Scores(3) = 100
Scores(4) = 90
Show_Array Scores()
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -