产生并输出如下矩阵 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 16:52:23
![产生并输出如下矩阵 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20](/uploads/image/z/61649-17-9.jpg?t=%E4%BA%A7%E7%94%9F%E5%B9%B6%E8%BE%93%E5%87%BA%E5%A6%82%E4%B8%8B%E7%9F%A9%E9%98%B5+1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20)
产生并输出如下矩阵 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
产生并输出如下矩阵 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
产生并输出如下矩阵 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
很简单,一个数组就搞定
编辑窗体的单击事件
Private Sub Form_Click()
Dim a%(1 To 20)
For i = 1 To 20 Step 1
a(i) = i
Print a(i);
Next
End Sub
我试过了,没得问题,不懂得问我