计算机二级VB考试题目

（A）、 If y>=x Then Max=y:Max=x （B）、 Max=IIf(x>y,x,y)

（C）、 If x>y Then Max=x Else Max=y （D）、 Max=x :If y>=x Then Max=y

10、 [单选题]假设在窗体上已经添加了通用对话框CommonDialog控件并设置好属性，其名称是CommonDialog1，在程序中要显示\打开\对话框，使用语句是：___________。 （A）、 CommonDialog1.Action=1 （B）、 CommonDialog1.Action=2 （C）、 CommonDialog1.Action=4 （D）、 CommonDialog1.Action=3 11、 [单选题]假定有如下的Sub过程: Sub S(x As Single, y As Single) t=x x=t/y y=t Mod y End Sub

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 ：b=4

S a, b Print a, b End Sub

程序运行后，单击命令按钮，输出结果为______。 （A）、 1.25 4 （B）、 5 4 （C）、 1 1 （D）、 1.25 1

12、 [单选题]要想从子过程调用后返回两个参数的值，下面子过程语句满足要求的是__________。 （A）、 Sub f(a%,Byval b%) （B）、 Sub f(ByVal a%,Byval b%) （C）、 Sub f(a%,b%) （D）、 Sub f(Byval a%,b%)

13、 [单选题]以下过程的功能是将字符串str1中所有的字符\删除，选择填空完成该过程。 Sub change(str1 As String , ch As String) Dim str2 As String,I As Integer,len1 As Integer len1=Len(str1) For I=1 to len1

If Mid(str1,I,1)< >\ Next I

_________________ End Sub

（A）、 str2=str1

（B）、 str1=str2 （C）、 change=str2 （D）、 change=str1

14、 [单选题]执行下列的程序段后，结果为______。 i = 0 n = 0

Do While i < 32 i = (i + 1) * (i + 1) n = n + 1 Loop Print n

（A）、 29 （B）、 3 （C）、 4 （D）、 0

15、 [单选题]执行下列程序，输出结果为__________。 Private Sub Command1_Click() Dim a As Integer, b As Integer a=10 b=30 S1 a, b

Print \ End Sub

Sub S1(ByVal x As Integer, ByVal y As Integer) t = x x = y y = t End Sub

（A）、 a=10 b=10 （B）、 a=10 b=30 （C）、 a=30 b=10 （D）、 a=30 b=30

16、 [单选题]窗体的Name属性为窗体指定___________。 （A）、 边框格式 （B）、 标题 （C）、 名称 （D）、 输出文字信息

17、 [单选题]用于显示弹出式菜单的方法名是______________。 （A）、 PopupMenu （B）、 ShowPopupMenu （C）、 ShowPopup （D）、 ShowMenu

18、 [单选题]下面程序的循环次数为____________。 For i=10 to 40 step 6

Print i Next i

（A）、 33 （B）、 5 （C）、 6 （D）、 32

19、 [单选题]执行以下程序段后，变量c$的值为_______。 a$ = \ b$ = \

c$ = b$ & Ucase(Mid$(a$, 7, 6)) & Right$(a$, 11) （A）、 Quick BASIC Programing （B）、 Visual BASIC Programing （C）、 Quick Basic Programing （D）、 QUICK Basic Programing

20、 [单选题]可以唯一区分不同窗体的属性是__________。 （A）、 Caption （B）、 Text （C）、 Tag （D）、 Name

21、 [单选题]在正常安装Visual Basic6.0后，可以通过多种方式启动Visual Basic。以下方式中不能启动Visual Basic的是：___________。

（A）、 进入DOS方式，执行vb6.exe文件 （B）、 通过\开始\菜单中的\程序\命令

（C）、 通过\我的电脑\找到vb6.exe，双击该文件名 （D）、 通过\开始\菜单中的\运行\命令 22、 [单选题]阅读程序：

Function func(n As Integer) As Integer Sum=0 For I=1 to n

Sum=Sum+(I+1)*I Next I Func=Sum End Function

Private Sub Command1_Click() Dim a As Integer a=3 s=func(a) print s End Sub

程序运行后，单击命令按纽，输出结果为：__________。 （A）、 15 （B）、 20 （C）、 8 （D）、 30

23、 [多选题]下面______是合法的变量名。 （A）、 hjlk_jk （B）、 6lk （C）、 integer_1 （D）、 h-i

24、 [多选题]______对象具有Cls方法。 （A）、 窗体 （B）、 图片框 （C）、 图像框 （D）、 打印机

25、 [单选题]要使列表框中的列表项显示为复选框形式，应将其Style属性设置为__________。 （A）、 0 （B）、 1 （C）、 3 （D）、 2

二、组合选择（20分，共10题）

26、若要结束一个VB应用程序，可以使用___C___语句。 27、对象对事件的响应是通过执行相应的__S____来实现的。 28、下面___A___是合法的日期型常量。

29、关于驱动器，下列叙述中不正确的是__B____。 30、若要卸载一个窗体，可以使用该窗体的__D____语句。 31、DoEvents语句的作用是__F____。

32、在Visual Basic 6.0中，过程有子程序过程和函数过程，其中__I____执行完后将得到一个返回值。 33、执行循环语句 For a= -3 to 2 Step 1 Print a Next a

时，循环体被执行__L____次。

34、单精度数据类型系统使用___N___标识符。

35、程序设计阶段，下列__T____控件在窗体上大小固定，不能由用户任意改变。

注意：请在试题的红色下划线处填写答案前所对应的字母，如“(D) Style”，只能填写英文字母“D”（大小写均可，必须在英文输入状态下输入），不能填写“Style”，否则作错误作答处理，填完后按回车键可转到下一题。可供选择的答案如下： （A） #11-09-99 9:36:23 PM#

（B） 要改变系统当前的工作驱动器需要使用ChDrive语句 （C） End （D） UnLoad （E） Load

（F） 将控制权交给操作系统 （G） 通用过程

（H） 当语句中的条件为真时执行循环体，当条件为假时，终止循环 （I） 函数过程 （J） Stop （K） 子程序过程