VBµÄÌâÄ¿£¬Ï£Íû¸÷λ¸ßÊÖÀ´°ï¸öæ

8£®ÒÔÏÂÊÇÒ»¸ö¼ò»¯Á˵IJÂÊýÓÎÏ·³ÌÐò£¬×Ô¶¯Éú³ÉÒ»¸öСÓÚ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("Ì«´óÁË£¬Çë¼ÌÐø²Â£¡")