VB猜数字游戏

Question

求高手修改 谢谢
Dim A1, B1, C1, D1 As Integer
Dim a, b, c, d As Integer

Private Sub Command1_Click()
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
A1 = Int(9 * Rnd)
Do
B1 = Int(9 * Rnd)
Loop While B1 = A1
Do
C1 = Int(9 * Rnd)
Loop While C1 = A1 Or C1 = B1
Do
D1 = Int(9 * Rnd)
Loop While D1 = A1 Or D1 = B1 Or D1 = C1
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Label1 = Clear
Label2 = Clear
End Sub
Private Sub Command2_Click()
Dim X, Y As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
If a = A1 Then
X = X + 1
ElseIf a = B1 Or a = C1 Or a = D1 Then
Y = Y + 1
End If
If b = B1 Then
X = X + 1
ElseIf b = A1 Or b = C1 Or d = D1 Then
Y = Y + 1
End If
If c = C1 Then
X = X + 1
ElseIf c = A1 Or c = B1 Or c = D1 Then
Y = Y + 1
End If
If d = D1 Then
X = X + 1
ElseIf d = A1 Or d = B1 Or c = C1 Then
Y = Y + 1
End If
If Text1.Text = Text2.Text Or Text1.Text = Text3.Text Or Text1.Text = Text4.Text Or Text2.Text = Text3.Text Or Text2.Text = Text4.Text Or Text3.Text = Text4.Text Then
Label1.Caption = "禁止重复"
Else: Label1.Caption = X & "X" & Y & "Y"
End If
End Sub

Private Sub Command3_Click()
Label2 = A1 & B1 & C1 & D1
End Sub

Answer 1

在使用rnd函数之前，要先用randomize语句初始化，rnd函数就会以系统时间作为种子，这样每次生成的随机序列就不同了。还有啊，rnd返回大于等于0小于1的单精度数值，而int只是取整，不会四舍五入，所以要用int(10*rnd)才能得到0到9的整数，9*rnd只能得到0到8的整数。赋值的时候你要注意数据类型，label是字符串的，a1是整数，因此&在那里是与运算符，而不是字符串连接符。

Answer 2

Private Sub Command1_Click()
If Command1.Caption = "猜猜看(&OK)" Then
Label1.Caption = "猜猜看,1-99它会是什么数"
mm:
Command1.Caption = "开始(&OK)"
bb = InputBox("请输入1个2位数的数字", "猜猜看", "00")
If Not IsNumeric(bb) Or Not bb <> "" Then
MsgBox "输入的不是数字或没有输入", 32, "友情提示"
GoTo mm
End If
If bb >= 100 Then
MsgBox "你输入的数大于100", 32, "友情提示"
GoTo mm
End If
End If
If Command1.Caption = "开始(&OK)" Then
For b = 1 To 2000
Randomize
a = Int(Rnd * 9 + 1)
c = Int(Rnd * 9)
Label3.Caption = ""
Text1.PasswordChar = "*"
Text1.Text = "" & a & "" & c & ""
Label1.Caption = "" & a & "" & c & ""
DoEvents
Next
Command1.Caption = "猜猜看(&OK)"
Text1.PasswordChar = ""
If Text1.Text = bb Then
Label1.Caption = "厉害,这都被你猜到了!"
am = Int(Rnd * 3 + 1)
If am = 1 Then
Label3.Caption = "新年快乐!祝你年年有今日,岁岁有今朝.平安无事,万事大吉@_@!!"
End If
If am = 2 Then
Label3.Caption = "哈哈,祝你年年鱼,岁岁平安!"
End If
If am = 3 Then
Label3.Caption = "运气真的很不错!"
End If
Else
Label1.Caption = "哈哈,你猜错了!你输入的是" & bb & ""
ai = Int(Rnd * 3 + 1)
If ai = 1 Then
Label3.Caption = "哈哈,你今天的运气不是一般的倒霉哦!"
End If
If ai = 2 Then
Label3.Caption = "嗯,你今天果然踩了狗屎运,手气很不错!一定要去买彩票!"
End If
If ai = 3 Then
Label3.Caption = "今年你会很倒霉的!!O(∩_∩)O~"
End If
End If
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "猜猜看(&OK)"
Me.Caption = "猜数字"
End Sub

这是我做的程序,缩短了很多代码