大侠帮帮忙 急解决思路

大侠帮帮忙 急急
请问各位大侠，谁有复合形法的VB程序，给我一个，现在很需要，急急急急急急急急 谢谢

[解决办法]

VB code

Private Sub Command1_Click()Dim xx(10, 10)For j = 1 To 10   xx(1, j) = Val(InputBox("请输入xx(" & j & ")"))NextEnd Sub
[解决办法]
这样总行了吧
VB code
dim j as integerfor j=1 to n                            ' For j = 1 To n                                        '   Print "xx("; j; ")="xx(1,j)=val(inputbox("xx("+j+")=?"))    '   input xx(1,j)                                        '   Print "A("; j; ") = "A(j)=val(inputbox("A("+j+") = ?"))      '   input A(j)                                        '   Print "B("; j; ") = "B(j)=val(inputbox("B("+j+") = ?"))      '   input B(j)next                                    ' Next j