用VB设计一个小程序 随机数

来源：百度知道 编辑：UC知道 时间：2024/05/14 18:49:31
用VB设计一个小游戏 即 2个command，一个TEXT，要求用 FOR NEXT。设计按command1就开始抽奖，随机在TEXT输入1-20的数字，同时也随机产生一个1-20中的一个数字为中奖号码，每次都不一样，输入的数字与随机产生的数字相同就在text下输出“恭喜你中奖”

Dim i%, Wei%, a#(1 To 100)
Randomize
For i = 1 To 100
Wei = Int(Rnd * 9 + 1)
Select Case Wei
Case Is = 1
a(i) = Int(Rnd * 10+1)
Case Is = 2
a(i) = Int(Rnd * 100+1)
Case Is = 3
a(i) = Int(Rnd * 1000+1)
Case Is = 4
a(i) = Int(Rnd * 10000+1)
Case Is = 5
a(i) = Int(Rnd * 100000+1)
Case Is = 6
a(i) = Int(Rnd * 1000000+1)
Case Is = 7
a(i) = Int(Rnd * 10000000+1)
Case Is = 8
a(i) = Int(Rnd * 100000000+1)
Case Is = 9
a(i) = Int(Rnd * 1000000000+1)
End Select
Next i

先画两个command（command1，command2），一个TEXT
然后输入如下程序。最好是复制
Dim a, c As Integer

Private Sub Command1_Click()
Randomize
a = Int(20 * Rnd)
End Sub

Private Sub Command2_Click()
Dim c As Integer
c = 0

Do

b = InputBox("请输入你认为中奖的号码：")
b = Val(b)

If a <> b Then
c = 0
ElseIf a =