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("太大了，请继续猜！")
相关问答：
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
