问个VB的题目

来源：百度知道 编辑：UC知道 时间：2024/07/07 09:57:39
在窗体上建立2个列表和4个命令按钮，单击“产生随机数”按钮时，产生20个1-99的随机整数，并显示在“原始数据”列表框中；单击“保存”按钮时，把这20个随机整数存放在顺序文件Myfile4.txt中，单击“读出”按钮时，则从该顺序文件中取出所有数据，并显示在“文件中数据”列表框中；单机“结束”按钮时，则结束程序运行。

Option Explicit

Private Sub Command1_Click()
Dim N As Integer
Randomize
For N = 1 To 20
List1.AddItem Int(99 * Rnd + 1)
Next N
End Sub

Private Sub Command2_Click()
Dim FileName As String
Dim I As Integer
If Right(App.Path, 1) <> "\" Then
FileName = App.Path & "\Myfile4.txt"
Else
FileName = App.Path & "Myfile4.txt"
End If
Open FileName For Output As #1
For I = 0 To 19
Print #1, List1.List(I)
Next I
Close #1
End Sub

Private Sub Command3_Click()
Dim FileName As String
Dim I As Integer
Dim A As Integer
If Right(App.Path, 1) <> "\" Then
FileName = App.Path & "\Myfile4.txt"
Else
FileName = App.Path & "Myfile4.txt"
End If
Open FileName For Input As #1
I = 0
Do While Not EOF(1)
Input #1