老师要求做一个剪刀石头布的VB,但RND没学过,不会!

搜索一下
这里贴子好多�

Randomize＋Rnd

参考帖子: 

【有许多的同志没有完全了解 Rnd 随机乱数的真正用法】 
http://post.baidu.com/f?kz=90544242 


【CBM666 数组开班】 
http://post.baidu.com/f?kz=94701635 


【全屏，随机，划线，保存图片】 3F 添加 Timer1 Timer2 
http://post.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=1145578874&z=133904829&pn=0&rn=50&lm=0&word=vb#1145578874

内容很简单,自己多改一下！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Dim x As Integer

Private Sub Command1_Click()
Randomize
x = Fix(3 * Rnd)
If x = 1 Then MsgBox "你是石头我是布，我赢了"
If x = 2 Then MsgBox "我们都是石头，打平了"
If x = 3 Then MsgBox "你是石头我是剪刀，你赢了"
End Sub

Private Sub Command2_Click()
Randomize
x = Fix(3 * Rnd)
If x = 1 Then MsgBox "你是剪刀我是布，你赢了"
If x = 2 Then MsgBox "你是剪刀我是石头，我赢了"
If x = 3 Then MsgBox "我们都是剪刀，打平了"
End Sub

Private Sub Command3_Click()
Randomize
x = Fix(3 * Rnd)
If x = 1 Then MsgBox "我们都是布，打平了"
If x = 2 Then MsgBox "你是石头我是布，我赢了"
If x = 3 Then MsgBox "你是布我是石头，你赢了"
End Sub

Private Sub Form_Load()
Command1.Caption = "石头"
Command2.Caption = "剪刀"
Command3.Caption = "布"
End Sub

怎么改啊!我看老师做的程序只让我们输入1.2.3
表示石头剪刀布,帅哥发的不一样!

晕！

哈哈哈, 楼上的, 我先替你晕...

楼主, 你提供三张剪刀石头布的图片, 我替你搞个漂亮的 1 2 3

^_^，他不是要个简单的的嘛！而且我也想就在这个上面贴个代码！

用index