VB关于建立文件的，求高手帮助啊 急用啊

程序界面如下图所示。单击“建立文件”按钮随机生成10个整数（100~999）显示在相应的列表框中，同时将这10个数记录在文件F18.txt中(文件名可用App.Path & "\F18.txt")。单击“读取文件中的偶数”按钮从文件所列的数中找出偶数显示在相应的列表框中。（注意：不允许使用数组变量）

答案：''复制粘贴到记事本，并保存为一个“Form-偶数.frm”文件，打开即可。
VERSION 5.00
Begin VB.Form Form1fileRW 
   Caption         =   "Form1读写文件"
   ClientHeight    =   4950
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5010
   LinkTopic       =   "Form1"
   ScaleHeight     =   4950
   ScaleWidth      =   5010
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox List1 
      Height          =   3660
      Left            =   720
      TabIndex        =   2
      Top             =   960
      Width           =   2895
   End
   Begin VB.CommandButton duquOushu_Btn 
      Caption         =   "读取文件中的偶数"
      Height          =   495
      Left            =   2280
      TabIndex        =   1
      Top             =   240
      Width           =   1935
   End
   Begin VB.CommandButton jlwenj_Btn 
      Caption         =   "建立文件"
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   1095
   End
End
Attribute VB_Name = "Form1fileRW"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub jlwenj_Btn_Click()
Dim i, n: i = 0
''单击“建立文件”按钮随机生成10个整数（100~999）显示在相应的列表框中，
''同时将这10个数记录在文件F18.txt中(文件名可用App.Path & "\F18.txt")。

Open App.Path & "\F18.txt" For Output As #1
List1.Clear ''先清除“列表框”
Randomize
Do While i < 10

n = 100 + Rnd() * 900 \ 1 '直接n = Rnd() * 1000 \ 1 要产生100以下的，不符合（100~999）要求！

Write #1, n    'rnd()产生一个0 ~ 1的随机数

List1.AddItem n '加入“列表框”
i = i + 1
Loop

Close #1  '关闭，否则报“已打开”-55错误！

End Sub

Private Sub duquOushu_Btn_Click()
Dim strLine As String
Open App.Path & "\F18.txt" For Input As #1
List1.Clear ''先清除“列表框”
Do Until EOF(1)

  Line Input #1, strLine
  If CInt(strLine) Mod 2 = 0 Then
  List1.AddItem strLine
  End If
  
Loop
Close #1
End Sub

其他：程序界面如下图所示。单击“建立文件”按钮随机生成10个整数（100~999）显示在相应的列表框中，同时将这10个数记录在文件F18.txt中(文件名可用App.Path & "\F18.txt")。单击“读取文件中的偶数”按钮从文件所列的数中找出偶数显示在相应的列表框中。

上一个：用VB的程序，一运行就死机，怎么回事？
下一个：怎样用VB产生一个不定个数的随机数组？