假字在窗体(名称为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类型的两个数据元素写到文件中


相似考题
更多“假字在窗体(名称为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