vb程序设计教程龚沛曾版课后答案(3)

Call FSqr2(x, y)

Print y

End If

End Sub

（3）递归函数及调用 [略]习题七

第1-9题，答案在教材上找；第10，12-14题，略。

11．检测Ctrl和F3同时按下的代码：

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift = 2 And KeyCode = 114 Then MsgBox "HAHA"

End Sub

习题八

第1，2，6，7，9题答案可阅读教材找到。

3．写Open语句

（1） Open "Seqnew.dat" For Output As #1 '重写

或 Open "Seqnew.dat" For Append As #1 '添加

（2）Open "Seqold.dat" For Input As #2

（3）Open "Seqappend.dat" For Append As FreeFile4．编程，将文件Text.dat 读入变量strTest。 Dim strTest As String

Open "Text.dat" For Input As #2

Do While Not EOF(2)

strTest = strTest + Input(1, #2)

Loop8．本课程不涉及二进制文件。故此处以顺序文件读写方式编程。另外合并的结果可以是合并到其中某一个文件，也可以是合并到一个新的文件，此处代码是合并到其中一个文件F1.txt。

vb程序设计教程龚沛曾版课后答案

'方法一，在2号文件一次读一个字符并写入1号文件

Dim strTemp As String * 1

Open "d:\F1.txt" For Append As #1

Open "d:\F2.txt" For Input As #2

Do While Not EOF(2)

strTemp = Input(1, #2)

Print #1, strTemp; '注意结尾有分号，否则每个字符一行 Loop

Close

'方法二，在2号文件一次读一个字符并累加，最后将累加结果写入1号文件 Dim strTemp As String '注意方法一变量定义的区别

Open "d:\F1.txt" For Append As #1

Open "d:\F2.txt" For Input As #2

strTemp = ""

Do While Not EOF(2)

strTemp = strTemp + Input(1, #2)

Loop

Print #1, strTemp

Close

习题九

答案在教材上找。

习题十

答案在教材上找