VB教程习题7答案.docVIP

ＶＢ教程 习题7参考答案 一、选择题 (1)A (2)D (3)C (4)D (5) D (6) C (7) B (8)A (9)C (10)B (11)C (12)B (13) A (14) A (15)C (16) A 二、填空题 (1)顺序访问方式 (2)关闭文件 (3) Seek (4) Put Get (5) LOF (6) Change PathChange (7) Pattern (8) Append (9) For Input Not EOF(1) (10) EOF(1) Text1.Text或Text1或whole或whole$ (11) Open “c:\stud1.txt” for Output As #1 print #1, Text1.Text (或 Write #1, Text1.Text) 三、编程题 (1) Private Sub Form_Click() Open Student.txt For Input As #1 total$ = Input$(LOF(1), 1) Close #1 location = InStr(1, total$, LiMing) If location 0 Then Print 找到LiMing Else Print 未找到LiMing End If End Sub (2) 将文本框的MultiLine属性设置为True，ScrollBars属性设置为3。 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Form_Load() File1.Pattern = *.log End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_DblClick() Dim textline As String Dim total As String Dim filename As String If Right(Dir1.Path, 1) \ Then filename = File1.Path + \ + File1.filename Else filename = File1.Path + File1.filename End If Open filename For Input As #1 While Not EOF(1) Line Input #1, textline total = total + textline + Chr(13) + Chr(10) Wend Text1.Text = total Close #1 End Sub (3) Private Sub Form_Click() Dim onestudent As Student Open Student.dat For Random As #1 onestudent.Name = InputBox(请输入姓名：) While RTrim$(onestudent.Name) DONE onestudent.Sex = InputBox(请输入性别：) onestudent.Age = InputBox(请输入年龄：) onestudent.Score = InputBox(请输入成绩：) onestudent.Tel = InputBox(请输入电话：) number = number + 1 Put #1, number, onestudent onestudent.Name = InputBox(请输入姓名：) Wend Print 姓名; Tab; 性别; Tab; 年龄; Tab; 成绩; Tab; 电话 For i = 1 To number Get #1, i, onestudent Print onestudent.Name; Tab; onestudent.Sex; Tab; onestud