Question

按键精灵二维数组

dim 数组(2,2)
00,01,02
10 hai还有4个格子里面写什么啊不知道
20

Answer 1

代码如下

Dim zz(4, 5)起始坐标x = 100起始坐标y = 100For i = 0 To UBound(zz) For j = 0 To UBound(zz,2) zz(i, j) = (起始坐标x + 45 * i) & "," & (起始坐标y + 35 * j) TracePrint "第"&i&"行"&"第"&j&"列="&zz(i, j) NextNext