VB有18个数在一维数轴中，然后把这些数转到一个六行三列的二维数轴中，并输出

Question

如题所述

Answer 1

这里首先创建一个数组，并赋值。
Private Sub Command1_Click()
Dim s As String
Dim var As Variant
Dim sa() As Integer
s = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18"
var = Split(s, ",")
ReDim sa(UBound(var))
Dim i As Integer, j As Integer, k As Integer
For i = 0 To UBound(var)
sa(i) = var(i)
Next
Dim na(5, 2) As Integer
For i = 0 To 5
For j = 0 To 2
na(i, j) = sa(i * 3 + j)
Print na(i, j),
Next
Print
Next
End Sub