[试题]

( 10 ) 在窗体上画一个文本框 , 其名称为 Text1 , 在属性窗口中把该文本框的 Mult i Line 属性设置为 True ,然后编写如下的事件过程:

Private Sub Form_Click ()

Open " d:/test/smtext1.Txt " For Input As #1

D.o While Not ( 13 )

Line Input #1, aspect$

W hole$=whole$+aspect$+Chr$ ( 13 ) +Chr$ ( 10 )

Loop

Text1.Text=whole$

( 14 )

Open " d:/test/smtext2.Txt " For Output As #1

Print #1, ( 15 )

C.lose #1

E.nd Sub

运行程序 , 单击窗体 , 将把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件 smtext2.txt 。请填空。

参考答案与解析:

相关试题

在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本

[试题]在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:Private Sub Form_Click()Open "d:/test/smtext1.txt" For Input As #1D.o While Not ______Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)LoopText1.Text = whol

  • 查看答案
  • 在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell),程

    [单选题]在窗体上画一个文本框(其名称为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(

  • 查看答案
  • ( 17 ) 在窗体上画一个文本框 ( 其名称为 Text1 ) 和一个标签 (

    [单选题]( 17 ) 在窗体上画一个文本框 ( 其名称为 Text1 ) 和一个标签 ( 其名称为 Label1 ) , 程序运行后 , 如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是A. ) Private Sub Text1_Click()Label1.Caption = Text1.TextE.nd SubB. ) Private Sub Text1_Change()Label1.Caption = Text1.TextE.nd SubC. ) Pri

  • 查看答案
  • 在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Label1)

    [单选题]在窗体上画一个文本框(其名称为 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)和一个标签(其名称为Labe11),程

    [单选题]在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是( )。A.B.C.D.

  • 查看答案
  • 在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程: Private

    [单选题]在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)D.im str As StringStr=Chr(KeyAscii)KeyAscii=Asc(UCase (str))Textl.Text=String(2, KeyAscii)E.nd Sub程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是A.bbbB.BBBC.BBD.bb

  • 查看答案
  • 在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:Private

    [单选题]在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“b”,则在文本框Text1中显示的内容是A.bbbB.BBBC.BBD.bb

  • 查看答案
  • 在窗体上画一个文本框,其名称为Text1。为了在程序运行后Text1中的文本不可

    [单选题]在窗体上画一个文本框,其名称为Text1。为了在程序运行后Text1中的文本不可编辑,应当使用的语句是______。A.Text1.ClearB.Text1.Locked=TrueC.Text1.Visible=FalseD.Text1.Enabled=True

  • 查看答案
  • 在窗体上画一个文本框,其名称为Text1。为了在程序运行后Text1中的文本不可

    [单选题]在窗体上画一个文本框,其名称为Text1。为了在程序运行后Text1中的文本不可编辑,应当使用的语句: ______。A.Text1.ClearB.Text1.Locked=TrueC.Text1.Visible=FalseD.Text1.Enabled=True

  • 查看答案
  • 窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求

    [单选题]窗体上画一个文本框(其名称为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()

  • 查看答案
  • ( 10 ) 在窗体上画一个文本框 , 其名称为 Text1 , 在属性窗口中把