UC知道VB,电脑安装了matrixVB,在工程-引用中也添加了MMatrix,为什么下面这个程序的mabs函数还出错?
来源：百度知道 编辑：UC知道 时间：2024/05/27 03:17:21
Dim A, A1, A2, A3 As Variant
Private Sub Command1_Click()
Select Case Combo1.ListIndex
Case 0
A1 = Array(0.8, 0.2, 0, 0, 0)
Case 1
A1 = Array(0, 0.2, 0.6, 0.2, 0)
Case 2
A1 = Array(0, 0, 0, 0.2, 0.8)
End Select
Select Case Combo2.ListIndex
Case 0
A2 = Array(0.8, 0.2, 0, 0, 0)
Case 1
A2 = Array(0, 0.2, 0.6, 0.2, 0)
Case 2
A2 = Array(0, 0, 0, 0.2, 0.8)
End Select
Select Case Combo3.ListIndex
Case 0
A3 = Array(0.8, 0.2, 0, 0, 0)
Case 1
A3 = Array(0.2, 0.6, 0.2, 0, 0)
Case 2
A3 = Array(0, 0.2, 0.6, 0.2, 0)
End Select
A = Array(Join(A1, ","), Join(A2, ","), Join(A3, ","))
A = Join(A, ",")
A = Split(A, ",")
b = mabs(A)
b.Show
End Sub
Private Sub Command1_Click()
Select Case Combo1.ListIndex
Case 0
A1 = Array(0.8, 0.2, 0, 0, 0)
Case 1
A1 = Array(0, 0.2, 0.6, 0.2, 0)
Case 2
A1 = Array(0, 0, 0, 0.2, 0.8)
End Select
Select Case Combo2.ListIndex
Case 0
A2 = Array(0.8, 0.2, 0, 0, 0)
Case 1
A2 = Array(0, 0.2, 0.6, 0.2, 0)
Case 2
A2 = Array(0, 0, 0, 0.2, 0.8)
End Select
Select Case Combo3.ListIndex
Case 0
A3 = Array(0.8, 0.2, 0, 0, 0)
Case 1
A3 = Array(0.2, 0.6, 0.2, 0, 0)
Case 2
A3 = Array(0, 0.2, 0.6, 0.2, 0)
End Select
A = Array(Join(A1, ","), Join(A2, ","), Join(A3, ","))
A = Join(A, ",")
A = Split(A, ",")
b = mabs(A)
b.Show
End Sub
你好,是这样的,mabs对于VB里的一位数组定义是不行的,我们mabs(A),A必须是二维数组,三维的用的少,就不说了,要生成一维的数组,可以用zeros或者ones语句,例如
b=zeros(1,15)
for i= 1 to 15
b(i)=i '进行赋值的语句
next i
(注意,以上语句为自己随手所编,可以进行调试使用,本人原先用过,可以良好执行,希望能有所帮助)
另外,还有greatmatrix函数也能生成矩阵,总之生成矩阵方法有很多,mabs似乎还没这些好用