一个简单的抢30游戏

2025-01-24 05:29:24

推荐回答（2个）

回答1：

Dim N%
dim you%
Private Sub Form_Load()
N=Val( InputBox("请输入30 或50或100") )
End Sub
Private Sub Command1_Click()
dim yu%
yu=N
Print "抢"& N & "游戏现在开始，请你先猜。你可以抢1到4这间的任意数!"
For i = 5 To N Step 5
Do While 1
you =val( InputBox("你抢几?") )
If you >= i Then
Print "你抢的数是：" + you + "。对不起，你犯规!"
Else
Exit Do
End If
Loop
Print "你抢的数是" + you
Print "我抢的数是" + Str(5- you)
yu= 30-i
Print "还剩" & yu
Next i
Print "我赢了"
End Sub

回答2：

什么呀