可以用vb输出一个二维的数字方阵吗

软件 2026-08-27

vb 中怎么才能把一个二维数组输出成矩阵形状？

假定二维数组名为a For x = LBound(a, 1) To UBound(a, 1) For y = LBound(a, 2) To UBound(a, 2) Print a(x, y); Next Print Next

VB编程，应用二维数组产生随机矩阵5*5，并实现矩阵的转置。

VB源程序如下：

OptionBase1

PrivateSubCommand1_Click()

DimA(5,5)AsInteger,B(5,5)AsInteger

Forx=1To5

Fory=1To5

A(x,y)=Int(10+Rnd*90)'随机产生两位数的整数

PrintA(x,y);'输出

Forx=1To5

Fory=1To5

B(x,y)=A(y,x)'转置

PrintB(x,y);'输出

EndSub

程序输出结果如下：

扩展资料：

VB：编写程序，实现如下规律的5*5矩阵存入数组，并输出该数组

Private Sub Command1_Click()

Dim a(1 To 6, 1 To 6) As Integer

For i = 1 To 5

For j = 1 To 5

tmp = 99

If i < tmp Then

tmp = i

End If

If j < tmp Then

tmp = j

End If

If 6 - i < tmp Then

tmp = 6 - i

End If

If 6 - j < tmp Then

tmp = 6 - j

End If

a(i, j) = tmp

Next j

Next i

For i = 1 To 5

For j = 1 To 5

Picture1.Print Tab(j * 5); a(i, j);

Next j

Picture1.Print

Next i

End Sub

程序输出结果如下：

用vb输出一个二维数组矩阵的右上部分并求和

假设数组为arr(1 to 3,1 to 3) dim sum as integer sum = 0 for i = 1 to 3 for j = i to 3 sum =sum + arr(i,j) print tab(5*j);arr(i,j); next j print next i print "数组和为";sum

vbtext数据赋值到二维数组&矩阵运算

vb有split函数，这个函数可以根据某个分隔符来分割字符串函数的输入是一个字符串和表示分隔的字符，输出是一个数组，数组的每个元素包含分割的部分具体的用法自己查一下，这里篇幅有限，不详细说了。首先用回车换行符(vbCrLf)分割出每一行然后对于得到的每一行，使用空格分割出每个元素这样矩阵的行列以及所有元素都得到了。转置比较容易，就是把a(i,j)和a(j,i)换一下就行了，大致就是下面这个样子 for i = 1 to row for j = i+1 to col temp = a(i,j) a(i,j) =a(j,i) a(j,i) = temp next next 求秩的话，把

怎么用VB表示二维数组

A(i,j)是表示一个二维数据，你直接写A(i,j)=15肯定不行，因为i,j都是变量，没有附值，初始值都是0，可以这样写。 dim i,j as integer dim a(3,3) as integer for i=0 to 3 for j=0 to 3 a(i,j)=15 next j next i

标签：信息技术编程矩阵编程语言二维数组