【实例简介】

【实例截图】

【核心代码】

VERSION 5.00

Begin VB.Form Form1

Caption = "掷骰子"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 345

ClientWidth = 5385

FillColor = &H00FFFFFF&

LinkTopic = "Form1"

LockControls = -1 'True

ScaleHeight = 3090

ScaleWidth = 5385

StartUpPosition = 2 '屏幕中心

Begin VB.CommandButton Command2

Caption = "停 止"

Height = 375

Left = 3120

TabIndex = 2

Top = 2280

Width = 1815

End

Begin VB.CommandButton Command1

Caption = "开 始"

Height = 375

Left = 3120

TabIndex = 1

Top = 1440

Width = 1815

End

Begin VB.Shape Shape2

Height = 495

Index = 6

Left = 1920

Top = 1920

Width = 495

End

Begin VB.Shape Shape2

Height = 495

Index = 4

Left = 1920

Top = 480

Width = 495

End

Begin VB.Shape Shape2

Height = 495

Index = 5

Left = 1920

Top = 1200

Width = 495

End

Begin VB.Shape Shape2

Height = 495

Index = 3

Left = 1200

Top = 1200

Width = 495

End

Begin VB.Shape Shape2

Height = 495

Index = 2

Left = 480

Top = 1920

Width = 495

End

Begin VB.Shape Shape2

Height = 495

Index = 1

Left = 480

Top = 1200

Width = 495

End

Begin VB.Shape Shape2

Height = 495

Index = 0

Left = 480

Top = 480

Width = 495

End

Begin VB.Label Label1

Caption = "Label1"

BeginProperty Font

Name = "宋体"

Size = 21.75

Charset = 134

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 855

Left = 3000

TabIndex = 0

Top = 240

Width = 2175

End

Begin VB.Shape Shape1

Height = 2415

Left = 240

Top = 240

Width = 2415

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

num = Int(Rnd * 6) 1

Label1.Caption = num & "点"

DisPlay (num)

End Sub

Private Sub Command2_Click()

End

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

Label1.Caption = "1 点"

DisPlay (1)

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