Question

求助求高手帮忙写下vb代码。题目彩票随机抽奖机。只有一个按钮，点击按钮出现一个inputbox信息，

输入一个三位数，判读这数是i否与随机数相同，相同则中奖，不同则不中，随机数不能超过四位，第一位可以是0

Answer 1

Private Sub Command1_Click()
Dim a$, b$
Randomize
a = Format(Int(Rnd * 1000), "000")
b = InputBox("请输入3位数")
If Val(b) > 0 And Val(b) < 1000 And Len(b) = 3 Then
If b = a Then
MsgBox "你中奖啦！"
Else
MsgBox "你没有中奖，中奖号码是" & a
End If
Else
MsgBox "请输入正确数字"
End If
End Sub

Answer 2

Private Sub Command1_Click()
Randomize
x = Int(Rnd() * 1000)
y = InputBox("input a number:")
If x = y Then
MsgBox "恭喜你中奖了"
Else
MsgBox "中奖号码是：" & x & "你猜的号码是：" & y & "很遗憾，你没有中奖，继续加油"
End If
End Sub

Answer 3

Dim a
a=Int((100 * Rnd) + 1)

Rnd 产生随机数
a 是把产生的随机数放在那
Int 取整数部分
100 最大是多少（从0开始）
+1 使他从1开始