1、一、单项选择题 (共 30 题、共 60 分)1.下面的子过程语句说明合法的是_。A、Function f%(f%) 答案+我名字B、Function f1!(ByVal n%)C、 Sub fib(j%) As IntegerD、Sub fib(ByRef i%() 2.下列赋值语句中正确的是（ ）。A、x1=5 B、s$100C、a=10eD、x！=abc3.对象的属性用来描述对象的特征，它们是一组（ ）。A、属性名B、操作C、程序D、数据4.下列程序段的执行结果为（）。 N=0:J=1 Do Until N2 N=N+1 J=J+N*(N+1) Loop Print N;JA、3 21
2、B、3 13C、3 7 D、0 15.以下关于变量作用域的叙述中，正确的是( )。A、模块级变量只能用Private关键字声明B、窗体中凡被声明为Private的变量只能在某个指定的过程中使用C、全局变量必须在标准模块中声明D、Static类型变量的作用域是它所在的窗体或模块文件6.若要在图片框中绘制一条直线，使用的方法是（ ）。A、CircleB、PointC、PsetD、Line7.要将一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为（ ）。A、2B、3C、1D、08.假如列表框（List1）有4个数据项,那么把数据项“china”添加到列表框的第二项，
3、应使用的语句是（ ）。A、List1.Additem 1,”china”B、List1.Additem “china”,1C、List1.Additem “china”,2D、List1.Additem 2,”china”9.关于VB描述错误的是（ ）。A、VB具有事件驱动的编程机制B、VB的工具箱窗口由被绘制成按钮形式的图标构成。C、VB是面向过程的程序设计语言D、VB集成开发环境是一组软件工具，集应用程序的设计、编辑、运行调试等于一体10.菜单控件仅支持的事件是（ ）。A、KeyPress B、LoadC、MouseDownD、Click11.下列程序段的执行结果为（）。N=0For I=
4、1 To 3For J =5 To 1 Step-1N = N+1Next J,IPrint N;J;IA、12 3 1B、5 3 1C、15 0 4D、12 0 412.Dim uPrivate Sub Form_Click()For i = 9 To 1 Step -1Print u(i);Next iEnd SubPrivate Sub Form_Load()u = Array(1, 3, 5, 7, 9, 10, 8, 6, 4, 2)u(1) = 100End Sub运行时，鼠标点击窗体，窗体上输出结果为 。A、2 4 6 8 10 9 7 5 3 1B、2 4 6 8 10 9 7
5、 5 3 100C、1 3 5 7 9 10 8 6 4 100D、2 4 6 8 10 9 7 5 100 113.图像框根据加载的图像的大小调整尺寸，需要设置为False的属性是（ ）。A、Picture B、AppearanceC、StretchD、AutoSize14.下列程序段的执行结果是（ ）。 x = Int(Rnd + 4) Select Case x Case 5 Print 优秀 Case4 Print 良好 Case 5 Print 通过 Case Else Print 不通过 End SelectA、通过B、不通过C、良好D、优秀 15.下列选型中，说法错误的是（ ）。
6、A、不能给顶级菜单项设置快捷键B、在程序执行时,如果菜单项的Enabled属性为False,则该菜单项变成灰色,不能被用户选择C、除了Click事件外,菜单项还能响应其他的如Dblclick等事件D、每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件16.下列选项中可以用作容器的是（ ）。A、框架 B、文本框C、列表框D、图像框17.当执行以下程序时，在名为lblResult的标签框内将显示（）。Private Sub cmdlt_click()Dim I,RR=0For I=1 To 5 Step 1R=R+INext IlblResult.Caption=Str（R）End Sub
7、A、字符串5B、整数5C、整数15D、字符串1518.已知d=#2015-04-01#表达式year(d)+1的值是（ ）。A、05B、02C、2016 D、出错19.若要获得滚动条的当前值，可访问的属性是（ ）。A、MaxB、MinC、Value D、Text20.要禁用计时器控件，需要设置为False的属性是（ ）。A、TimerB、IntervalC、VisibaleD、Enable21.以下语句输出结果是（ ）。Private Sub Form_Click()A=Beijing b=ShangHai Print a;bEnd SubA、BeijingShangHaiB、Abeijing
8、C、AbeijingShangHaiD、Beijing ShangHai22.下列选项中叙述正确的是（ ）。A、在执行Select Case语句时，所有的Case子句都按出现的次序被顺序执行B、Select Case语句的测试表达式会多次计算C、Select Case语句中的条件表达式只能是数值表达式或者字符表达式D、Select Case语句中的条件表达式可以是任何形式的表达式23.以下关于过程的叙述中，错误的是（ ）。A、不能在事件过程中定义通用过程。B、可以在事件过程中调用过程。C、事件过程是由某个事件触发而执行的过程。D、函数过程的返回值可以有多个。24.当复选框设置为图片风格时，可以
9、在复选框被选中时显示图形的属性是（ ）。A、PictureB、ImageC、DownPictureD、DisabledPicture25.下列程序运行时，输出星号的行数是（）。Private sub Form_click（）For i 1 to 10For j 1 to iPrint”；Next jPrintNext iEnd SubA、55B、100C、20D、1026.若定义一维数组为：Dim a(i To j)，则该数组的元素为( )个。A、j*iB、i+jC、j-i+1D、j-i27.在使用菜单编辑器设计菜单时，必须输入的项是（ ）。A、索引 B、快捷键C、名称 D、标题 28.要使循
10、环体至少执行一次，应使用的循环结构是（）。A、DoLoop while|until循环 B、dowhile|untilloop循环C、Whilewend循环D、Fornext循环 29.方法是附属于对象的行为和动作，可以理解为指使对象的（ ）。A、属性B、数据C、程序D、命令30.设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是
11、（ ）。A、1/2+2/3+3/4+4/5B、1+1/2+1/3+1/4+1/5C、1+1/2+2/3+3/4D、1+1/2+2/3+3/4+4/5 二、判断题 (共 10 题、共 40 分)1.计时器对象可以响应Click事件。正确 错误2.动态数组常用于存储数据类型不断变化的数据。正确 错误3.Shell函数可调用其他任意程序。正确 错误4.Visual Basic 提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个滚动条。正确 错误5.21&表示双精度常量。正确 错误6.函数Int(-4.2)的值为-5。正确 错误7.算术运算符的优先级低于字符运算
12、符的优先级。正确 错误8.AutoSize属性决定了图片框是否能够根据加载的图像自动调整其大小。正确 错误9.VB可以直接操作计算机硬件，所以它是一种面向机器的语言。正确 错误10.复选框的功能是独立的，如果一个窗体上有多个复选框，用户可根据需要选择一个或几个。正确 错误特别提醒：一、单项选择题 (共 30 题、共 60 分)1.以下语句输出结果是（ ）。Private Sub Form_Click()A=Beijing b=ShangHai Print a;bEnd SubA、AbeijingShangHaiB、Beijing ShangHaiC、BeijingShangHaiD、Abeij
13、ing2.下列程序运行时，输出星号的行数是（）。Private sub Form_click（）For i 1 to 10For j 1 to iPrint”；Next jPrintNext iEnd SubA、20B、10C、55D、1003.以下关于变量作用域的叙述中，正确的是( )。A、全局变量必须在标准模块中声明B、Static类型变量的作用域是它所在的窗体或模块文件C、模块级变量只能用Private关键字声明D、窗体中凡被声明为Private的变量只能在某个指定的过程中使用4.下列程序段的执行结果是（ ）。 x = Int(Rnd + 4) Select Case x Case 5
14、Print 优秀 Case4 Print 良好 Case 5 Print 通过 Case Else Print 不通过 End SelectA、良好B、优秀 C、通过D、不通过5.在文本框Text1中输入“（hello）”，则输出结果为（ ）。Private Sub Text1_KeyPress(KeyAscii As Integer)Dim count1%If Chr(KeyAscii) = ( Thencount1 = count1 + 1ElseIfChr(KeyAscii) = ) Thencount1 = count1 - 1End IfIf KeyAscii = 13 ThenIf
15、 count1 = 0 ThenPrint 左右括号配对ElseIf count1 0 ThenPrint 左括号多于右括号; count1; 个ElsePrint 右括号多于左括号; -count1; 个End IfEnd IfEnd SubA、左括号多于右括号B、左右括号配对C、右括号多于左括号D、程序出错6.方法是附属于对象的行为和动作，可以理解为指使对象的（ ）。A、程序B、命令C、属性D、数据7.要使循环体至少执行一次，应使用的循环结构是（）。A、Whilewend循环B、Fornext循环 C、DoLoop while|until循环 D、dowhile|untilloop循环8.
16、若要获得滚动条的当前值，可访问的属性是（ ）。A、Value B、TextC、MaxD、Min9.下述叙述中正确的是（ ）。A、事件是由用户定义的B、在不同程序中同一个事件的名称可以不同C、事件是对象能够识别的动作D、对象的事件是不固定的10.下列选型中，说法错误的是（ ）。A、除了Click事件外,菜单项还能响应其他的如Dblclick等事件B、每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件C、不能给顶级菜单项设置快捷键D、在程序执行时,如果菜单项的Enabled属性为False,则该菜单项变成灰色,不能被用户选择11.运行下列程序段后，x的值是（） x = 8 For i =1
17、 to 5 x = x + x 3 NextA、22B、13 C、29D、3812.复选框的value属性为1时，表示（ ）。A、复选框被选中 B、复选框未被选中 C、复选框内右灰色的勾D、复选框操作有错误13.假如列表框（List1）有4个数据项,那么把数据项“china”添加到列表框的第二项，应使用的语句是（ ）。A、List1.Additem “china”,2B、List1.Additem 2,”china”C、List1.Additem 1,”china”D、List1.Additem “china”,114.对象的属性用来描述对象的特征，它们是一组（ ）。A、程序B、数据C、属性名
18、D、操作15.在使用菜单编辑器设计菜单时，必须输入的项是（ ）。A、名称 B、标题 C、索引 D、快捷键16.若在消息框中显示“是（Yes）”和“否（No）”两个按钮，则buttons参数的设置值是（）。A、3B、2C、4D、517.图像框根据加载的图像的大小调整尺寸，需要设置为False的属性是（ ）。A、StretchB、AutoSizeC、Picture D、Appearance18.下面的子过程语句说明合法的是_。A、 Sub fib(j%) As IntegerB、Sub fib(ByRef i%() C、Function f%(f%) D、Function f1!(ByVal n%
19、)19.程序的运行结果为（ ）。Dim k As Integern=5:m=1:k=1While kb Thena=a-belseb=b+aEnd ifPrint aA、50B、10C、100D、20024.要禁用计时器控件，需要设置为False的属性是（ ）。A、VisibaleB、EnableC、TimerD、Interval25.下列叙述中正确的是（ ）。A、局部变量的作用域可以超出所定义的过程。B、在窗体的通用事件过程中定义的变量是全局变量。C、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D、模块级变量和全局变量的生存期是整个应用程序的
20、运行期间26.以下叙述中，不正确的是（ ）。A、 不同的过程中可以使用相同名字的局部变量。B、过程中的形式参数是局部变量。C、在一个过程内定义的变量只在本过程范围内有效。 D、在一个过程内的局部变量与全局变量同名时，起作用的是全局变量。27.下列选项中可以用作容器的是（ ）。A、列表框B、图像框C、框架 D、文本框28.窗体的标题栏显示内容由窗体对象（ ）属性决定。A、TextB、BackColorC、NameD、Caption29.下列赋值语句中正确的是（ ）。A、a=10eB、x！=abcC、x1=5 D、s$10030.表达x大于10且小于100的关系表达式为（）。A、10x10 or
21、x10 and xx100 二、判断题 (共 10 题、共 40 分)1.关系表达式的运算结果为逻辑量。正确 错误2.用数组名作为过程参数实现的是“传地址值调用”，即形参数组与实参数组是同一存储区域或者形参数组是实参数组存储区域的一部分。正确 错误3.算术运算符的优先级低于字符运算符的优先级。正确 错误4.在VB中，&是整型类型符，%是长整型类型符。正确 错误5.类是对象的集合。正确 错误6.当滚动条位于最右端或顶端时，表示其值最大，反之为最小。正确 错误7.面向对象程序设计（英语：Object-oriented programming，缩写：OOP）是一种程序开发的方法。正确 错误8.如果将
22、布尔常量值True赋值给一个整型常量，则整型常量的值为-1。正确 错误9.简单组合框，它由一个文本框和一个标准列表框组成，列表框是下拉式的。正确 错误10.框架内所有的控件会随框架一起移动、显示、消失和屏蔽。正确 错误一、填空题 (共 6 题、共 30 分)1.关系表达式10=2的结果为_。在线答题扫码传如作答中有图片或公式，请使用“扫码传”2.用过程名调用Function过程的语句为_。在线答题扫码传如作答中有图片或公式，请使用“扫码传”3.冒泡排序算法的基本思想 。在线答题扫码传如作答中有图片或公式，请使用“扫码传”4.退出函数过程的语句是_。在线答题扫码传如作答中有图片或公式，请使用“扫
23、码传”5.若要把单选按钮的标题显示在左边.，需要设置的属性是。在线答题扫码传如作答中有图片或公式，请使用“扫码传”6.静态局部变量定义的一般形式是_。在线答题扫码传如作答中有图片或公式，请使用“扫码传” 二、程序阅读题 (共 4 题、共 20 分)1.程序代码为：Public sub proc(a%( )Static I%DoA(i)=a(i)+a(I+1)I=I+1Loop while I2End subPrivate sub command1_click( )Dim m%,I%,x%(10)For I=0 to 4 : x(i)=I+1 : next IFor I=1 to 2 : cal
24、l proc(x) : next IFor I=0 to 4 : print x(i); : next IEnd sub程序运行后，单击命令按钮后，在窗体显示的结果是：在线答题扫码传如作答中有图片或公式，请使用“扫码传”2.1Then arr(i, j) = arr(arr(i- 1, j - 1), arr(i, j - 1) + 1 Else arr(i, j) = i * j End If s = s + arr(i, j) Next j Next i Print s End Sub在线答题扫码传如作答中有图片或公式，请使用“扫码传”3.写出下面程序运行时单击窗体的输出结果。Privat
25、e Sub f(a%, b%) a = a + b b = a - bEnd SubPrivate Sub Form_Click() Dim a%, b% a = 23 b = 12 Call f(a, b) Print a= & a; ,b= & bEnd Sub在线答题扫码传如作答中有图片或公式，请使用“扫码传”4.程序为：Private Sub Command1_Click() Dim a(1 To 5, 1 To 5) As Integer,i%,j% For i=1 To 5 For j=1 To 5 If i=j Then a(i,j)=1 Else a(i,j)=i-j+1 Ne
26、xt j Next iFor i=1 To 5 For j=1 To 5 Print a(i,j); Next j Print Next iEnd Sub程序运行后，单击命令按钮，输出结果为：在线答题扫码传如作答中有图片或公式，请使用“扫码传” 三、简答题 (共 5 题、共 25 分)1.简述常量和变量的区别.在线答题扫码传如作答中有图片或公式，请使用“扫码传”2.如何设置控件的属性？在线答题扫码传如作答中有图片或公式，请使用“扫码传”3.在VB6.0的集成开发环境中，要显示各窗口，如：属性窗口，应该如何操作？在线答题扫码传如作答中有图片或公式，请使用“扫码传”4.执行下列程序，当单击命令按钮
27、时，窗体上输出的第一行的内容是 ，第二行的内容是 。Private Sub Command1_click()Dim x As Integer, i As Integerx = 2For i = 1 To 13x = x * iPrint fun1(x, i)Next iEnd SubPrivate Function fun1(x As Integer, y As Integer) As Integery = y + xfun1 = y 2End Function在线答题扫码传如作答中有图片或公式，请使用“扫码传”5.VB有哪几种工作模式？在线答题扫码传如作答中有图片或公式，请使用“扫码传” 四
28、、程序设计题 (共 5 题、共 25 分)1.勾股定理中3个数的关系是：a2+b2=c2。编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。在线答题扫码传如作答中有图片或公式，请使用“扫码传”2.编写程序，把输入的10个整数按逆序输出。在线答题扫码传如作答中有图片或公式，请使用“扫码传”3.假定有以下每周工作安排：星期一、三：讲计算机课星期二、四：讲程序设计课星期五：进修英语星期六：政治学习星期日：休息试编写一个程序，对上述工作日程进行检索。程序运行后， 要求输入一周里的某一天，程序将输出这一天的工作安排。在输入时用06分别代表星期日到星期六，如果输入06之外的数，则程序结束运行。在线答题扫码传如作答中有图片或公式，请使用“扫码传”4.两质数的差为2，称此对质数为质数对，编写程序找出1000之内的质数对，其中判断质数的函数过程为Function isprime(m as interger)。在线答题扫码传如作答中有图片或公式，请使用“扫码传”5.键盘输入10个整数，输出其中的最大数和平均值，并将这10个数从小到大排序输出到窗体上。要求分别编写子过程Maxnum、Avenum和ordernum来求最大数、平均值和排序，然后在窗体上单击事件调用这些函数过程。在线答题扫码传
