Question

vb.net数组赋值

需要生成如下格式数据
动态数组x(,)
x(0,0)=0
x(0,1)=0
x(0,2)=0
x(0,3)=1
x(0,4)=1
x(0,5)=1
x(0,6)=2
x(0,7)=2
x(0,8)=2
这样类型的数据，每3个为同一值

Answer 1

Dim x(8, 8)
Dim a As Integer
Dim b As Integer
b = 0
For i = 0 To 8
For j = 0 To 8
If b = 3 Then
b = 1
a = a + 1
Else
b = b + 1
End If
x(i, j) = aNext
Next

Answer 2

这个很简单吧