怎样样用VB编一个小顺序 在一个3*3 的九宫格里 按一个按键 可以随机发生1-99的随机数字然后还有另外按键是 求 发生数字后 横向的和 竖向的和 和对角线的和 同理 第三个按键是 横向 竖向

怎样样用VB编一个小顺序 在一个3*3 的九宫格里 按一个按键 可以随机发生1-99的随机数字然后还有另外按键是 求 发生数字后 横向的和 竖向的和 和对角线的和 同理 第三个按键是 横向 竖向
怎样样用VB编一个小顺序 在一个3*3 的九宫格里 按一个按键 可以随机发生1-99的随机数字
然后还有另外按键是 求 发生数字后 横向的和 竖向的和 和对角线的和 同理 第三个按键是 横向 竖向 和对角线的 乘积.....

怎样样用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