Question

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

Answer 1

试下这个，只需改动   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那里改一下

还有就是你写的有些地方漏了空格的

Answer 2

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=0 to 99
b(i)=a(int(i\10)+1,(i mod 10)+1)
print b(i);
next
end sub

追问

还是不行

追答

Private sub form_click()
dim i,j as integer
dim a(1 to 10,1 to10) as string
dim b(1 to 100) as string
for i=1 to10
for j=1 to 10
a(i,j)=i*j
next j
next i
for i=0 to 99
b(i)=a(int(i\10)+1,(i mod 10)+1)
debug.print b(i)
next i
end sub
你这是vb的语法么？？，给你改了一下

追问

请问你写的程序你有运行过吗？下标越界啊

追答

Private Sub form_click()
Dim i, j As Integer
Dim a(1 To 10, 1 To 10) As String
Dim 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 = 0 To 99
b(i + 1) = a(Int(i \ 10) + 1, (i Mod 10) + 1)
Debug.Print b(i + 1)
Next i
End Sub

这次对了

追问

无法运行啊，无力吐槽=。=