Private Sub Form_Click()
Open "d:/test/smtext1.txt" For Input As #1
D.o While Not ______
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
Loop
Text1.Text = whole$
C.lose #1
Open "d:/test/smtext2.txt" For Output As #1
Print #1, ______
C.lose #1
E.nd Sub
上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[试题]( 10 ) 在窗体上画一个文本框 , 其名称为 Text1 , 在属性窗口中把该文本框的 Mult i Line 属性设置为 True ,然后编写如下的事件过程:Private Sub Form_Click ()Open " d:/test/smtext1.Txt " For Input As #1D.o While Not ( 13 )Line Input #1, aspect$W hole$=whole$+aspect$+Chr$ ( 13 ) +Chr$ ( 10 )LoopText1
[单选题]在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是( )。A.Private Sub Text1_Change()C.ommand1.Caption = "计算机等级考试"E.nd SubB.Private Sub Command1_ Click ()C.aption = "计算机等级考试"E.nd Sub
[单选题]在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。A.Prlvate Sub Text1_Change() Command1. Caption="计算机等级考试" End SubB.Private Sub Command1_Click() Caption="计算机等级考试" End SubC.
[试题]在名为Form1的窗体上绘制一个文本框,其名称为Text1,然后通过属性窗口设置窗体和文本框的属性,实现如下功能:(1)在文本框中可以显示多行文本;(2)在文本框中显示垂直滚动条。(3)文本框中显示的初始信息为“计算机等级考试”。(4)文本框中显示的字体为三号规则黑体。(5)窗体的标题为“设置文本框属性”。完成设置后的窗体如下图所示。注意:不编写任何代码:文件必须存放在考生文件夹中,工程文件名为execise71.vbp,窗体文件名为execise71.frm。
[单选题]窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 ______。A.Private Sub Text1_Change() Labell.Caption=Text1.Text End SubB.Private Sub Text1_Click() Labell.Caption=Text1.Text End SubC.Private Sub Labell_Change()
[单选题]在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Label1),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容,以下可以实现上述操作的事件过程是( )。A.Private Sub Text1_Click()Label1.Caption=Textl.TextE.nd SubB.Private Sub Text1_Change()Label1.Caption=Text1.TextE.nd SubC.Private Sub Label1_Ctrange()La
[单选题]窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是: ______。A.Private Sub Text1_Change() Label1.Caption=Text1.Text End SubB.Private Sub Text1_Click() Label1.Caption=Text1.Text End SubC.Private Sub Label1_Change()
[单选题]在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。A. Private Sub Text1 Click() Labell.Caption=Text1.Text End SubB.Private Sub Text1_Change() Labell.Caption=Text1.Text End SubC.Private Sub Labell_Change(
[单选题]窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。A.Private Sub Text1_Change() Labe11.Caption=Text1.Text End SubB.Private Sub Text1_Click() Labe11.Caption=Text1.Text End SubC.Private Sub Labe11_Change() L
[单选题]在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为( )。A.B.C.D.