mathnet 怎么填充稀疏矩阵

Dim b(6, 6) As Integer, st As String = ""

For i = 1 To 6

For j = 1 To 6

b(i, j) = 0

Next

Next

Dim max As Integer, min As Integer, Amount As Integer, a() As Integer

max = 100 '随机数上限值

min = 10'随机数下限值

Amount = 6'产生号码数量(数量值应小于随机数上限值-随机数下限值)否则会产生死循环

ReDim a(Amount)

Randomize()

For i = 0 To Amount

a(i) = Int((max - min + 1) * Rnd() + min)

For j = 0 To i

If i <>j And a(i) = a(j) Then i = i - 1

Next

Next

For i = 1 To 6

b(i, i) = a(i)

Next

For i = 1 To 6

For j = 1 To 6

st = st &b(i, j) &" "

Next

st = st &vbCrLf

Next

TextBox6.Text = st

1、首先在电脑上要安装好mathtypeheofficer软件，进入到mathtype的安装文件夹。

2、然后找到Office Support文件夹进入，复制其中的MathType Commands 6 For Word.dot和MathType Commands 6 For Word.dotm文件。

3、然后找到“office”安装文件夹中的STARTUP文件夹打开。将复制的文件进行粘贴。

4、然后再MathPage文件夹中的MathPage.wll文件。

5、同样将其粘贴到office安装文件夹下的STARTUP文件夹中，三个文件就都被复制过来了。

6、完成以上设置后，即可把MathType选项卡添加到word中。

---