Question

如何在vb的窗体中并排输入两个矩阵？

我的程序如下，但ABCD四个矩阵都是竖排排列的，我想让AB并列，CD并列，请问该怎么改？
Option Base 1
Private Sub Form_load()
Dim a(3, 4) As Integer, b(3, 4) As Integer, c(3, 4) As Integer, d(3, 4) As Integer
Show
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(89 * Rnd + 10)
Next j
Next i

Print "A矩阵为："
Print
For i = 1 To 3
For j = 1 To 4
Print Tab(5 * j); a(i, j);
Next j
Print
Next i
For i = 1 To 3
For j = 1 To 4
b(i, j) = Int(10 * Rnd + 0)
Next j
Next i
Print "B矩阵为："
Print
For i = 1 To 3
For j = 1 To 4
Print Tab(5 * j); b(i, j);
Next j
Print
Next i

Print "C矩阵为："
Print
For i = 1 To 3
For j = 1 To 4
c(i, j) = a(i, j) + b(i, j)

Print Tab(5 * j); c(i, j);
Next j
Print
Next i

Print "D矩阵为："
Print
For i = 1 To 3

For j = 1 To 4
d(i, j) = a(i, j) - b(i, j)

Print Tab(5 * j); d(i, j);
Next j
Print
Next i

End Sub

Answer 1

参考这个：
Option Base 1

Private Sub Form_load()
Dim a(3, 4) As Integer, b(3, 4) As Integer, c(3, 4) As Integer, d(3, 4) As Integer
Show
Print "A矩阵为：", "", "B矩阵为："
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(89 * Rnd + 10)
b(i, j) = Int(10 * Rnd + 0)
Next j
Print a(i, 1); a(i, 2); a(i, 3), "", b(i, 1); b(i, 2); b(i, 3)
Next i

End Sub

追问

可是AB矩阵不是随机的了，变成了固定不变的

追答

Option Base 1

Private Sub Form_load()
Randomize '加上这个
Dim a(3, 4) As Integer, b(3, 4) As Integer, c(3, 4) As Integer, d(3, 4) As Integer
Show
Print "A矩阵为：", "", "B矩阵为："
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(89 * Rnd + 10)
b(i, j) = Int(10 * Rnd + 0)
Next j
Print a(i, 1); a(i, 2); a(i, 3), "", b(i, 1); b(i, 2); b(i, 3)
Next i

End Sub

追问

可是二位数和三位数就对不齐了，问题的本质是矩阵对齐而不是一行一行对齐

追答

矩阵对齐而不是一行一行对齐 什么意思？
试验1：
Option Base 1
Private Sub Form_Load()
Randomize '加上这个
Dim a(3, 4) As Integer, b(3, 4) As Integer, c(3, 4) As Integer, d(3, 4) As Integer
Show

Print "A矩阵为：", "", "B矩阵为："
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(89 * Rnd + 10)
b(i, j) = Int(10 * Rnd + 0)
Next j
Print fix5(a(i, 1)) & fix5(a(i, 2)) & fix5(a(i, 3)), fix5(b(i, 1)) & fix5(b(i, 2)) & fix5(b(i, 3))
Next i
Print
Print "C矩阵为：", "", "D矩阵为："
For i = 1 To 3
For j = 1 To 4
c(i, j) = a(i, j) + b(i, j)
d(i, j) = a(i, j) - b(i, j)
Next j
Print fix5(c(i, 1)) & fix5(c(i, 2)) & fix5(c(i, 3)), fix5(d(i, 1)) & fix5(d(i, 2)) & fix5(d(i, 3))
Next i
End Sub

Private Function fix5(n As Integer) As String
Dim m As String
Dim nLen As Byte
m = CStr(n)
nLen = Len(m)
m = String(5 - nLen, " ") & m
fix5 = m
End Function

试验2：
Option Base 1
Private Sub Form_Load()
Randomize '加上这个
Dim a(3, 4) As Integer, b(3, 4) As Integer, c(3, 4) As Integer, d(3, 4) As Integer
Show

Print "A矩阵为：", "B矩阵为："
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(89 * Rnd + 10)
b(i, j) = Int(10 * Rnd + 0)
Print a(i, j), b(i, j)
Next j
Next i

Print
Print "C矩阵为：", "D矩阵为："
For i = 1 To 3
For j = 1 To 4
c(i, j) = a(i, j) + b(i, j)
d(i, j) = a(i, j) - b(i, j)
Print c(i, j), d(i, j)
Next j
Next i
End Sub

不知道你想怎样

Answer 2

使用vscroll和hscroll控件，在其SCOLL事件中加入代码,举例如:
dim x as control
for each x in form1.controls
x.top=x.top+1
next