7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Command1_Click()
Dim ARR&(3, 3), i%, j%
For i = 0 To 2
For j = 0 To 2
ARR(i, j) = Val(InputBox("请输入整数:", "啊"))
Next
Print ARR(i, 0), ARR(i, 1), ARR(i, 2), vbCrLf
Next
End Sub