Question

简单小游戏VB程序

求一个用VB制作的小游戏的编程！简单的就行！做好后发给我~可追加分！
huoxumoutian@hotmail.com 字体最好用英文！
急求！很简单的就行！

Answer 1

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

追问

能不能发到我邮箱上？我看不太懂。。
huoxumoutian@hotmail.com

追答

发给你了

追问

a b是什么？怎么在编写程序里写出来？

追答

a b 就是个变量 不是控件名 你把它换成 c d 也行。
a 是计时用的
b 是InputBox 返回值存贮的地方

Answer 2

别急，不知道能否打开。（意思是最好安个VB）
还有谁要？
邮箱：
1257748127@qq.com
上面是程序代码。

追问

ni fa le ma ?

追答

发了，如没收到，再发一次
其他人要的话，写信

追问

打不开 你直接把程序粘在这里行吗 行的话把分给你！

追答

那我把所有都发过来，包括其他代码，粘不上

Answer 3

求一个用VB制作的小游戏的编程

Answer 4

已送出拼图

追问

要用VB能打开的格式行吗

追答

你是不是要VB的源代码，VBP文件，保存的东西都要？