求一个丢骰子的VB代码

如题。。求一个丢骰子的VB代码。。。一颗骰子就行。。。在界面上留一个CommandButton按钮  一点这个按钮  窗口里就会随机显示骰子的一个面。两点  三点 或者几点都行。。。求解答。。。我是VB白痴。。。希望有教科书试的答案。。
比如 要在窗体上建立什么控件。。。等等

追问：啥子标签？能不能像骰子一样排列啊。。1点和4点是红色的。。。其他的是黑的。。。额。。。还是没达到想要的效果。。。我是想要   一点的话就大一点  显示在中间。  亮点的话就分别在左上和右下    能搞定不？额。。。不用太标准。。。只是我不知道怎么弄控件   主窗口上只要有两个控件就行了  一个command控件  另一个不知道是啥子控件

答案：'画一个标签，一个按钮，复制以下代码
Private Sub Command1_Click()  '按钮
   x = Int(Rnd * 6) + 1    '[1,6]的随机数
   Label1.Caption = String(x, "◇")   '标签中出现相应个数的◇
End Sub

其他：教科书似的答案？晕了。 只要一个commandbutton
Function iShow(a As Integer)
Select Case a
     Case 1
     Print Tab(25); "●"
     Case 2
     Print Tab(25); "●●"
     Case 3
     Print Tab(25); " ●"
     Print Tab(25); "●●"
     Case 4
     Print Tab(25); "●●"
     Print Tab(25); "●●"
     Case 5
     Print Tab(25); "●●"
     Print Tab(25); " ●"
     Print Tab(25); "●●"
     Case 6
     Print Tab(25); "●●"
     Print Tab(25); "●●"
     Print Tab(25); "●●"
End Select
End Function

Private Sub Command1_Click()
Dim a As Integer
Form1.Cls
Randomize
a = Int(Rnd() * 6) + 1
iShow (a)
End Sub 

上一个：vb程序设计 将阿拉伯数字转换成大写人民币金额 这是小弟的VB结课设计，跪求各位大神~
下一个：你好，你说的那套“国家计算机等级考试真题的光盘”，里边有C,C++,VB。。。。在哪里找到的啊？我也想找个