Private sub command1 Click0‘窗体Form2的“返回” Form2 Hide Private Sub Command1 Click(‘窗体Form3的“退出” Unload Form2 Un load form3 End Sub 第8章《编程及上机调试》 在窗体上建立一个列表框List1(存放从文件中读出的数据)、一个文本框(存放累加值)和三个命令 按钮 and3。程序代码如下 Private Sub Command1 Click 写入数据 Dim x As Integer Open MyFile3 txt For Output As #l For x =1 To 10 Write #l Close #1 End Sub Private Sub Command2 Click 读出并累加 Dim x As Integer, sum As Integer stl. clea Input #l, Text. Text End sub Private Sub Command3 Click 结束” 2.程序代码如下 Private Sub Command1 Click ”产生随机数 For i =1 To 20 d(i)=Int(1+99 Rnd Listl AddItem d(i) Private Sub Command2 Click 保存 en" MyFile3 txt For Output As #l For i =1 To 20 Write #l, d(i) End Sub te Sub command 出 Open My File3. txt For Input As #I While9 End Sub Private Sub Command1_Click() ‘窗体 Form2 的“返回” Form2.Hide Form1.Show End Sub Private Sub Command1_Click() ‘窗体 Form3 的“退出” Unload Form1 Unload Form2 Unload Form3 End End Sub 第 8 章《编程及上机调试》 1. 在窗体上建立一个列表框 List1(存放从文件中读出的数据)、一个文本框(存放累加值)和三个命令 按钮 Command1～Command3。程序代码如下： Private Sub Command1_Click() '"写入数据" Dim x As Integer Open "MyFile3.txt" For Output As #1 For x = 1 To 10 Write #1, x Next x Close #1 End Sub Private Sub Command2_Click() '"读出并累加" Dim x As Integer, sum As Integer Open "MyFile3.txt" For Input As #1 List1.Clear sum = 0 Do While Not EOF(1) Input #1, x List1.AddItem x sum = sum + x Loop Close #1 Text1.Text = sum End Sub Private Sub Command3_Click() '"结束" End End Sub 2. 程序代码如下： Dim d(1 To 20) As Integer Private Sub Command1_Click() '"产生随机数" For i = 1 To 20 d(i) = Int(1 + 99 * Rnd) List1.AddItem d(i) Next i End Sub Private Sub Command2_Click() '"保存" Open "MyFile3.txt" For Output As #1 For i = 1 To 20 Write #1, d(i) Next i Close #1 End Sub Private Sub Command3_Click() '"读出" Open "MyFile3.txt" For Input As #1 Do While Not EOF(1)