文件名称:vb程序设计,用vb设计矩阵,很好用,进来试试吧!
文件大小:11KB
文件格式:FRM
更新时间:2012-07-26 13:29:30
矩阵
此矩阵相当好。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 部分代码相当专业。