设在工程中有一个标准模块，其中定义了如下记录类型： 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=InputBox( "姓

题目

设在工程中有一个标准模块，其中定义了如下记录类型： 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=InputBox( "姓名") B. TelNum=InputBox("电话号码") Write #1,B. Name,B. TelNum Close #1 EndSub

B．Private Sub Commandl_Click() Dim B As Books Open" d:\Pl.txt" For Input As B. Name=InputBox ("姓名") B. TelNum=InputBox ("电话号码") Print #1,B. Name,B. TelNum Close #1 EndSub

C．Private Sub Commandl_Click() Dim B As Books Open"d:\P1. txt"For Output As B. Name=InputBox("姓名") B. TelNum=InputBox ("电话号码") Write #1,B Close #1 EndSub

D．Private Sub Commandl Cliek() Open"d:\P1.txt" For Input As Name=InputBox("姓名") TelNum=InputBox ("电话号码") Print #1,Name,TelNum Close #1 EndSub

相似考题

1.假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String*10TelNuin As String*20End Type要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。Private Sub Command1_Clickk()DimB As Booksopen"c:\person.txt"For output As 1B.Name=InputBox("请输入姓名")B.TelNum=InputBox("请输入电话号码")write 1，______close 1End Sub

2.设在工程文件中有一个标准模块，其中定义了下列记录类型： Type Books Name As String*10 TelNum As String*20 End，Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（ ）。A.Private Sub Command1 Click（ ） Dim B AS Books Open"Person txt"For Output As#1 Name=InputBox(”输入姓名”) relNum=lnputBox(”输入电话号码”) Wlite#1 B Name，B TelNum Ch,se#1 End SubB.Private Sub Command1 Click（ ） Dim B AS Books Open"Person txt"For Input As#1 >Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print#1，B．Name，B．TelNam Close#1 End SubC.Private Sub Command1 Click（ ） Dim BAS Books Open"Person txt"For Output As#1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Write#1，B Close#1 End SubD.Private Sub Commandl Click（ ） Open"Person txt"For Input As#1 Name=lnputBox("输入姓名") TelNum=lnputBox("输入电话号码") Prim#1 Name TelNum Close#1 End Sub

3.在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：记录类型定义如下：下列叙述中正确的是（ ）。A. 记录类型animal不能在Form1中定义，必须在标准模块中定义B. 如果文件c：\vbTest．dat不存在，则Open命令执行失败C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D. 语句“Put#1,,rec”将animal类型的两个数据元素写到文件中

4.设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String ( 10 Te1Num As String * 20End Type在窗体上添加一个名为Command1的命名按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。请在横线中填入适当的内容，将程序补充完整。Private Sub Command1_Click() Dim B As____ Open "c：\person.txt"For Output As #1 B.Name=InputBox("输入姓名") B.Te1Num=InputBox("输入学号") Write#1,B.Name,B.Te1Num Close #1End Sub

更多“设在工程中有一个标准模块,其中定义了如下记录类型:Type BooksName As String * 10TelNum As Str ”相关问题

  • 第1题：

    设在工程文件中有一个标准模块，其中定义了下列记录类型：

    Type Books

    Name As String*10

    TelNum As String*20

    End，Type

    在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（ ）。

    A.Private Sub Command1 Click（ ）

    Dim B AS Books

    Open"Person txt"For Output As#1

    Name=InputBox(”输入姓名”)

    relNum=lnputBox(”输入电话号码”)

    Wlite#1 B Name，B TelNum

    Ch,se#1

    End Sub

    B.Private Sub Command1 Click（ ）

    Dim B AS Books

    Open"Person txt"For Input As#1

    >Name=InputBox("输入姓名")

    TelNum=InputBox("输入电话号码")

    Print#1，B．Name，B．TelNam

    Close#1

    End Sub

    C.Private Sub Command1 Click（ ）

    Dim BAS Books

    Open"Person txt"For Output As#1

    Name=InputBox("输入姓名")

    TelNum=InputBox("输入电话号码")

    Write#1，B

    Close#1

    End Sub

    D.Private Sub Commandl Click（ ）

    Open"Person txt"For Input As#1

    Name=lnputBox("输入姓名")

    TelNum=lnputBox("输入电话号码")

    Prim#1 Name TelNum

    Close#1

    End Sub


    正确答案：A
    A。【解析】Type语句用于在模块级别(过程外的任何代码都被看作模块级别代码，必须先列出声明，随后列出过程)中定义一个用户自己的数据类型，本质上是一个数据类型集合，它含有一个至一个以上的成员。每个成员可以被定义为不同的数据类型。当声明自定义类型变量后，可通过“变量名．成员名”来访问自定义变量中的元素。VisualBasic程序中关于文件的操作，主要是先打开一个文件，然后对这个文件进行读或写的操作，操作完成后，关闭这个文件。打开文件的基本格式为：OpenFileNameForModeAs#FileNumber。打开方式主要有Output、Append、Input、Random等几种，Output、Append、Input方式打开的文件进行的读写操作都是以顺序方式进行的，其中Output、Append打开的文件主要用来输出数据，与Print#、Write#等方法配合使用；以Input方式打开的：(件主要用来读入数据，它与Input#、LineInput#语句配合使用。本题中，选项B和选项D均是以Input方式打开文件，显然错误，选项C中向顺序文件中写入记录的语句错误，正确答案只有选项A。

  • 第2题：

    假定已经定义了一个名为arr_type的PL／SQL表类型,那么怎样实例化一个arr_type类型的变量()

    A.v_arr arr_type;

    B.v_arr is arr_type;

    C.v_arr of arr_type;

    D.v_arr arr_type%type;


    参考答案：A

  • 第3题：

    若要定义全局的结构类型，应在其中定义的模块是 （ ）。

    A．启动窗体

    B．标准模块

    C．类模块

    D．窗体级模块


    正确答案：B
    全局结构类型应在标准模块中定义。

  • 第4题：

    LTE中有两种无线帧类型type1和type2 ，其中type1用于TDD。()


    答案×

  • 第5题：

    下面定义PL／SQL记录的语法正确的是()。

    A.TYPE <记录类型名> IS RECORD

    B.TYPE <记录类型名> RECORD

    C.RECORD <记录类型名>

    D.TYPE RECORD <记录类型名>


    参考答案：A

  • 第6题：

    有变量定义语句“Dim Str1，Str2 As String *10”，其中Str1变量的类型应为（），其中Str2变量的类型应为（）。
    变体型；字符串型
    略

相关内容