窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后,如果单击命令按钮,则可打开磁盘文件c:\test.txt,并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序,请填空。Private Sub Commandl_Click()Textl=“”Number=FreeFileOpen“c:\test.txt”For Input As NumberDo While Not EOF(【 】)Line InputNumber,sTextl.Text=Textl.Text+【 】+Chr(13)+Chr(10)LoopClose NumberEnd Sub

窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后,如果单击命令按钮,则可打开磁盘文件c:\test.txt,并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序,请填空。

Private Sub Commandl_Click()

Textl=“”

Number=FreeFile

Open“c:\test.txt”For Input As Number

Do While Not EOF(【 】)

Line InputNumber,s

Textl.Text=Textl.Text+【 】+Chr(13)+Chr(10)

Loop

Close Number

End Sub


相关考题:

( 9 ) 窗体上有名称为 Command1 的命令按钮及名称为 Text1 、 能显示多行文本的文本框 。 程序运行后 ,如果单击命令按钮,则可打开磁盘文件 c:\test.txt ,并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序,请填空。Private Sub Command1_Click()Text1= ””Number=FreeFileOpen “ c:\test.txt ” For Input As NumberDo While Not Eof( 【 14 】 )Line Input #Number,sText1.Text=Text1.Text+ 【 15 】 +Chr(13)+Chr(10)LoopClose NumberEnd Sub

窗体上有名称为Cornmandl的命令按钮和名称为Textl的文本框Private Sub Commandl_Click()Textl.Text=“程序设计”nxt1.SetFocusEnd SubPrivate Sub Textl_GotFocus()Textl.Text=”等级考试”End Sub运行以上程序,单击命令按钮后A.文本框中显示的是“程序设计”,且焦点在文本框中B.文本框中显示的是“等级考试”,且焦点在文本框中C.文本框中显示的是“程序设计”,且焦点在命令按钮上D.文本框中显示的是“等级考试”,且焦点在命令按钮上

窗体上有名称为Command1的命令按钮和名称为Textl的文本框 Private Sub Command1 Click( ) Text1.Text="程序设计" Text1.SeFocus End Sub Private Sub Text1 GotFocus( ) Text1.Text="等级考试" End Sub 运行以下程序,单击命令按钮后( )。A.文本框中显示的是"程序设计",且焦点在文本框中B.文本框中显示的是"等级考试",且焦点在文本框中C.文本框中显示的是"程序设计",且焦点在命令按钮上D.文本框中显示的是"等级考试",且焦点在命令按钮上

在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:Private Sub Commandl_Click()Dim i As Integer,n As IntegerFor i=0 T0 50i=i+3n=n+1If i10 Then Exit ForNextTextl.Text=Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是A.2B.3C.4D.5

在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:程序运行后,单击命令按钮,在文本框中显示的值是__________。

设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下面正确的事件过程是。 A.Private Sub Commandl_Click B.Private Sub Commandl_Click Textl.GotFocus Commandl.GotFocus End Sub End Sub C.Private Sub Commandl_Click D.Private Sub Commandl_Click Textl.SetFocus Commandl.SetFocus End Sub End sub

窗体上有名称为Command1的命令按钮和名称为Textl的文本框Private Sub Command1 Click( )Text1.Text=程序设计Text1.SeFocusEnd SubPrivate Sub Text1 GotFocus( )Text1.Text=等级考试End Sub运行以下程序,单击命令按钮后( )。A.文本框中显示的是程序设计,且焦点在文本框中B.文本框中显示的是等级考试,且焦点在文本框中C.文本框中显示的是程序设计,且焦点在命令按钮上D.文本框中显示的是等级考试,且焦点在命令按钮上

在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl),然后编写如下事件过程:程序运行后,在文本框中输入3,然后单击命令按钮,则Y的值变为__________。

在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl),编写如下事件过程:打开窗体运行后,单击命令按钮,文本框中显示的内容是__________。