VB编程：掷骰子游戏

Private Sub Command1_Click()

   Timer1.Enabled = True  '开始

 

End Sub

Private Sub Command2_Click()

   Timer1.Enabled = False   '停止

   num = Int(Rnd * 6) + 1

   Label1.Caption = num & "点"

   Display (num)

End Sub

Private Sub Form_Load()

   For i = 0 To 6             '初始化

       Shape2(i).FillColor = &H0&

       Shape2(i).FillStyle = 0

       Shape2(i).Shape = 3

       Shape2(i).Visible = False

     

   Next i

   Shape1.FillColor = &HFFFFFF

   Shape1.FillStyle = 0

   Shape1.Shape = 5

   Randomize Timer

   Timer1.Enabled = False

   Timer1.Interval = 50

   Label1.Caption = "1 点"

 

   Display (1)

End Sub

Private Sub Timer1_Timer()

   Randomize

   num = Int(Rnd * 6) + 1

   Label1.Caption = num & "点"

   Display (num)

End Sub

Sub Display(a)

   For i = 0 To 6

       Shape2(i).Visible = False

   Next i

   For i = 0 To 6

       If i <> 2 Or i <> 4 Then

           Shape2(i).FillColor = &H0&

       End If

   Next i

   Select Case a

       Case 1

           Shape2(3).FillColor = &H0&

           Shape2(3).Visible = True

       Case 2

         

           Shape2(0).Visible = True

           Shape2(6).Visible = True

       Case 3

           Shape2(0).Visible = True

           Shape2(3).Visible = True

           Shape2(6).Visible = True

         

       Case 4

          For i = 0 To 6

               If i = 0 Or i = 2 Or i = 4 Or i = 6 Then

                   Shape2(i).Visible = True

               End If

           Next i

       Case 5

           For i = 0 To 6

               If i = 0 Or i = 2 Or i = 3 Or i = 4 Or i = 6 Then

                   Shape2(i).Visible = True

               End If

           Next i

       Case 6

          For i = 0 To 6

               If i <> 3 Then

                   Shape2(i).Visible = True

               End If

           Next i

         

   End Select

End Sub