Question

易语言二维数组一次性赋值错误

上面那个可以但不方便

这个谁会做 输入36 输出减去有36的一行和一列





Answer 1

a = "0,1,2/3,4,5/6,7,8/9,10,11,12/13,14,15,16,17,18"
Dim k(10,10)
a = split(a, "/")
For i = 0 To UBound(a)
b = split(a(i), ",")
For p = 0 To UBound(b)
TracePrint "k(" & i & "," & p & ")=" & b(p)
Next
Next