Private
Sub
Command1_Click()
Dim
a
As
Long
a
=
Rnd
*
100
MsgBox
IIf(a
=
Val(Text1),
"你猜对了，数字是:"
&
a,
"你猜错了，正确答案是:"
&
a)
End
Sub
所以要建一个生成新数字按钮command2
如果不想猜又想答案的话还要加一个command3显示答案，这里就显示在text1里
private
sub
command2click()
x=
Int(Rnd()
*
100)
end
sub
Private
Sub
Command1_Click()
if
val(text1.text)>x
then
msgbox
"太大了"
elseif
val(text1.text)
评论
0
0
加载更多
帮我用vb编写一个猜数字的小游戏,数字1到100,程序语言3到5行即可.
100 MsgBox IIf(a = Val(Text1),"你猜对了，数字是:"& a,"你猜错了，正确答案是:"& a)End Sub
VB猜字游戏程序代码
str=str+chr(13)+b(1)+b(2)+b(3)+b(4)+space(2)+cstr(c)+"A"+cstr(d)+"B"wscript.echo str loop if win=1 then wscript.echo "你猜对了。" else wscript.echo "你没猜对。"\/\/\/ 上面是我写过的一个小游戏。把斜线以上的部分复制到一个文档中，后缀名改为*.vbs，直接双击试...
VB猜数字游戏程序代码
Private Function Jysz() As Boolean Text3 = Val(Text3) + 1 If Val(Text1) = Val(Text2) Then MsgBox "猜对了，你真棒" & Chr(13) & Chr(10) & "请猜下一个……"Command1_Click ElseIf Val(Text1) > Val(Text2) Then MsgBox "猜大了。"Else MsgBox "猜小了。"End If Tex...
VB猜数字游戏!
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 "请输入正确的值!"Exit Sub Case c:txt.Text = b & " 恭喜...
用VB语言编写一个猜数字的游戏
Private Sub Form_Load()'程序运行行时 '初始化 For i = 0 To 9 Command1(i).Enabled = False Next i Command2.Enabled = False Command3.Enabled = False View.Enabled = False End Sub Private Sub New_Click()'开始一个新游戏时 View.Enabled = True '可以看答案 List1.Clear '清空...
求助!关于用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猜数字游戏
在使用rnd函数之前，要先用randomize语句初始化，rnd函数就会以系统时间作为种子，这样每次生成的随机序列就不同了。还有啊，rnd返回大于等于0小于1的单精度数值，而int只是取整，不会四舍五入，所以要用int(10*rnd)才能得到0到9的整数，9*rnd只能得到0到8的整数。赋值的时候你要注意数据类型，label是...
vb猜数字游戏程序编写
手机版 我的知道 搜索答案 vb猜数字游戏程序编写 20 编写的时候遇到了几个问题,希望可以帮我解决一下 1.怎样用随机函数产生一个1~10之间的整数 2.怎么才能使在输入三次数字后结束程序。 以下是我的代码 Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer Dim myvalue myv.....
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设计一个猜数字的游戏软件
n=int(rnd*(100))val(text1.text)<n
