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

Private Type animal

animalName As String *20

aColor As String *10

E．nd Type

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

Private Sub Command1_Click（）

D．im rec As animal

Open "c:/vbTest.dat"For Random As #1 Len=Len（re

C．

rec.animalName= "Cat"

rec.aColor= "White"

Put #1,,rec

C．lose #1

E．nd Sub

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

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

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

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

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

[单选题]假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animalAnimalName As String*20AColor As String*10E．nd Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click（）Dim rec As animalOpen "c:/vbTest.dat" For Random As #1 Len = Len（rec） rec.anima

[单选题]假定在窗体（名称为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.animal

[单选题]假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 a Color As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() Dim rec As animal Open"c:/vbTest.dat"For Random As #1 Len=Len(rec) rec.animalN

[单选题]假定在窗体(名称为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. anima

[单选题]假定窗体的名称为Form1，对该窗体编写如下代码： Private Sub Form_Load() Form1．Caption="计算机" Me．Caption="等级" Caption="考试" End Sub 程序运行后，窗体的标题是A．计算机B．等级C．考试D．Form1

[单选题]一个工程中包含两个名称分别为Form1、Form2的窗体。假定在Form1和Form2中分别建立了自定义过程，其定义格式为：F．orm1中定义的过程：PrivateSubFun1()……E．ndSubF．orm2中定义的过程：PrivateSubFun2()……E．ndSub若要在窗体Form2调用Form1中建立的自定义过程Fun1，则调用格式正确的是( )A．Fun1()B．CallForm1.Fun1()C．Form1.Fun2()D．CallFun1()

[试题]在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click（）Open "d:/test/smtext1.txt" For Input As #1D．o While Not ______Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr$（13） + Chr$（10）LoopText1.Text = whol

[试题]在名为Form1的窗体上绘制一个标签，其名称为Lab1，在属性窗口中把BorderStyle属性设置为1。编写适当的事件过程，使程序运行后，若单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。程序的运行情况如下图所示。注意：不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise32.vbp，窗体文件名为execise32.frm。

[单选题]在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（ ）。A．Private Sub Text1_Change（）C．ommand1.Caption = "计算机等级考试"E．nd SubB．Private Sub Command1_ Click （）C．aption = "计算机等级考试"E．nd Sub

[单选题]在窗体（名称为Form1）上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是。A．Private Sub Tex1_Change() Command1.Caption="计算机等级考试" End SubB．Private Sub Command1_Click() Caption="计算机等级考试"C．Private Sub Com