Private Sub Command1_Click()
num = Int(Rnd * 6) + 1      '获取一个1-6之间的随机数
Label1.Caption = num & "点" '标签显示
DisPlay (num)               '根据这个随机数，决定相关的的Shape2控件是否可见
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 '7个Shape2控件数组都设置为不可见
Next i
For i = 0 To 6
 If i <> 2 Or i <> 4 Then
 Shape2(i).FillColor = &H0& ’除了索引号为2、4的Shape2控件数组的其它5个，填充颜色都设为黑色
 End If
Next i
Select Case a '根据输入参数分别处理哪个Shape2是否可见：
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