例8.1把1~50各数及能被7整除的数分别存入两个文件中 把1~50的50个整数,以及这些数中能被7整除的数分别 存入两个文件中,文件名为num1和num2,文件存放在VB 缺省文件夹下 Private Sub Form Load Open"numl. txt" For Output As #1 Open num2. txt" For Output As #2 F or 1To50 Write #1, If i Mod 7=0 Then write #2 Next i Close #1. #2 Unload me End sub 说明:num1tx文件中一共写入50个记录,而nm2x文件只写入其 中能被7整除的若干个记录把1～50的50个整数，以及这些数中能被7整除的数分别 存入两个文件中，文件名为num1和num2，文件存放在VB 缺省文件夹下 Private Sub Form_Load() Open "num1.txt" For Output As #1 Open "num2.txt" For Output As #2 For i = 1 To 50 Write #1, i If i Mod 7 = 0 Then Write #2, i Next i Close #1, #2 Unload Me End Sub 说明：num1.txt文件中一共写入50个记录，而num2.txt文件只写入其 中能被7整除的若干个记录 例8.1 把1～50各数及能被7整除的数分别存入两个文件中