这个我不会 在线等待解决 急.....
如何把label中随机产生的数字 弄成4*3的矩阵啊!
这是我弄的 谁帮我看看啊 谢谢拉
Private Sub Form_Load()
Dim a(1 To 12) As Integer
Dim s As String
Dim n As Integer
Randomize
For i = 1 To 12
a(i) = Int(Rnd * 90) + 10
Label2.Caption = Label2.Caption & Str(a(i))
Next i
Dim k As Integer
k = 1
For i = 1 To 12
If a(k) < a(i) Then
k = i
End If
Next i
Label4.Caption = a(k)
End Sub