UC知道VB编程求助
来源：百度知道 编辑：UC知道 时间：2024/05/22 09:55:29
一个题目是：利用随机数生成两个矩阵。
但做的时候怎么都无法生成 35 36 52 56这种样式，并且若两个随机矩阵
45 75 25 89
A=12 45 76 28
45 25 76 35
同时在FOR---NEXT语句中生成，这两个随机总是混杂在一块，根本都没法说同时输出是两个矩阵。
本问题的需要较强的实效性，太晚解决出来就没有太大的意义了。所以现在先叫10分，那位仁兄若能及时帮忙解决，一定追分！先谢了！
但做的时候怎么都无法生成 35 36 52 56这种样式，并且若两个随机矩阵
45 75 25 89
A=12 45 76 28
45 25 76 35
同时在FOR---NEXT语句中生成，这两个随机总是混杂在一块，根本都没法说同时输出是两个矩阵。
本问题的需要较强的实效性，太晚解决出来就没有太大的意义了。所以现在先叫10分，那位仁兄若能及时帮忙解决，一定追分！先谢了！
加个分号
Private Sub Form_Click()
Dim A(4, 4) As Integer, B(4, 4) As Integer, C(4, 4) As Integer, i%, j%
Randomize
For i = 1 To 4
For j = 1 To 4
A(i, j) = Int(Rnd * 41 + 30)
B(i, j) = Int(Rnd * 35 + 101)
C(i, j) = A(i, j) + B(i, j)
s1 = s1 & A(i, j) & " "
s2 = s2 & B(i, j) & " "
s3 = s3 & C(i, j) & " "
Next j
s1 = s1 & vbCrLf
s2 = s2 & vbCrLf
s3 = s3 & vbCrLf
Next i
Print s1
Print
Print s2
Print
Print s3
End Sub
Option Base 1
Option Explicit
Private Sub Form_Load()
Dim A(4, 4) As Integer, B(4, 4) As Integer, C(4, 4) As Integer, i%, j%
dim strA as string ,strB as string ,strC as string
Randomize
strA="矩阵A第1行"
strB="矩阵B第1行"
strC="矩阵C第1行"
For i = 1 To 4
For j = 1 To 4
A(i, j) = Int(Rnd * 41 + 30)
B(i, j) = Int(Rnd * 35 + 101)
C(i, j) = A(