例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整除的数分别存入两个文件中
例8.2在num2xt文件中加入51~200范围内能 被7整除的数 在例8.1所生成的mum2x文件中,存放了若干个能被7 整除的数,现要求再加入51~200范围内能被7整除的数 程序代码如下: Private Sub Form Loado Open num2. txt" For Append as #1 For i=51 To 200 If i Mod 7=0 Then write #1. i Next i Close #1 Unload me ★ End sub
在例8.1所生成的num2.txt文件中，存放了若干个能被7 整除的数，现要求再加入51～200范围内能被7整除的数 程序代码如下： Private Sub Form_Load() Open "num2.txt" For Append As #1 For i = 51 To 200 If i Mod 7 = 0 Then Write #1, i Next i Close #1 Unload Me End Sub 例8.2 在num2.txt文件中加入51～200范围内能 被7整除的数
例8.3建立学生成绩顺序文件Cj2xt 输入某小组5名学生的成绩(表81),存放在“我的文 档”(C: MMy Documents)文件夹下的新建顺序文件Cj2txt 设计步骤如下: (1)创建应用程序的用户界面和设置对象属性 Form1 □区 输入学生成绩 学号 录入 姓名 结束 成绩
输入某小组5名学生的成绩(表8.1)，存放在“我的文 档”(C:\My Documents)文件夹下的新建顺序文件Cj2.txt 设计步骤如下： (1)创建应用程序的用户界面和设置对象属性 例8.3 建立学生成绩顺序文件Cj2.txt
(2)设置事件过程 Form Load():新建文件 Command1 click:接收录入信息,并以一个记录存入文件中 Command2 Click:关闭文件和结束程序运行 Private Sub Form Load Open“C: my documents(Cj2txt“ For Output As#1 End sub Private Sub Command1 Click Dim num As String*6, name As String*8, score As Integer num= TextI Text name= Text2Text score= Val(Text3 Text) Write#1. num name score 存入记录 Text1.Text= 存完1个记录后清空 Text2 Text= Text3 Text Text1.Set Focus 设置焦点 End sub
(2) 设置事件过程 Form_Load()： Command1_Click()：接收录入信息，并以一个记录存入文件中 Command2_Click()：关闭文件和结束程序运行 Private Sub Form_Load() Open “C:\my documents\Cj2.txt“ For Output As #1 End Sub Private Sub Command1_Click() Dim num As String * 6, name As String * 8, score As Integer num = Text1.Text name = Text2.Text score = Val(Text3.Text) Write #1, num, name, score '存入记录 Text1.Text = "" '存完1个记录后清空 Text2.Text = "" Text3.Text = "" Text1.SetFocus '设置焦点 End Sub
Private Sub Command2 Click Close #1 End End sub 程序运行完成后,用 Windows记事本来打开该顺序文件 (文本文件),即可看到存入的文件内容 cj2.txt-记事本 口K 文件￠)编辑)搜索()帮助⑩ 991001小强 991002 本 99039伟雄 91004,"马丁林 991005”,"何聪明 91 说明:在显示的文件内容中,字符串(学号、姓名)两边的引号 是系统自动加入的。字段之间通过逗号隔开
Private Sub Command2_Click() Close #1 End End Sub 程序运行完成后，用Windows记事本来打开该顺序文件 (文本文件)，即可看到存入的文件内容 说明：在显示的文件内容中，字符串(学号、姓名)两边的引号 是系统自动加入的。字段之间通过逗号隔开