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

A．计算机

B．等级

C．考试

D．Form1

[单选题]对窗体编写如下代码：Option Base1Private Sub Form_Key Press（Key Ascii AsInteger）a=Array（237，126，87，48，498）m1=a（1）m2=1IfKey Ascii=13ThenForI=2To5Ifa（I）>mlThenm1=a（j）m2=IEndIfNextIEndIfPrintm1Printm2EndSub程序运行后，按回车键，输出结果为（）A . 499B . 237C . 498

[单选题]假定在窗体（名称为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上励口—个列表框控件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

[单选题]往窗体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

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

[单选题]对窗体编写如下事件过程： Private Sub Form_ MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button =2 Then Print “AAAAA” End If End Sub Private Sub Form_ MouseUp (Button As Integer，Shift As Integer，X As Single，Y As Single) Print “BBBBB” E

[单选题]对窗体编写如下事件过程： Private Sub Form. _ MouseDown(BuRon As Integer，Shift As Integer, X As Single， Y As Single) If Button=2 Then Print "AAAAA" End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) Print "BBBB

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