计算机二级考试VB2014年试题3

21．设有如下程序： 
　　Option Base 0 
　　Private Sub Form_Click() 
　　  Dim a 
　　  Dim i As Integer 
　　  a=Array(1，2，3，4，5，6，7，8，9) 
　　  For i=0 To 3 
　　    Print a(5-i)； 
　　  Next 
　　End Sub 
　　程序运行后，单击窗体，则在窗体上显示的是(    )。 
　　A．4 3 2 1  
　　B．5 4 3 2 
　　C．6 5 4 3  
　　D．7 6 5 4 
　　22．为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是(    )。 
　　A．Visible  
　　B．Timer 
　　C．Enabled  
　　D．Interval 
　　23．下列说法正确的是(    )。 
　　A．任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器 
　　B．只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 
　　C．只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 
　　D．任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器 
　　24．假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。 
　　Model1代码如下： 
　　Public X As Integer 
　　Public Y As Integer 
　　Sub S1() 
　　  x=1 
　　  S2 
　　End Sub 
　　Sub S2() 
　　  y=10 
　　  Form1．Show 
　　End Sub 
　　Model2的代码如下： 
　　Sub Main() 
　　  S1 
　　End Sub 
　　其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是(    )。 
　　A．Form1→Model1→Model2 
　　B．Model1→Model2→Form1 
　　C．Model2→Model1→Form1 
　　D．Model2→Form1→Model1 
　　25．在窗体上有一个命令按钮，然后编写如下事件过程： 
　　Private Sub Command1Click() 
　　  Dim a(5)As String 
　　  For i=1，To 5 
　　    a(i)=Chr(Asc("A")+(i-1))  
　　  Next i 
　　  For Each b In a 
　　    Print b； 
　　  Next 
　　End Sub  
　　程序运行后，单击命令按钮，输出结果是(    )。 
　　A．ABCDE  
　　B．1 2 3 4 5 
　　C．abcde  
　　D．出错信息 
　　26．设a=2，b=3，c=4，d=5，下列表达式的值是(    )。 
　　Not a<=c Or 4*C=b^2 And b<>a+C 
　　A．-1  
　　B．1 
　　C．True  
　　D．False 
　　27．窗体上有文本框Text1和一个菜单，菜单标题、名称见表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是(    )。

　　 
　　A．Private Sub save Click() 
　　      Text1．Text=file．save．Caption 
　　End Sub 
　　B．Private Sub save Click() 
　　  Text1．Text=save．Caption 
　　End Sub 
　　C．Private Sub file Click() 
　　  Text1．Text=file．save．Caption 
　　End Sub 
　　D．Private Sub file Click() 
　　  Text1．Text=save．Caption 
　　End Sub 
　　28．在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮，运行后的窗体外观如图所示：

　　 
　　设有如下的类型和变量声明： 
　　Private Type Person 
　　  name As STRING*8 
　　  major As String*20 
　　End Type 
　　Dim P As Person 
　　设文本框中的数据已正确地赋值给Person类型的变量P，当点击“保存”按钮时，能够 
　　正确地把变量中的数据写入随机文件Test2．dat中的程序段是(    )。 
　　A．Open"C：＼Test2．dat"For Output As#1 
　　Put#1，1，p 
　　Close#1 
　　B．0pen"c：＼Test2．dat"For Random As#1 
　　Get#1，1，P 
　　Close#1 
　　C．Open”C：＼Test2．dat”For Random As#1 Len—Len(p) 
　　Put#1，1，P 
　　Close#1 
　　D．Open"C：＼Test2．dat"For Random As#1 Len=Len(p) 
　　Get#1，1，P 
　　Close#1 
　　29．以下叙述中错误的是(    )。 
　　A．一个工程中可以包含多个窗体文件 
　　B．在一个窗体文件中用Private定义的通用过程能被其他窗体调用 
　　C．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 
　　D．全局变量必须在标准模块中定义 
　　30．Sub过程与Function过程最根本的区别是(    )。 
　　A．Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以 
　　B．Function过程可以有形参，Sub过程不可以 
　　C．Sub过程不能返回值，而Function过程能返回值 
　　D．两种过程参数的传递方式不同