在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form Click() Open "d:estsmtext1.txt" For Input As 1 Do While NotLine Input 1,aspectswhole$=whole$+aspect$+Chr$(13
主观题
在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form Click() Open "d:estsmtext1.txt" For Input As 1 Do While NotLine Input 1,aspectswhole$=whole$+aspect$+Chr$(13