图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]
'在文本框中写入内容