Question

本人跪求用VB6.0编写一小游戏源文件（工程文件，窗体文件....)

例如猜数 简单连连看 抽奖等
要快
答得好有加分

Answer 1

猜数
Public A As Integer
Public B As Integer
Public C As Integer
-------------------------------------------------
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入数字！"
Else

If Text1.Text > C Then
MsgBox "太大！"
ElseIf Text1.Text < C Then
MsgBox "太小！"
Else
MsgBox "你猜对了！"
End
End If

End If

End Sub
--------------------------------------------------
Private Sub Form_Load()
Randomize
A = Rnd(5) * 30
Randomize
B = Rnd(17) * 20
C = A + B * 10
End Sub
----------------------------------------------------
注：Private Sub Form_Load()中的内容可自己更改，希望对你有用！