vb程序题:将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出来,要求把 A(1,1)到 A(1,10)依次赋给 B( 1)到 B(
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/13 14:24:25
vb程序题:将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出来,要求把 A(1,1)到 A(1,10)依次赋给 B( 1)到 B(
vb程序题:将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来
将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出来,要求把 A(1,1)到 A(1,10)依次赋给 B( 1)到 B(10),把 A( 2,1)到 A( 2,10)依次赋给 B( 11)到 B( 20),……,把 A(10,1)到 A( 10,10)依次赋给B(91)到 B(100).
我写了程序,不知道哪里错了,请在我写的程序基础上改正,
Private sub form_click()
dim a(1 to 10,1 to10)as string,b(1 to 100)as string
for i=1 to10
for j=1 to 10
a(i,j)=i*j
next
next
for i=1 to 100
b(i)=a(i\10+1,i mod 10)
print b(i);
next
end sub
vb程序题:将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出来,要求把 A(1,1)到 A(1,10)依次赋给 B( 1)到 B(
试下这个,只需改动 b(i)=a(i\10+1,i mod 10)换成b(i) = a((i - 1) \ 10 + 1, (i - 1) Mod 10 + 1)
如下:
Private Sub form_click()
Dim a(1 To 10, 1 To 10) As String, b(1 To 100) As String
For i = 1 To 10
For j = 1 To 10
a(i, j) = i * j
Next j
Next i
For i = 1 To 100
b(i) = a((i - 1) \ 10 + 1, (i - 1) Mod 10 + 1)
Print b(i);
Next i
End Sub
不过得到的结果如下:
会有点难看出来,建议将print那里改一下
还有就是你写的有些地方漏了空格的