第 1 页：选择题

　　第 5 页：基本操作题

　　第 6 页：简单应用题

　　第 7 页：综合应用题

　　一、选择题

　　1

　　在窗体上画一个名称为Label1、标题为"Visual Basic 考试"的标签，两个名称分别为Co mmand1和Co mmand2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称

　　为Ti mer1的计时器控件，并把其Interval 属性设置为500，如图所示。

　　编写如下程序：

　　Private Sub Form_Load()

　　Ti mer1.Enabled =false

　　End Sub

　　Private Sub Co mmand1_Click()

　　Ti mer1.Enabled =True

　　End Sub

　　Private Sub Ti mer1_Ti mer()

　　If Label1.Left

　　Label1.Left =label1.Left +20

　　Else

　　Label1.Left =0

　　End If

　　End Sub

　　程序运行后单击"开始"按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是(　　)。

　　A. 标签的移动方向为自右向左

　　B. 单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动

　　C. 当标签全部移出窗体后，将从窗体的另一端出现并重新移动

　　D. 标签按指定的时间间隔移动

　　参考答案:A 系统解析:本题考查Ti mer 控件的使用。Ti mer 中Interval 的单位为毫秒，设置为500意味着每隔0.5秒作用一次。Ti mer 的Enaled 属性指示Ti mer 控件是否可用。同时本题还考查了对Label 控件的属性的掌握：Left 属性为Label 的左边界的坐标，Width 为Label 的宽度。本程序中单击按钮后，Label1将每隔0.5秒向右移动，当移动到Left>Width 时，Label1重定位到窗体的左边界，然后继续移动。选项A 错误的。

　　2

　　下面程序执行时，在窗体上显示的是(　　)。

　　Private Sub Co mmand1_Click()

　　Di ma(10)

　　For k =1To 10

　　a(k)=11k

　　Next k

　　Print a(a(3)\a(7)Mod a(5))

　　End Sub

　　A. 3

　　B. 5

　　C. 7

　　D. 9

　　参考答案:D 系统解析:从题中易知For 循环是为a(10)赋值的，且a(1)=10，a(2)=9……a(9)=2，a(10)=1，则a(a(3)\a(7)Mod a(5))=a(8\4Mod6)=a(2)=9。

　　3

　　某二叉树中有n 个度为2的结点，则该二叉树中的叶子结点数为(　　)。

　　A. n +1

　　B. n -1

　　C. 2n

　　D. n/2

　　参考答案:A 系统解析:在任意一棵二叉树中，设度为0的结点(即叶子结点)数为n0，度为2的结点数为n2，则有n0=n2+1。所以该二叉树的叶子结点数等于n +1。

　　4

　　要使文本框获得输入焦点，则应采用文本框控件的( )方法。

　　A. GotFocus

　　B. LostFocus

　　C. KeyPress

　　D. SetFocus

　　参考答案:D 系统解析:GotFocus 是当对象获得焦点时触发的事件;LostFocus 事件是在对象失去焦点时触发的事件;SetFo-cus 方法是将焦点移至指定的控件或窗体;KeyPress 事件是当用户按下和松开一个键时触发的事件。

　　5

　　Sub过程与Function过程最根本的区别是(　　)。

　　A. Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以

　　B. Function过程可以有形参，Sub过程不可以

　　C. Sub过程不能返回值，而Function过程能返回值

　　D. 两种过程参数的传递方式不同

　　参考答案:C 系统解析:Visual Basic中Sub过程与Function基本类似，但有一点不同：Sub过程不能返回值，而Function过程能返回值。

　　6

　　已知使用Show 方法的格式为：[窗体名称].Show[模式]，如果要使窗体是"模态型"窗体，则"模式"值为(　　)。

　　A. True

　　B. 0

　　C. 1

　　D. False

　　参考答案:C 系统解析:模式窗体就是相对于父窗体独占打开的窗体，跟非模式窗体相比，程序必须等到模式窗体退出时才会继续执行。通过设置窗体模式为1达到模态型。

　　7

　　为计算an 的值，某人编写了函数power 如下：

　　Private Function power(a As Integer ，n As Integer)

　　As Long

　　Di mPAsLong

　　p =a

　　For k =1To n

　　p =p*a

　　Next k

　　power =p

　　End Function

　　在调试时发现是错误的，例如Print power(5，4)的输出应该是625，但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是(　　)。

　　A. 把For k =1To n 改为For k =2To n

　　B. 把p =p*a 改为p =p^n

　　C. 把For k =1To n 改为For k =1To n -1

　　D. 把p =a 改为p =1

　　参考答案:B 系统解析:本题函数power(a，n)的功能是要返回n个a 相乘的值。而源程序中返回的是(n +1)个a 相乘的值，解决问题的方法可以是，将p 的初值设置为1或将循环变量的取值范围设定为1~n -1(或2~n)。

　　8

　　以下叙述中错误的是( )。

　　A. 在程序运行时，通用对话框控件是不可见的

　　B. 在同一个程序中，用不同的方法(如ShowOpen 或ShowSave 等)打开的通用对话框具有不同的作用

　　C. 调用通用对话框控件的ShowOpen 方法，可以直接打开在该通用对话框中指定的文件

　　D. 调用通用对话框控件的ShowColor 方法，可以打开颜色对话框

　　参考答案:C 系统解析:本题考查文件列表框的使用及Shell 函数的用法。由于程序使用的是Dblclick 事件，因此选项B正确。同时执行文件的名字通过File Name 属性来指定。

　　Shell 函数的第二个参数决定了File1中显示的是当前驱动器、当前目录下的文件。Shell 函数的格式：Shell(命令字符串[，窗口类型])，其中"命令字符串"是要执行的应用程序

　　的文件名(包括路径)，它必须是可执行文件，其扩展名为".co m"".EXE"".BAT"或".PIF"，其他文件不能用Shell 函数执行。"窗口类型"是执行应用序时的窗口的大小。Shell

　　函数调用某个应用程序并成功地执行后，返回一个任务标识(Task ID)，它是执行程序的唯一标识，在具体输入程序时，ID 不能省略，必须在前面加上"x="(可用其他变量名)，x 用来接收Shell 函数的返回值，所以选项A 错误。

　　9

　　在窗体上有一个命令按钮，然后编写如下事件过程：

　　Private Sub Co mmand1_Click() Di ma(5)As Stri ng For i =1To 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. 出错信息

　　参考答案:A 系统解析:Asc(字符)将字符转换为其ASCII 码值，Chr(数字)将数字转换为ASCII 相对应的字符。本程序首先定义一维字符串数组a(5)，然后将字符"A"的ASCII 码值分别加上0、1、2、3、4，转换为字符串存入a(5)。其值为ABCDE。

　　10

　　设在窗体中有一个名称为List1的列表框，其中有若干个项目(如图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是(　　)。

　　A. Private Sub Command1_Click()

　　List1.Clear

　　End Sub

　　B. Private Sub Command1_Click()

　　List1.Clear List1.ListIndex

　　End Sub

　　C. Private Sub Command1_Click()

　　List1.Re movelte m List1.ListIndex

　　End Sub

　　D. Private Sub Command1_Click()

　　List1.Re movelte m

　　End Sub

　　参考答案:C 系统解析:在Visual Basic 中列表框的clear 方法是用来删除所有列表项，Re moveIte m 方法是删除指定的列表项，而列表框的Index 属性表示选中的列表项的位置;本题是删除选中的列表项，故应选C。