1.如何用vb编矩阵在VB中要想调用Excel ， 需要打开VB编程环境“工程”菜单中的“引用”项目 ， 并选取项目中的“Microsoft Excel 11.0 object library”项 。由于你的Excel版本不同 ， 所以这个选项的版本号也是不同的 。
【vb矩阵怎么写】因为EXCEL是以层次结构组织对象的 ， 其对象模型中含有许多不同的对象元素 。
第一层：Application对象 ， 即Excel本身；
第二层：workbooks对象集 ， 指Excel的工作簿文件；
第三层：worksheets对象集 ， 表示的是Excel的一个工作表；
第四层：Cells和Range对象 ， 指向Excel工作表中的单元格 。
Private Sub Excel_Out_Click()
Dim i, j As Integer
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls")
Set xlsheet = xlbook.Worksheets(1)
然后就可以用循环向矩阵数组中添加元素了
2.用VB编写矩阵Option Explicit
Dim i, j As Integer
Dim X(11, 11), Y(11, 11) As Double
Dim A As Variant
'假设X是个一个方阵 ， 那么就是有12行12列
Private Sub Form_Load()
Show
A = Array(1, 2, 4, 5, 6, 7, 1, 2, 4, 5, 6, 7)
For i = 0 To 11
For j = 0 To 11
X(i, j) = Val(InputBox（"请输入第" + Trim(i) + "行第" + Trim(j) + "列的数值：" ， "" ， Trim(i) + Trim(j)))
Print X(i, j);
Next j
Print
Next i
For i = 0 To 11
For j = 0 To 11
Y(j, i) = A(j) * X(j, i)
Print Y(j, i)
Next j
Print
Next i
End Sub
3.VB怎么写矩阵 需要一个1000*1000的矩阵 每一个格都是随机数 最后要'主要代码就是这个'这是使用二维数组dim a(99,99) '声明一个二维数组randomize '随机化 ， 用于生成随机数for i = 0 to 99 for j = 0 to 99 a(i,j) = fix(rnd * 10) '生成0~10的随机整数 nextnextfor m = 0 to 99s = ""for n = 0 to 99s=s&a(m,n)& " "nextstr = str & s & vbcrlfnextmsgbox str'不使用数组也可以randomizefor i = 0 to 99 s = "" for j = 0 to 99 s=s & fix(rnd * 10) & " " next str = str & s & vbcrlfnextmsgbox str 。
4.vb中求一个矩阵所有元素的和,代码该怎么写矩阵在程序中用二维数组来实现 ， 如下所表示的是一个3行4列的矩阵；
d(1,1) d(1,2) d(1,3) d(1,4)
d(2,1) d(2,2) d(2,3) d(2,4)
d(3,1) d(3,2) d(3,3) d(3,4)
通常在程序中对二维数组的操作 ， 采用双重循环来实现 ， 例如求和：
dim i as integer
dim j as integer
dim S as single
S = 0
for i=1 to 3 '外循环针对行
for j=1 to 4 '内循环针对列
S = S + d(i,j)
next j
next i
Print S
文章插图