这个VB程序为什么怎么运行结果都是0呢?

想实现一个猜数字的游戏,随机产生一个数，然后让人猜，但是运行完后，结果总是0 ，好像没有产生随机效果阿 问题出在哪啊？哪位高手告我一下阿 谢谢了
源码如下
Private Sub Form_Load()
Cls
Randomize
Number = Int(Rnd * 100) + 1
MsgBox "计算机设置了一个1-100之间的整数,请你猜出这个数是多少，如果输入-1，则停止猜数，并告你答案"
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim guess, diff, k As Integer
If KeyCode = 13 Then
guess = Val(Text1.Text)
If guess = -1 Then MsgBox "要猜得数是" & Number: Exit Sub
diff = Abs(Number - guess)
If diff = 0 Then
k = 0
ElseIf diff <= 2 Then
k = 1
ElseIf diff <= 10 Then
k = 2
Else
k = 3
End If
Select Case k
Case 0
MsgBox "恭喜你答对了"
Case 1
MsgBox "接近了，加油啊"
Case 2
MsgBox "有些远，继续努力"
Case 3
MsgBox "太远了，继续努力"
End Select
End If
End Sub

这个VB程序为什么怎么运行结果都是0呢? VB程序运行结果? 程序的运行结果(VB) 这个程序运行的结果为什么不是99表? 这个程序用C++运行为什么不出结果呢? 这个JAVA程序怎么运行不出来结果啊? 请教这个C程序的运行结果怎么解释 这个c程序,怎么运行不出来结果啊? 这个程序的运行结果怎么者么奇怪 vb怎么运行windows程序