Question

将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出来，要求把 A(1，1)到 A(1，10）依次

我要的是VB编程，不是C++
将二维数组 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)。

Answer 1

Dim A(1 to 10,1 to 10) As Integer,B(1 to 100) As Integer '小标都是从1开始
Dim i as Integer,j As Integer
For i=1 to 10
For j=0 to 10
A(i,j)=rnd*100 '随机初始化数组A
Next
Next

For i=1 to 10
For j=1 to 10
B(j*i)=A(i,j) ‘将二维数组元素放入一维数组
Next
Next

For i= 1 to 100
if i mod 10=0 then print '每行输出十个数，这里是控制换行
print B(i);
Next

'就这么多

program by kejisoft

Answer 2

'窗体上放一个按钮，复制以下代码实现
Dim a(100), b(10, 10)
Private Sub Command1_Click()
For i = 1 To 100
a(i) = Int(Rnd * 100) '产生100个[0,99]随机数
Print a(i);
Next i
Print
'------赋值并输出---------------------------
For i = 1 To 10 ' 10行
For j = 1 To 10 '10列
b(i, j) = a((i - 1) * 10 + j) '转换
Print b(i, j);
Next j
Print
Next i
End Sub

追问

不是，我要的是输出这种效果，B(1)=A(1,1),B(2)=A(1,2)............

追答

不好意思，看错了
窗体上放一个按钮，复制以下代码实现
Dim a(100), b(10, 10)
'------赋值并输出---------------------------
For i = 1 To 10 ' 10行
For j = 1 To 10 '10列
a(i, j) = Int(Rnd * 100) '产生100个[0,99]随机数
Print a(i, j);
Next j
Print
Next i

For i = 1 To 10 ' 10行
For j = 1 To 10 '10列
b((i - 1) * 10 + j) = a(i, j) '转换
Print a(i, j);
Next j
Next i
End Sub

Answer 3

for x=1 to 10
for y=1 to 10
i=i+1
b(i)=a(x,y)
next y
next x

追问

不要随便敷衍我好不？

追答

你讲的什么话呀？？？？你没看这是两个循环求出你要的值吗？郁闷，什么人呀？靠

追问

你这编程放到里面根本就不WORK！

追答

敷衍???郁闷
知道循环吧？你试了没有呀？？？

追问

你有心回答就编个完整点的程序，自己测试过之后，确实行，然后再回答。

追答

算了，遇上你这种人无语，有心回答，你还敷衍，

追问

恕我资质低下，你的答案我实在看不明白。。。

追答

唉
这样看下吧，
Private Sub Command1_Click()
Dim a(1 To 10, 1 To 10), b(1 To 100)
Dim x&, y&, i&
i = 1
For x = 1 To 10
For y = 1 To 10
a(x, y) = Int(Rnd * 100 + 1) '产生1-100间的随机整数
Next y
Next x
For x = 1 To 10
For y = 1 To 10
b(i) = a(x, y) '把A数组赋值给B数组
i = i + 1
Next y
Next x
End Sub
要在哪显示出来你自己添加吧

Answer 4

111