Private Sub Command1_Click()Dim aq As IntegerDim bq As IntegerDim a() As Integer, b() As Integer
'a(),b()要先定义，未知维数定义为动态数组aq = Val(Text1.Text)bq = Val(Text2.Text)ReDim a(aq), b(bq)
'重新定义动态数组a(),b()
Dim I As Integer, J As Integer, K As Integer
Form1....
