2013年9月计算机等考二级VB上机临考冲刺试卷(1)

　>>点击进入在线模考中心：2013年9月计算机等考二级VB上机临考冲刺试卷(1)

　　一、选择题(每小题1分，共40小题，共40分。)

　　1 假定有一个菜单项，名为Menultem，为了在运行时使该菜单项不可见，应使用的语句为(　　)。

　　A. Menultem.Enabled=False

　　B. MenuItem.Enabled=True

　　C. MenuItem.Visible=True

　　D. Menultem.Visible=Flase

　　2 为丫从当前文件夹中读入文件File1.txt，某人编写了下面的程序：

　　Private Sub Command1_Click(　　)

　　Open"File1.txt"For Output As#20

　　Do While Not EOF(20)

　　Line Input#20，ch$

　　Print ch

　　Loop

　　Close#20

　　End Sub

　　程序调试时，发现有错误，下面的修改方案中正确的是(　　)。

　　A. 在Open语句中的文件名前添加路径

　　B. 把程序中各处的“20”改为“1”

　　C. 把Print ch语句改为Print#20，ch

　　D. 把Open语句中的0utput改为Input

　　3设有以下函数过程

　　Private Function Fun(a(　　)As Integer，b As String)As Integer

　　…

　　End Function

　　若已有变量声明：

　　Dim x(5)As Integer，n As Integer，ch As String

　　则下面正确的过程调用语句是(　　)。

　　A. x(O)=Fun(x."ch")

　　B. n=Fun(n.ch)

　　C. CallFun X，"ch"

　　D. n=Fun(x(5)，ch)

　　4 窗体的左右两端各有1直线，名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Linel直线上(见图);另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interva1属性设置为1000，并编写了如下程序：

　　Private Sub Timer1 Timer(　　)

　　For k=Line1.X1 To Line2.X1 Step 100

　　If Shape1.Left+Shape1.width　　Shape1.Left=Shape1.Left+100

　　End If

　　Next k

　　End Sub

　　运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是(　　)。

　　A. 把计时器的Interval属性设置为1

　　B. 把For k=line1.X1 To Line2.X1 Step 100和Next k两行删除

　　C. 把For k=Line1.X1 To Line2.X1Step 100改为For k=Line2.X1 To Line1.X1 Step 100

　　D. 把If Shape1.Left+Shepe1.Width　　5 以下关予菜单设计的叙述中错误的是(　　)。

　　A. 各菜单项可以构成控件数组

　　B. 每个菜单项可以看成是一个控件

　　C. 设计菜单时，菜单项的“有效”选，即有效，表示该菜单项不显示

　　D. 菜单项只响应单击事件

　　一、选择题(每小题1分，共40小题，共40分。)……

　　二、基本操作题(共18分)……

　　三、简单应用题(共24分)……

　　四、综合应用题(共18分)……

>>点击查看更多在线模拟试题

编辑推荐：

2013年计算机等级考试备考精华资料汇总

全国计算机等级考试教材目录（2013年版）

全国计算机等级考试考试大纲（2013年版）