假字在窗体(名称为Forml)的代码窗口中定义如下记录类型: Private Type animal Anima1Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim rec As animal Open"c: \vbTest.dat"For Random As#1 Len = Len(reC)rec.animalNam

题目

假字在窗体(名称为Forml)的代码窗口中定义如下记录类型: Private Type animal Anima1Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim rec As animal Open"c: \vbTest.dat"For Random As#1 Len = Len(reC)rec.animalName = "Cat" rec.aColor = "White" Pat#1 , rec Close#1 End Sub 则以下叙述中正确的是

A．记录类型animal不能在Form1中定义,必须在标准模块中定义

B．如果文件c：\vbTest.dat不存在，则Open命令执行失败

C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D．语句"Put#1，rec"将animal类型的两个数据元素写到文件中

相似考题

1.假定在窗体（名称为Form1） 的代码窗口中定义如下记录类型：Private Type animalanimalName As String *20aColor As String *10End Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim rec As animalOpen "c:\vbTest.dat"For Random As #1 Len=Len（reC．rec.animalName= "Cat"rec.aColor= "White"Put #1,,recClose #1End Sub则以下叙述中正确的是（ ）。A．记录类型animal不能在Form1中定义，必须在标准模块中定义B．如果文件c:\vbTest.dat不存在，则Open命令执行失败C．由于Put命令中没有指明记录号，因此每次都把记录写在文件的末尾D．语句"Put #1,,rec"将animal类型的两个数据元素写到文件中

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

3.假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上面一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest. dat" For Random As #1 Len=Len(rec)rec. animalName="Cat" rec. aColor="White" Put #1, , rec End Sub 则以下叙述中正确的是______。A．记录类型animal不能在Form1中定义，必须在标准模块中定义B．如果文件"c:\vbTest. dat"不存在，则Open命令执行失败C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中

4.在窗体模块的声明段中用Public定义的变量可以在 ________ 模块中使用，而用Dim或Private关键字定义的变量可以在 _______ 模块中使用。

更多“假字在窗体(名称为Forml)的代码窗口中定义如下记录类型: Private Type animal Anima1Name As Str ”相关问题

  • 第1题：

    假定在窗体（名称为Form1）的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len = Len(reCreC.animalName = "Cat" reC．aColor = "White" Put #1, , rec Close #1 End Sub 则以下叙述中正确的是

    A． 记录类型animal不能在Form1中定义，必须在标准模块中定义

    B．如果文件c:\vbTest.dat不存在，则Open命令执行失败

    C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

    D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中


    正确答案：D

  • 第2题：

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

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

    B.TYPE <记录类型名> RECORD

    C.RECORD <记录类型名>

    D.TYPE RECORD <记录类型名>


    参考答案：A

  • 第3题：

    8、如下代码的运行结果是__________。str1='abcd' print（type（str1[0]))

    A．＜class 'char'＞

    B．＜class 'int'＞

    C．＜class 'float'＞

    D．＜class 'str'＞


    B

  • 第4题：

    假定在窗体(名称为Form1)的代码窗口中定义如下记录类型：

    Private Type animal

    animal Name As String * 20

    aColor As String * 10

    End Type

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

    Private Sub Command1 Click()

    Dim rec As animal

    Open "c：\vb Test.dat"For Random As # 1 Len=Len(reC) rec.animalName="cat"

    rec.aColor="White"

    Put # 1，，rec

    Close # 1

    End Sub

    则以下叙述中正确的是 ______。

    A．记录类型animal不能在Form1中定义，必须在标准模块中定义

    B．如果文件c:\vbTest.dat不存在，则Open命令执行失败

    C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

    D．语句"Put # 1，，rec"将animal类型的两个数据元素写到文件中


    正确答案：D
    解析：记录类型可以在标准模块中定义，也可以在窗体模块中定义。如果文件c:\vbTest.dat不存在，Open命令是可以执行的；随机访问模式中文件的写操作使用Put命令，其形式如下：Put[#]文件号，[记录号]，变量名。其中：记录号是大于1的整数，表示写入的是第几条记录；如果忽略记录号，则表示在当前记录后插入一条记录。

  • 第5题：

    假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：

    Private Type animal

    AnimalName As String*20

    AColor As String*10

    End Type

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:

    Private Sub Command1_Click（）

    Dim rec As animal

    Open "c:\vbTest.dat" For Random As #1 Len = Len（rec）

     rec.animalName = "Cat"

     rec.aColor = "White"

     Put #1, , rec

    Close #1

    End Sub

    则以下叙述中正确的是（ ）。

    A．记录类型animal不能在Form1中定义，必须在标准模块中定义

    B．如果文件c:\vbTest.dat不存在，则Open命令执行失败

    C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

    D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中


    正确答案：C

相关内容