[单选题]

在工程中的标准模块中定义了如下数据类型: Type fruit orange As Integer apple As Integer End Type 在窗体上有—命令按钮Command1,要求当单击命令按钮时在C:/根目录下的顺序文件myfrtac.txt 中写入一条记录,下列能够完成改操作的事件过程是______ 。

A.Private Sub Command1_Click() Dim myfrt As fruit myfrt. range = 5 myfrt. apple = 10 Open “c:/myfrta. txt” For Output As #1 Print #1, myfrt. orange; myfrt. apple Close #1 End Sub

B.Private Sub Command1_Click() Dim myfrt As fruit myfrt. range= 5 myfrt. apple= 10 Open “c:/myfrtac. txt”For Input As #1 Print #1, myfrt, orange; myfrt. apple Close #1 End Sub

C.Private Sub Command1_Click() Dim myfrt As fruit myfrt. range= 5 myfrt. apple = 10 Open “c:/myfrtac. txt” For As #1 Print #1, myfrt. orange; myfrt. apple Close #1 End Sub

D.Private Sub Command1_Click() Dim myfrt As fruit myfrt. range = 5 myfrt. apple= 10 Open “c:/myfrtac..txt” For Output As #1 Print myfrt. orange; myfrt. apple Close #1 End Sub

参考答案与解析:

相关试题

设在工程文件中有—个标准模块,其中定义了如下记录类型:Type BooksNam

[单选题]设在工程文件中有—个标准模块,其中定义了如下记录类型:Type Books Name As String *10 TelNum As String*20End Type在窗体上画—个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Petson.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 ______。A.Private Sub Command1_ Click() Dim B As Books Open "Person.txt

  • 查看答案
  • 设在工程中有一个标准模块,其中定义了如下类型:Type stutypeino

    [单选题]设在工程中有一个标准模块,其中定义了如下类型: Type stutype ino As Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上画一个名为Connnand1的命令按钮,要求当执行事件过程Command1_Click时,在c:/的随机文件student..dat写入一条记录。下列能够完成该操作的事件过程是( )。A.Sub Command1_C1ick() Dim student As

  • 查看答案
  • 设在工程中定义了如下类型:Type stutypeino As Integers

    [单选题]设在工程中定义了如下类型: Type stutype ino As Integer stmame As String*20 strsex As String*1 smark As Single End Type 在窗体上正确使用这个类型的是下列哪个操作( )。A.Sub Command1_click() Dimstudent As Stutype With student .ino=12 .strname=smith .strsex=男 .smark=89 End With End SubB.S

  • 查看答案
  • 设在工程中有一个标准模块,其中定义了如下记录类型______。Type Book

    [单选题]设在工程中有一个标准模块,其中定义了如下记录类型______。 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Commandl的命令按钮,要求当执行事件过程Commandl_click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。A.Ptivate Sub Commandl Click() Dim B As Books Open"C:/Person.txt"

  • 查看答案
  • 设在工程中有一个标准模块,其中定义了如下记录类型:Type BooksName

    [单选题]设在工程中有一个标准模块,其中定义了如下记录类型:Type Books Name As String *10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_ Click时,在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。A.Private Sub Command1_ Click() Dim x As Books Open "C:/Person. txt"

  • 查看答案
  • 设在工程中有一个标准模块,其中定义了如下记录类型:Type BooksName

    [单选题]设在工程中有一个标准模块,其中定义了如下记录类型: Type Books Name As String * 10 TelNum As String * 20 EndType 在窗体中添加一个名为Commandl的命令按钮,要求单击命令按钮时,在顺序文件 Ptxt中写入一条记录。下列能够完成该操作的程序段是 ( )A.Private Sub Commandl_Click() Dim B As Books Open"d:/P1.txt"For Output As #1 B. Name=Input

  • 查看答案
  • 设在工程中有一个标准模块,其中定义了如下记录类型Type BooksName

    [单选题]设在工程中有一个标准模块,其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时, 在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。A.Private Sub Command1_Click() Dim B As Books Open "c:/Person.txt" For

  • 查看答案
  • 设在工程中有一个标准模块,其中定义了如下记录类型Type BooksName

    [单选题]设在工程中有一个标准模块,其中定义了如下记录类型Type Books Name As String *10 TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_ Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。A.Private Sub Command1_Click() Dim B As Books Open "c:/Person.txt" For O

  • 查看答案
  • 设在工程中定义了如下类型: Type stutype ino As Intege

    [单选题]设在工程中定义了如下类型: Type stutype ino As Integer strname As String*20 strsex As String* 1 smark As Single End Type在窗体上正确使用这个类型的是下列哪个操作( )。A.Sub Commandl_Click0 Dim student As Stutype With student .ino = 12 . strname = smith .strsex = .smark = 89 End With En

  • 查看答案
  • 设在工程中有一个标准模块,其中定义了如下记录类型:Type Books Name

    [单选题]设在工程中有一个标准模块,其中定义了如下记录类型:Type Books Name As String *10 Te1Num As String *20End Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是。A.Private Sub Command1_Click() Dim B As Books Open"c":/Person.txt"For Output

  • 查看答案
  • 在工程中的标准模块中定义了如下数据类型:Type fruitorange As