VB的题目，希望各位高手来帮个忙

8．以下是一个简化了的猜数游戏程序，自动生成一个小于1000的随机正整数与您用输入对话框输入的数进行对比，猜中后输出相关信息，过程结束。
Private Sub Form_Click()
  Dim r As Integer, x As Integer, i As Integer
  Randomize : r = _______________       
  For i = 1 To 10
    x = Val(InputBox("请输入一个整数："))
    If x < r Then m = MsgBox("太小了，请继续猜！")
    If x > r Then m = MsgBox("太大了，请继续猜！")
    If x = r Then
      Print "猜中了！共猜了" + ______________  + "次"
    If i <= 5 Then Print "太棒了！" Else Print "加油！"
      ________________       
    End If
  Next i
End Sub

---

VB.NET code:
Private Sub MainForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
Dim r As Integer, x As Integer, i As Integer
Dim m As String
Randomize: r = Rnd() * 1000
For i = 1 To 10
x = Val(InputBox("请输入一个整数："))
If x < r Then m = MsgBox("太小了，请继续猜！")
If x > r Then m = MsgBox("太大了，请继续猜！")