图3 记事本程序运行界面

程序如下，请补充完整。 Private Sub Command1_Click() Dim strtxt As String Text1 = \

Open [1] '以读方式打开文件

Do While [2] '判断文件是否结束 Input

#1,

strtxt

'从文件中读取数据并将其赋值给变量strtxt Text1 = Text1 + [3] '将内容显示在文本框中 Loop

[4] '

关闭文件 End Sub

Private Sub Command3_Click()

Open \For Output As #1 '以写方式打开文件 Write Close #1 End Sub

Private Sub Command4_Click() Unload Me End Sub 答案：

[1] \[2] Not EOF(1) [3] strtxt [4] Close #1 [5] Text1

#1,

[5]

'在文本框中写入内容