Dim a As Integer
Dim b As Integer
a = Int(Rnd * 100)
s1 = "请输入"
For i = 1 To 10
b = InputBox(s1, "猜一猜")
If b > a Then
s1 = "请输入(大了)"
ElseIf b < a Then
s1 = "请输入(小了)"
Else
MsgBox "恭喜在第" & i & "次猜中了", vbInformation, "猜一猜"
Exit For
End If
Next i
If i > 10 Then
'猜题结束
MsgBox "你真衰,(答案是" & a & ")" & vbCrLf & "猜题结束", vbInformation, "猜一猜"
End If
就是太多了 精简一下也可以
VB猜字游戏程序代码
if win=1 then wscript.echo "你猜对了。" else wscript.echo "你没猜对。"\/\/\/ 上面是我写过的一个小游戏。把斜线以上的部分复制到一个文档中，后缀名改为*.vbs，直接双击试试看效果：）参考资料：我的经历
VB中猜数字游戏请高手帮忙啊。
CInt(InputBox("请输入猜测数字！"))If a = s Then MsgBox ("恭喜你猜对了")End End If If a > s Then MsgBox ("对不起,你猜小了！")End If If a < s Then MsgBox ("对不起，你猜大了！")End If Next i End 这就是主要代码了，至于你说要两个窗体，个人感觉有点多余 ...
求助!关于用vb写猜数字游戏的代码!网上难找到符合要求的!
Private Sub Command1_Click()Dim n As Integer, i As Integer, a As IntegerRandomizen = Int(Rnd * 100) + 1For i = 1 To 10 a = Val(InputBox("请猜：")) If a = n Then MsgBox "猜中了，恭喜你！" Exit Sub ElseIf a < n Then MsgBox "太小了，继续...
VB猜数字游戏程序代码
Option Explicit Private Sub Command1_Click()On Error Resume Next Dim I As Integer I = MsgBox("下面游戏开始，你准备好了吗？", vbYesNo)If I = 6 Then Frame1.Visible = True: Text1 = "" Else Frame1.Visible = False Text1.SetFocus Randomize (Timer)Text2 = Int(Rnd() * 10...
帮我用vb编写一个猜数字的小游戏,数字1到100,程序语言3到5行即可...
画个text1和command1 Private Sub Command1_Click()Dim a As Long a = Rnd * 100 MsgBox IIf(a = Val(Text1), "你猜对了，数字是:" & a, "你猜错了，正确答案是:" & a)End Sub
VB猜数字游戏!
代码也做了一些调整，你看看吧：Dim c As Long Private Sub Command1_Click()c = Int(100 * Rnd + 1)End Sub Private Sub CommandOK_Click()Dim b As Long b = Val(InputBox("请输入一个数字(1-100)", "猜数字"))Select Case b Case Is > 100 Or b < 1:MsgBox "请输入正确的...
VB猜数字游戏程序源代码和思路只可以猜三次
x = Int(Rnd * 10 + 1)Do While y < 3 y = y + 1 n = Val(InputBox(""))If n = x Then MsgBox "猜对了"Exit Do Else If n > x Then MsgBox "猜大了" & "已猜" & y & "次" & "还有" & 3 - y & "机会"Else MsgBox "猜小了" & "已猜" & y & "次" &...
VB制作小游戏源代码
猜数字 建一个文本文档，输入以下代码，后缀改为.frm用vb打开就可以了 以下是程序源码：VERSION 5.00 Begin VB.Form Form1 BorderStyle = 3 'Fixed Dialog Caption = "猜数游戏"ClientHeight = 3900 ClientLeft = 45 ClientTop = 435 ClientWidth = 4680 ...
VB猜数字游戏
这样每次生成的随机序列就不同了。还有啊，rnd返回大于等于0小于1的单精度数值，而int只是取整，不会四舍五入，所以要用int(10*rnd)才能得到0到9的整数，9*rnd只能得到0到8的整数。赋值的时候你要注意数据类型，label是字符串的，a1是整数，因此&在那里是与运算符，而不是字符串连接符。
vb编的猜数字小游戏……不管输入什么数字都显示“数字太大”……求...
Print "正确答案是：" & a End Sub Private Sub Command1_Click() Dim b As Integer b = Val(InputBox("请输入一个数字(1-100)"))If b > 100 Or b < 1 Then MsgBox ("输入错误!")ElseIf b = a Then MsgBox ("过关!")ElseIf b > a Then MsgBox ("数字太大")Else MsgBox...
