怎样样用VB编一个小顺序 在一个3*3 的九宫格里 按一个按键 可以随机发生1-99的随机数字

创建一个九个控件的label1的数组,3个command,1个label2,label1的borderstyle=1,按index排列
012
345
678
源代码如下。
Private a As Integer, b As Integer, h1 As String, h2 As String, h3 As String, s1 As String, s2 As String, s3 As String, x1 As String, x2 As String
Private Sub Command1_Click()
a=0
Do
If a = 9 Then
Exit Do
Else
b = Int(Rnd * (99) + 1)
Label1(a)。Caption = b
a = a + 1
End If
Loop
End Sub
Private Sub Command2_Click()
h1 = Val(Label1(0)) + Val(Label1(2)) + Val(Label1(1))
h2 = Val(Label1(3)) + Val(Label1(4)) + Val(Label1(5))
h3 = Val(Label1(6)) + Val(Label1(8)) + Val(Label1(7))
s1 = Val(Label1(0)) + Val(Label1(3)) + Val(Label1(6))
s2 = Val(Label1(1)) + Val(Label1(4)) + Val(Label1(7))
s3 = Val(Label1(2)) + Val(Label1(5)) + Val(Label1(8))
x1 = Val(Label1(0)) + Val(Label1(4)) + Val(Label1(8))
x2 = Val(Label1(2)) + Val(Label1(4)) + Val(Label1(6))
Label2。Caption = "横向的和(1)" & h1 + vbNewLine & "横向的和(2)" & h2 & vbNewLine & "横向的和(3)" & h3 & vbNewLine & "竖向的和(1)" & s1 & vbNewLine & "竖向的和(2)" & s2 & vbNewLine & "竖向的和(3)" & s3 & vbNewLine & "斜向的和(1)" & x1 & vbNewLine & "斜向的和(2)" & x2 & vbNewLine
End Sub
Private Sub Command3_Click()
h1 = Val(Label1(0)) * Val(Label1(2)) * Val(Label1(1))
h2 = Val(Label1(3)) * Val(Label1(4)) * Val(Label1(5))
h3 = Val(Label1(6)) * Val(Label1(8)) * Val(Label1(7))
s1 = Val(Label1(0)) * Val(Label1(3)) * Val(Label1(6))
s2 = Val(Label1(1)) * Val(Label1(4)) * Val(Label1(7))
s3 = Val(Label1(2)) * Val(Label1(5)) * Val(Label1(8))
x1 = Val(Label1(0)) * Val(Label1(4)) * Val(Label1(8))
x2 = Val(Label1(2)) * Val(Label1(4)) * Val(Label1(6))
Label2。Caption = "横向的积(1)" & h1 & vbNewLine & "横向的积(2)" & h2 & vbNewLine & "横向的积(3)" & h3 & vbNewLine & "竖向的积(1)" & s1 & vbNewLine & "竖向的积(2)" & s2 & vbNewLine & "竖向的积(3)" & s3 & vbNewLine & "斜向的积(1)" & x1 & vbNewLine & "斜向的积(2)" & x2 & vbNewLine
End Sub
Private Sub Form_Load()
Label2。Caption = ""
a = 0
End Sub
再问： 谢谢 我等了半天没人回答 自己写出来了。。。 您写的稍微有点麻烦 但还是很感谢~~~~