假定在窗体（名称为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" re

C．aColor = "White" Put #1, , rec Close #1 End Sub 则以下叙述中正确的是

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

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

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

D．语句“Put #1, , rec”将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 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 animalanimalName As String *20aColor As String *10E．nd Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）D．im rec As animalOpen "c:/vbTest.dat"For Random As #1 Len=Len（reC．rec.animalName=

[单选题]假定窗体的名称为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。

[单选题]在窗体中有一个命令按钮(名称为run1)，对应的事件代码如下： Private Sub rum_Click() suln=0 For i=10 To 1 Step-2 sum=Sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是( )。A．10B．30C．55D．其他结果

[单选题]往窗体Form1上励口—个列表框控件List1，并编写如下代码： Private Sub Form_Load() For i=0 To 6 List1.AddItem i Next i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置List1的属性 ______。A．List1.ListB．List1.ListIndexC．List1.MultiSelectD．List1.Text