Private Sub Command_Click()
Dim hh As New achao.achao
Dim V As Variant,S As Variant,ICT1 As Variant
Dim n As Single,n1 As Single,isb As Single,pr As Single
Dim i As Integer,j As Integer
n=Val(Text1.Text)
n1=Val(Text2.Text)
isb=Val(Text3.Text)
pr=Val(Text4.Text)
Call hh.chao(4,Y,ICT1,V,S,n,n1,isb,pr)
Text5.Text=ICT1
For i= 1 To 1
For i= 1 To 5
Print V(i,j);
Next
Print
Next
。
。
。
End Sub
那S怎样编程输出来呢还有Y(S结果是的1行5列复数矩阵,Y是5行5列的复数矩阵)
[
本帖最后由 vb1769452862 于 2014-4-26 14:42 编辑 ]