【简单小游戏VB程序】
Private a As Long '用于计时
'timer的时间设为1000,事件写入 a = a + 1
Private Sub Timer1_Timer()
a = a + 1
End Sub
Private Sub Form_Load()
timer1.Enabled = 0
End Sub
Private Sub CommandButton1_Click()
a = Int(Rnd() * 100) '随机一个1~99的整数
timer1.Enabled = 1
Do
b = Val(InputBox("输入数字"))
If a = b Then
timer1.Enabled = 0
MsgBox "猜对了,你用了" & a & "秒"
Exit Do
ElseIf a > b Then
MsgBox "太小了"
Else
MsgBox "太大了"
End If
Loop
End Sub
【求一个简单的VB小游戏代码】
SELECT
b.BANKCD,
b.BANKNM,
BANKSNM,
(
SELECT
count( k.BANKCD)
FROM
BANKSMST1 k,
BANKSMST2 l
WHERE
k.BANKCD = 0001
AND l.BANKCD = 0001
AND rownum = 1
)
FROM
(
SELECT
c.BANKCD,
c.BANKNM,
【VB求猜数游戏的编写代码】
添加两个按钮（一个是 “生成一个数”，另一个是 “猜测”），一个label1,一个text1
所有 代码如下：
Dim a As Integer, b As Integer
Private Sub Command1_Click() '生成一个数 按钮
Label1.Visible = False 'label1 不可见
Randomize
a = Int(4 * Rnd + 1) '随机生成数字范围1~4，自己设置
Label1.Caption = a
End Sub
Private Sub Command2_Click() '猜测 按钮
b = Val(Text1.Text)
If CStr(a) = CStr(b) Then
respose = MsgBox("你答对了", vbOKOnly, "提示") '对话框只有确定按钮
Label1.Visible = True
Else
respose = MsgBox("你错了", vbRetryCancel, "提示") '对话框有重试和取消按钮
If respose = vbRetry Then
Text1.SetFocus
Text1.text =""
Else
Label1.Visible = True
End If
End If
End Sub
【求一个VB小游戏编程，要有代码的。。】
15分太少.没有直接的.我也不想写.
【用vb编写推箱子小游戏】
因为第四部已经将故事说完了，所以没有第五部，有的话也应该是第一部的外传，名字就是斗罗大陆外传。
【求推箱子小游戏的VB代码】
你在家好好练，比赛当天弄死他
