vb程序设计,用vb设计矩阵,很好用,进来试试吧!
此矩阵相当好。Private Sub Command1_Click() Dim i%, j% For i = 1 To 7 For j = 1 To 7 'a(i, j) = Int(Rnd * (3 * i + 4 * j)) + 30 ' b(i, j) = Int(Rnd * (3 * i + 4 * j)) + 100 c(i, j) = a(i, j) + b(i, j) Next j Next i For i = 1 To 7 For j = 1 To 7 'Picture1.Print Tab(7 * j); a(i, j); ' Picture2.Print Tab(7 * j); b(i, j); Picture3.Print Tab(7 * j); c(i, j); Next j Next i End Sub 部分代码相当专业。
0
52
11KB
2009-07-06
9