![[填空题] 在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E5%9C%A8%E7%AA%97%E4%BD%93%E4%B8%8A%E7%94%BB%E4%B8%80%E4%B8%AA%E6%96%87%E6%9C%AC%E6%A1%86%EF%BC%8C%E5%85%B6%E5%90%8D%E7%A7%B0%E4%B8%BAText1%EF%BC%8C%E5%9C%A8%E5%B1%9E%E6%80%A7%E7%AA%97%E5%8F%A3%E4%B8%AD%E6%8A%8A%E8%AF%A5%E6%96%87%E6%9C%AC%E6%A1%86%E7%9A%84MultiLine%E5%B1%9E%E6%80%A7%E8%AE%BE%E7%BD%AE%E4%B8%BATrue%EF%BC%8C%E7%84%B6%E5%90%8E%E7%BC%96%E5%86%99%E5%A6%82%E4%B8%8B%E7%9A%84%E4%BA%8B%E4%BB%B6%E8%BF%87%E7%A8%8B%EF%BC%9A%E3%80%80%E3%80%80Private+Sub+Form.png "[填空题] 在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form,第1张")
[填空题] 在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form_Click() Open "d:estsmtext1.Txt" For Input As #1 Do While Not （） Line Input #1, aspect$ Whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ （） Open "d:estsmtext2.Txt" For Output As #1 Print #1, （） Close #1 End Sub 运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
正确答案：EOF（1）；Close#1；Text1.Text或Text1
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）