Count=Count＋1 End If
If CheckBox3.Checked Then
Total=Total+(Val(TextBox3.Text)) Count=Count+1 End If
＿＿＿＿＿＿＿＿＿
TextBox5.Text=Total/Count End Sub
23.图7.8是一个定时程序。用户在两个文本框（TextBox1和TextBox2）中设置定时时间，然后单击“定时”（Button1）按钮开始定时，当系统时间 与定时时间相等时弹出信息框“时间到！”。两个文本框的MaxLength属性为2，定时器名称为Timer1，系统当前时间显示在label1标签中。
<程序>
Sub Botton1_Click(.....)Handles Button1.Click ＿＿＿＿＿＿＿ End Sub
Sub Timer1_Tick(......)Handles Timer1.Tick Dim h , m As Integer label1.text=TimeOfDay h=Hour(TimeOfDay) ＿＿＿＿＿＿＿＿ If ＿＿＿＿＿Then
Timer1.Enabled=False MsgBox(“时间到！”) End If End Sub
第八章 文 件
一．选择题
1． 在下面关于顺序文件的描述中，正确的是（ ）。 A．每条记录的长度必须相同 B. 可通过编程方式随机地修改文件中的某条记录
C．数据是以ASCII码字符的形式放在顺序文件中，所以可通过Windows的 程序编辑 D．文件的组织结果复杂
2．在下面关于随机文件的描述中，不正确的是（ ）。
A．面条记录的长度必须相同 B.一个文件中记录号不必唯一 C．可通过编程对文件中的某条记录方便地修改 D.文件的组织结构比顺序文件复杂 3．文件按组织方式可分为（ ）。
A．顺序文件和随机文件 B.ASCII文件和二进制文件 C．程序文件和数据文件 C.磁盘文件和打印文件 4．顺序文件之所以称为顺序文件是因为（）。
A．文件中记录按记号从小到大的排序 B.文件中记录按记录长度从小到大排序
C．文件中记录按关键数据项的值从大到小的顺序
D.记录是按进入的先后顺序存放的，读出也是按原写入的先后顺序读出的 5．随机文件之所以称为随机文件，是因为（）。
A.文件中的内容是通过随机数产生的 B.文件中的记录号是通过随机数产生的
C．可对文件中的记录根据记录号随机地读/写 D.文件的每条记录的长度是随机的
6．为了建立一个随机文件，其中每一个记录由多个不同的数据类型的数据项组成，应使用（）。
A．记录类型 B.数组 C.字符串类型 D.对象类型
7．若要从磁盘上读一个文件名为“C:\\T1.txt”的顺序文件，则应使用下列（ ）程序段打开文件。
A. Dim F As String B. Dim F As String F=“C:\\T1.txt” F=“C:\\T1.txt” FileOpen(1,F,OpenMode.Input) FileOpen(1,”F”,OpenMode.Input) C .FileOpen(1, “C:\\T1.txt”,OpenMode.Output) D. FileOpen(1, “C:\\T1.txt”,OpenMode.Input)
8.若要在磁盘上新建一个文件名为“C:\\T1.txt”顺序文件，则应用下列（ ）程序段打开文件。
A．Dim F As String F=“C:\\T1.txt” FileOpen(2,F,OpenMode.Append) B. Dim F As String F=“C:\\T1.txt”
FileOpen(2,“F”,OpenMode.Output)
C. FileOpen(2, “C:\\T1.txt”,OpenMode.Output) D. FileOpen(2, “C:\\T1.txt”,OpenMode.Outpt) 9.全局记录类型定义语句应出现在（ ）。
A．窗体类中 B.标准模块 C. 窗体类以外的窗体代码窗口中 D.以上都不对
10．随机文件中记录类型的字符串成员应该是定长的，下列（ ）语句可以在结构类型中定义一个定长的字符串Str。
A. Dim Str as String B. Dim Str as String *10
C.Dim Str(10) as String D.
A. Structure Stud B. Structure Stud Dim no As Integer Dim no As Integer
C. Structure Stud D. Type Stud
Dim no As Iteger Dim no As Integer
Dim name As String*4 Dim name As String *4 Dim mark As Single Dim mark As Single End Structure End Structure
12.为了使用上述定义的记录类型，对一个学生的各数据项通过赋值语句获得，其值分别为9801、“李平”、78，如下程序正确的是（ ）。
A. Dim s As stud B. Dim s As stud stud.no=9801 s.no=9801
stud.name= “李平” s.name= “李平” stud.mark=78 s.mark=78
C. Dim s As stud D. stud.no=9801
no=9801 stud.name= “李平” name= “李平” stud.mark=78 mark=78 Dim s As stud 13.要建立一个学生成绩的随机文件，文件名“Stud.dat”，该文件由以上12题赋了的值的一条记录组成，如下程序正确的是（）。
A. FileOpen(1,”stud.dat”,OpenMode.Random) FilePut(1,s,1) FileClose(1)
B. FileOpen(1,“stud.dat”,OpenMode.Random) FilePut(1,1,s) FileClose(1)
C. FileOpen(1,“stud.dat”,OpenMode.Random,,,Len(s)) FilePut(1,s,1) FileClose(1)
D. FileOpen(1,“stud.dat”,OpenMode.Random,,,Len(Stud)) FilePut(1,s,1) FileClose(1) 二．填空题
1.顺序文件的建立。建立顺序文件C:\\Stud.txt，内容来自文本框，每按一次Enter键写入一条记录，然后清除文本框的内容，直到文本框内输入“END“字符串。 Sub Form1Load(.....) Handles MyBase.Load ＿＿＿＿＿＿
TextBox1.Text=””
End Sub
Sub TextBox1_KeyDown()Handles TextBox1.KeyDown If ＿＿＿＿＿＿＿ Then
If TextBox1.Text= “END”Then FileClose(1) End Else
＿＿＿＿＿＿＿
TextBox1.Text= “” End If End If End Sub
2.文本文件复制。将文本文件C:\\Old.dat复制成新文件C:\\New.dat 。 Sub Button1_Click(........)Handles Button1.Click Dim Str As String
FileOpen(1,”C:\\Old.dat”,＿＿＿＿＿) FileOpen(2,”C:\\New.dat”＿＿＿＿＿) Do While ＿＿＿＿＿ ＿＿＿＿＿
PrintLine(2,Str) Loop
＿＿＿＿＿＿＿＿ End Sub
3.文本文件合并。将文本文件C:\\T1.txt文件中。
Sub Button1_Click(........)Handles Button1.Click Dim Str As String
FileOpen(1,”C:\\T1.txt”,＿＿＿＿＿＿＿) FileOpen(2,”C:\\T2.txt”,＿＿＿＿＿＿＿) Do While Not EOF(2) ＿＿＿＿＿＿＿＿ PintLine(1,Str) Loop
FileClose() End Sub 4.随机文件的修改。对已建立的有若干条记录的随机文件C:\\Stud.dat的，记录类型为： Module Module1 Structure Stud
Dim no As Integer
下面程序记录代码是读出5号记录，用MsgBox显示记录内容，将课程成绩加5分，写入原来的位置，再读出并显示。
Sub Button1_Click(........)Handles Button1.Click Dim s As Stud
FileOpen(1, “C:\\Stud.dat”,＿＿＿＿＿, , ,Len(s)) ＿＿＿＿＿＿
MsgBox(s.no & s.name & s.mark) ＿＿＿＿＿
FilePut(1,s,5) ＿＿＿＿＿＿
MsgBox(s.no & s.name & s.mark) FileClose(1) End Sub
5.顺序文件的修改。磁盘文本文件C:\\Zg.dat存放了职工的工资和职称情况，每条记录由工号、工资、职称组成，之间用逗号分隔。现对有职称的职工加工资，规定教授或副教授加15%，讲师加10%，助教加5%，其他人员不加工资。本程序要求根据加工资的条件修改原文本文件内各类人员的相应工资。 <分析>
由于文本文件不能直接进行修改，只能增加一个临时文件，依次从老文件读出内容，判断是否满足要修改的条件，若不修改，则将原内容写到临时文件文件中；若修改，则将新内容写入临时文件中，直到文件结束。
然后通过临时文件将内容重新依次写回到老文件；当然也可以通过VB提供的文件操作命令，删除老文件，将临时文件改名为老文件或将临时文件复制为老文件。
由此可见顺序文件修改某一条记录比较麻烦，但适合于批量数据的整体修改或处理。
Sub Button1_Click(........)Handles Button1.Click
Dim No As Integer ,Zc As String ,Gz As Single,Str As String FileOpen(1, “C:\\Zg.txt”,OpenMode.Input) FileOpen(2, ”c:\\lszg.txt”,OpenMode.Output) Do While Not EOF (1)
Input(1,No) : Input(1,Zc):Input(1,Gz) Select Case Zc
Case＿＿＿＿＿＿ Gz=Gz*1.15
Case “讲师” ＿＿＿＿＿＿＿＿ Case “助教” Gz=Gz*1.05 End Select
＿＿＿＿＿＿＿ Loop
FileClose()
FileOpen(1,“C:\\Zg.txt”,＿＿＿＿＿＿) FileOpen(2, “c:\\lszg.txt”,＿＿＿＿＿) Do While Not EOF(2) str=LineInput(2)
＿＿＿＿＿＿ Loop
FileClose() End Sub
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB[1].net习题集(7)在线全文阅读。
相关推荐：