Visual Basic程序设计 双色印刷 习题答案作者 熊李艳 周美玲 10答案.docVIP

四、上机实验 1． Private Sub Form_Click() Open App.Path \ 月历.txt For Output As #1 Print #1, SUN MON TUE WED THU FRI SAT Print SUN MON TUE WED THU FRI SAT For i = 1 To 31 If i 10 Then Print ;: Print #1, ; 1位数前加一个空格 Print ; i; 输出到屏幕上 Print #1, ; i; 输出到文件中 If i Mod 7 = 0 Then 每7个数换一行 Print Print #1, End If Next i Close #1 End Sub 2. Private Sub Command1_Click() Dim name$, spe$, age$ Open c:\t1.txt For Output As #1 Open c:\t2.txt For Output As #2 For i = 1 To 3 name = InputBox(请输入姓名：) spe = InputBox(请输入专业：) 　age = InputBox(请输入年龄：) Print #1, name, spe, age Print #2, name, spe, age Next i Close #1, #2 End Sub Private Sub Command2_Click() Dim s Open c:\t1.txt For Input As #1 Open c:\t2.txt For Input As #2 Text1 = Text2 = Do While Not EOF(1) Line Input #1, st Text1 = Text1 st vbCrLf Loop Do While Not EOF(2) Line Input #2, st Text2 = Text2 st vbCrLf Loop Close #1, #2 End Sub ３． Private Type worker xm As String * 6 xb As Boolean gz As Single End Type Dim n%, lastrecord% Dim da As worker 定义记录变量 Private Sub Command1_Click(Index As Integer) Open App.Path \ worker.dat For Random As #1 Len = Len(da) 打开随机文件 lastrecord = LOF(1) / Len(da) 计算出随机文件的记录数 Select Case Index Case 0 n = 1 Case 1 If n 1 Then n = n - 1 Case 2 If n lastrecord Then n = n + 1 Case 3 n = laserecord End Select Get #1, n, da Close #1 Call xs End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 添加记录 With da .xm = Text1.Text .xb = Option1.Value .gz = Val(Text2.Text) End With Open App.Path \ worker.dat For Random As #1 Len = Len(da) lastrecord = LOF(1) / Len(da) Put #1, lastrecord + 1, da Close #1 Call Form_activate Text1.SetFocus Case 1 删除记录 recnum = n Open App.Path \ temp.dat For Random As #1 Len = Len(da) 打开临时文件 Open App.Path \ worker.dat For Random As #2 Len = Len(da) 打开随机文件 lastrecord = LOF(2) / Len(da) For i = 1 To lastrecord If i recnum Then