0
点赞
收藏
分享

微信扫一扫

VB编程:掷骰子游戏-55_彭世瑜_新浪博客

VB编程:掷骰子游戏-55_彭世瑜_新浪博客_游戏​​


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 

举报

相关推荐

0 条评论