vb程序题:将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/05/11 15:01:09

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

试下这个,只需改动 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那里改一下还有就是你写的有些地方漏了空格的

vb程序题:将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来 QB编程题编写一个程序:建立一个10乘10的对角线元素为0,其余元素为1的二维数组元素,并将该数组打印出来,成功后改写该定义一个整数的二维数组,并将各数组元素都赋初值1 程序定义了 4× 4 的二维数组,请编写程序,给二维数组赋值,并使数组下半三角元素中的值乘以n . 随机产生100个元素的一维数组a和10X10的二维数组b,求a,b数组的最大值,最小值,均值,总和. 把二维数组a赋值给b,并使b中的元素值等于a中对应元素的平方. 将一个二维数组a（m,n）按行顺序将每个元素放入一个一维数组b(m×n). 几道VB题1编程题：.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积. 编一程序,把一个m行n列矩阵中的元素存放到一个二维数组中,并求出该数组的平均值,最大值和最小值将具有100个元素的数组A按每行10个数的形式赋值给二维数组B.即将A（1）到A（10）依次赋值B（1,1）到B（急将一个一维数组a(n)中各元素值按行的顺序放入二维数组b(k*k)(其中:n=k*k)).