窗体上有名称为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
设在窗体上有一个名称为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.文本框中显示的是等级考试,且焦点在命令按钮上
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl),编写如下事件过程:打开窗体运行后,单击命令按钮,文本框中显示的内容是__________。