用命令安钮，求VB编程代码.题目:该过程是猜数游戏,由计算机产生一个[1,l00]的任意整数,

Option Explicit
Public x As Integer
Public a, b, c, d, e As Long
Public f, g, h, i, j As Long '把这上面的代码放到窗体最上面的通用过程
'===============================================
Private Sub Command1_Click()
Dim ms As String
ms = Chr(13)
x = x + 1
Dim s As Long
On Error GoTo err
s = InputBox("请输入1到100的数字", "提示:这是你的第" & x & "次输入")
Select Case x
Case 1
a = Int(Rnd * 100) + 1
f = s
If s = a Then
MsgBox "恭喜你猜对了", 64, "提示"
x = 0
End If
Case 2
b = Int(Rnd * 100) + 1
g = s
If s = b Then
MsgBox "恭喜你猜对了", 64, "提示"
x = 0
End If
Case 3
c = Int(Rnd * 100) + 1
h = s
If s = c Then
MsgBox "恭喜你猜对了", 64, "提示"
x = 0
End If
Case 4
d = Int(Rnd * 100) + 1
i = s
If s = d Then
MsgBox "恭喜你猜对了", 64, "提示"
x = 0