[单选题]

( 26 )窗体上有1个名称为 Text1 的文本框和1个名称为 Command1 的命令按钮。要求程序运行时,单击

( 26 )窗体上有1个名称为 Text1 的文本框和1个名称为 Command1 的命令按钮。要求程序运行时,单击命令按钮,就可以把文本框中的内容写到文件 out.txt 中,每次写入的内容附加到文件原有内容之后 。 下面能够实现上述功能的程序是( )

A. ) Private Sub Command1_Click ()

Open “ out.txt ” For Inpit As#1

Print#1,Text1.Text

C.lose#1

E.nd Sub

B. ) Private Sub Command1_Click ()

Open “ out.txt ” For Outpit As#1

Print#1,Text1.Text

C.lose#1

E.nd Sub

C. ) Private Sub Command1_Click ()

Open “ out.txt ” For Append As#1

Print#1,Text1.Text

C.lose#1

E.nd Sub

D. ) Private Sub Command1_Click ()

Open “ out.txt ” For Random As#1

Print#1,Text1.Text

C.lose#1

E.nd Sub

参考答案与解析:

相关试题

窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求

[单选题]窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时,单击命令按钮,就可以把文本框中的内容写到文件out.txt中,每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是( )。A.Private Sub Command1_Click()Open “out.txt” For Inpit As#1Print#1,Text1.TextC.lose#1E.nd SubB.Private Sub Command1_Click()Open “out.txt

  • 查看答案
  • ( 26 )窗体上有 1 个名称为 Text1 的文本框; 1 个名为 Time

    [单选题]( 26 )窗体上有 1 个名称为 Text1 的文本框; 1 个名为 Timer1 的计时器控件,其 Interval 属性值为5000 , Enable 属性值是 True 。 Timer1 的事件过程如下:Private Sub Timer1_Timer()Static flag As IntegerIf flag=0 Then flag=1flag=-flagIf flag=1 ThenText1.ForeColor=&HFF& ‘ &HFF& 为红色E.

  • 查看答案
  • 在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)

    [单选题]在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程:Private Sub Command1_Click()x=Val(Text1.Text)Select Case xC.ase 1,3y=x*xC.ase Is>=10,Is<=-10y=xC.ase -10 To 10y=-xE.nd SelectE.nd Sub程序运行后,在文本框中输入3,然后单击命令按钮,则以下叙述中正确的是( )。A.执行y=x*xB.执行y=-xC.先执

  • 查看答案
  • 窗体上有一个名称为Text1的文本框和—个名称为Command1的命令按钮。要求

    [单选题]窗体上有一个名称为Text1的文本框和—个名称为Command1的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件out.txt中,每次写入的内容附加到原有内容之后。下面能够正确实现上述功能的程序是______。A.Private Sub Command1_Click() Open "out.txt" For Input As#1 Print #1,Text1.Text Close #1 End SubB.Private Sub Command1_Click() Open

  • 查看答案
  • 窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体

    [单选题]窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序 如下: Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序,下

  • 查看答案
  • 在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1)

    [单选题]在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程: Private Sub Command1_click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is>=10,Is<=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是______。A.执行y=x*xB.执行y=-xC

  • 查看答案
  • 在窗体上有—个名称为Text1的文本框和一个名称为Command1的命令按钮,要

    [单选题]在窗体上有—个名称为Text1的文本框和一个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮—次,文本框向右移动—定的距离。下面能够正确实现上述功能的程序是 ______。A.Private Sub Command1_Click() Text1.Left=100 End SubB.Private Sub Command1_Click() Text1.Left=Text1.Left-100 End SubC.Private Sub Command1_Click() Text1.M

  • 查看答案
  • 窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求

    [单选题]窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(如图1所示),就可以把文本框中的内容写到文件Out.txt中,每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是( )。

  • 查看答案
  • 在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮

    [单选题]在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮一次,文本框向右移动一定距离。下面能够正确实现上述功能的程序是( )。A.Private Sub Command1_Click()Text1.Left=100E.nd SubB.Private Sub Command1_Click()Text1.Left= Text1.Left-100E.nd SubC.Private Sub Command1_Click()Text1.Move.T

  • 查看答案
  • 窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1

    [单选题]窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明当单击“保存”按钮时.将两个文本框中的内容写入一个随机文件Test29.dat中设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是

  • 查看答案
  • ( 26 )窗体上有1个名称为 Text1 的文本框和1个名称为 Command