1、一、单项选择题(共 30 题、共 60 分)得分：48 分1.设有如下程序： 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、5 4 3 2 B、6 5 4 3 C、7 6 5 4D、4 3 2 1答案正确得分22.在文本框Text1中输入“（hello）”，则输出结果为（ ）。Private Sub Text1_KeyPress(Ke
2、yAscii As Integer)Dim count1%If Chr(KeyAscii) = ( Thencount1 = count1 + 1ElseIfChr(KeyAscii) = ) Thencount1 = count1 - 1End IfIf KeyAscii = 13 ThenIf count1 = 0 ThenPrint 左右括号配对ElseIf count1 0 ThenPrint 左括号多于右括号; count1; 个ElsePrint 右括号多于左括号; -count1; 个End IfEnd IfEnd SubA、左括号多于右括号B、右括号多于左括号C、程序出错D、左
3、右括号配对答案正确得分23.下列程序段的执行结果为（ ）。a=100:b=50If ab Thena=a-belseb=b+aEnd ifPrint aA、50B、100C、200D、10答案错误得分04.复选框的value属性为1时，表示（ ）。A、复选框被选中 B、复选框内右灰色的勾C、复选框操作有错误D、复选框未被选中 答案错误得分05.下面的子过程语句说明合法的是_。A、 Sub fib(j%) As IntegerB、Function f%(f%) C、Function f1!(ByVal n%)D、Sub fib(ByRef i%() 答案正确得分26.下列选项中叙述正确的是（ ）
4、。A、Select Case语句中的条件表达式只能是数值表达式或者字符表达式B、在执行Select Case语句时，所有的Case子句都按出现的次序被顺序执行C、Select Case语句的测试表达式会多次计算D、Select Case语句中的条件表达式可以是任何形式的表达式答案错误得分07.关于VB描述错误的是（ ）。A、VB是面向过程的程序设计语言B、VB具有事件驱动的编程机制C、VB的工具箱窗口由被绘制成按钮形式的图标构成。D、VB集成开发环境是一组软件工具，集应用程序的设计、编辑、运行调试等于一体答案正确得分28.下列程序执行后，变量x的值为（） Dim a , b , c , d ,
5、 x As Single a = 200 : b = 100 : c = 500 If b a Then d = a : a = b : b = d End If If b c Then x = b ElseIf a c Then x = c Else x = a End If Print xA、100B、200C、500D、0答案正确得分29.以下语句输出结果是（ ）。Private Sub Form_Click()A=Beijing b=ShangHai Print a;bEnd SubA、AbeijingShangHaiB、BeijingShangHaiC、AbeijingD、Beiji
6、ng ShangHai答案正确得分210.在使用菜单编辑器设计菜单时，必须输入的项是（ ）。A、名称 B、索引 C、快捷键D、标题 答案正确得分211.对象的属性用来描述对象的特征，它们是一组（ ）。A、程序B、属性名C、操作D、数据答案正确得分212.表达x大于10且小于100的关系表达式为（）。A、10x10 and xx10 or x100 答案正确得分213.可用于设置系统当前时间的语句是（ ）。A、Date$B、TimeC、TimerD、Date答案错误得分014.有如下事件过程，程序的功能是（）。 Private Sub Commandl _Click ( ) S1=0: S2=0
7、 M1=0: M2=0 N=1 Do while N b Then t = a : a = b : b = t If a c Then t = a : a = c : c = t If b c Then t = b : b = c : c = t Print a , b , c End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入10、5、20，则输入结果为（）A、51020B、10520C、20510D、20105答案错误得分026.要禁用计时器控件，需要设置为False的属性是（ ）。A、VisibaleB、TimerC、IntervalD、Enable答案正确得分227.要将
8、一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为（ ）。A、1B、2C、3D、0答案正确得分228.在过程定义中用 （ ）表示形参的传值方式。A、ByRef B、ByVal C、ValueD、Var答案正确得分229.图像框根据加载的图像的大小调整尺寸，需要设置为False的属性是（ ）。A、StretchB、Picture C、AppearanceD、AutoSize答案正确得分230.当执行以下程序时，在文本框Text1中输入“copy”，则输出结果为（ ）。 Private Sub Form_Click() Dim s1 As String，s2 As
9、 String s1 = Text1.Text For I = 1 To Len(s1) s2 = s2 + UCase(Mid(s1, I, 1) Next I Print s2 End SubA、“Copy”B、“CCCC”C、“YYYY”D、“COPY”答案正确得分2二、判断题(共 10 题、共 40 分)得分：40 分1.当滚动条位于最右端或顶端时，表示其值最大，反之为最小。正确 错误答案正确得分42.如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中4个选项按钮。正确 错误答案正确得分43.2xy是合法的变量名。正确 错误答案正确得分44.AutoS
10、ize属性决定了图片框是否能够根据加载的图像自动调整其大小。正确 错误答案正确得分45.Visual Basic 提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个滚动条。正确 错误答案正确得分46.折半查找中，一般选取和待查表中所有记录的平均值相近的记录作为基准。正确 错误答案正确得分47.Private表示过程是局部的、私有的，只能在本模块中使用。正确 错误答案正确得分48.算术运算符的优先级低于字符运算符的优先级。正确 错误答案正确得分49.xyz_1是合法的变量名。正确 错误答案正确得分410.关系表达式的运算结果为逻辑量。正确 错误一、单项选择
11、题(共 30 题、共 60 分)得分：54 分1.窗体的标题栏显示内容由窗体对象（ ）属性决定。A、NameB、BackColorC、TextD、Caption答案正确得分22.下面关于图片框和图像框的说法中正确的是（）。A、图像框比图片框占用的内存多、运行速度慢B、图像框和图片框均可通过Print方法显示文本C、在图片框和图像框中显示的图片均可放大和缩小D、在图像框里只能显示图片，不能包含其它控件，而图片框可以包含控件答案错误得分03.若定义一维数组为：Dim a(i To j)，则该数组的元素为( )个。A、j*iB、j-iC、j-i+1D、i+j答案正确得分24.在文本框Text1中输入
12、“（hello）”，则输出结果为（ ）。Private Sub Text1_KeyPress(KeyAscii As Integer)Dim count1%If Chr(KeyAscii) = ( Thencount1 = count1 + 1ElseIfChr(KeyAscii) = ) Thencount1 = count1 - 1End IfIf KeyAscii = 13 ThenIf count1 = 0 ThenPrint 左右括号配对ElseIf count1 0 ThenPrint 左括号多于右括号; count1; 个ElsePrint 右括号多于左括号; -count1;
13、个End IfEnd IfEnd SubA、右括号多于左括号B、左右括号配对C、左括号多于右括号D、程序出错答案正确得分25.以下选项中，不属于单选按扭属性的是（ ）。A、NameB、EnabledC、CaptionD、Min答案正确得分26.下列程序段中在Text1中输入202，则Text2中的结果为（ ）。x = Val(Text1.Text)Select Case xCase Is 200y=x200Case Is 0y = 100 - xCase Is = 100y = 100 + xCase Is = 200y = 400End SelectText2.Text = yA、302B、
14、x200C、-102D、400答案正确得分27.引用列表框（List1）最后一个数据项应使用的语句是（ ）。A、List1.List(Listcount) B、List1.List(List1.Listcount ) C、List1.List(List1.Listcount-1)D、List1.List(Listcount)答案正确得分28.下列程序段的执行结果为（ ）。Dim x as integerIf x Then Print x Else Print x+1 End ifA、-1B、1C、0D、显示出错信息答案错误得分09.如果要求该程序执行3次循环，则应在程序中的括号里输入（ ）。X
15、=1dox=x+3print xloop until( )A、x=8B、x=7C、x=7D、x=8答案正确得分210.在Visual Basic中，要设置菜单项的快捷访问键，应使用的符号是（ ）。A、$B、&C、*D、答案正确得分211.下列过程定义语句中合法的是_。A、 Function Proc(ByVal n() B、Sub Proc(ByVal n() C、 Sub Proc(n)As IntegerD、 Function Proc(ByVal n%) As Integer答案正确得分212.下列程序运行后，输出的结果为（ ）。b=1Do while (b40)b=b*(b+1)Loo
16、pPrint bA、39B、1C、6D、42答案正确得分213.对象的属性用来描述对象的特征，它们是一组（ ）。A、属性名B、数据C、程序D、操作答案正确得分214.下面的子过程语句说明合法的是_。A、Function f%(f%) B、Sub fib(ByRef i%() C、 Sub fib(j%) As IntegerD、Function f1!(ByVal n%)答案正确得分215.对象的数据就保存在（ ）。A、属性B、控件 C、程序 D、事件答案正确得分216.要清除已经在图片框P1中打印的字符串而不清楚图片框中的图像，应使用的语句是（ ）。A、P1.Print B、P1.ClsC、
17、P1.Picture = LoadPicture()D、P1.Picture = 答案正确得分217.要清除组合框Combol中的所有内容，可以使用的语句是（ ）。A、Combo1.DeleteB、Combo1.ClSC、Combo1.ClearD、Combo1.Remove答案正确得分218.控件数组是通过（ ）来区分控件数组元素的。A、控件标题B、名称 C、Index属性D、Count属性答案正确得分219.下列叙述中正确的是（ ）。A、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程B、在窗体的通用事件过程中定义的变量是全局变量。C、局部变量
18、的作用域可以超出所定义的过程。D、模块级变量和全局变量的生存期是整个应用程序的运行期间答案正确得分220.以下关于变量作用域的叙述中，正确的是( )。A、模块级变量只能用Private关键字声明B、Static类型变量的作用域是它所在的窗体或模块文件C、全局变量必须在标准模块中声明D、窗体中凡被声明为Private的变量只能在某个指定的过程中使用答案正确得分221.关于VB描述错误的是（ ）。A、VB具有事件驱动的编程机制B、VB集成开发环境是一组软件工具，集应用程序的设计、编辑、运行调试等于一体C、VB是面向过程的程序设计语言D、VB的工具箱窗口由被绘制成按钮形式的图标构成。答案正确得分22
19、2.下列选项中可以用作容器的是（ ）。A、框架 B、图像框C、列表框D、文本框答案正确得分223.设有以下循环结构 Do 循环体 Loop While 则以下叙述中错误的是（）。A、若“条件”是一个为0的常数，则一次也不执行循环体B、“条件”可以是关系表达式、逻辑表达式或常数C、循环体中可以使用Exit Do语句D、如果“条件”总是为True，则不停地执行循环体答案正确得分224.表达式123+23 mod 103+asc(“A”)的值是（ ）。A、188B、220C、221D、190答案正确得分225.下述程序段中，与其他3个程序段作用不同的是（）。A、s=0i=1Do While i100
20、s=s+1WendC、s=0i=0While i=100s=s+1i=i+1Loop答案正确得分226.RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置的属性是（ ）。A、Scroll和ChangeB、Max和MinC、SmallChange和LargeChangeD、Value答案正确得分227.有如下事件过程，程序的功能是（）。 Private Sub Commandl _Click ( ) S1=0: S2=0 M1=0: M2=0 N=1 D
21、o while N=100 A=INT(101* RND) If a mod 2=0 THEN S1= S1+A : M1=M1+1 Else S2= S2+A : M2=M2+1 End if N=N+1 Loop Print S1,S2 Print M1,M2 END SubA、随机产生100个0-100之间的整数，并分别求这些数的奇数和与偶数的个数与和B、求101以内奇数之和C、求101以内偶数之和D、随机产生101个0-100之间的整数，并分别求这些数的奇数和与偶数的个数与和答案正确得分228.下列选项中，不能作为容器的对象是（ ）。A、图片框B、窗体C、框架D、图像框答案正确得分22
22、9.以下关于复选框的说法，正确的是（ ）。A、在一个容器中的复选框可以同时有多个被选中 B、一个窗体上的所有复选框一次只能有一个被选中 C、一个容器中的所有复选框一次只能有一个被选中 D、无论是在容器中还是在窗体中，都不可以同时选中多个复选框答案正确得分230.a=Visual Basic，下面使b=Basic的语句是（ ）。A、b=Right(a,5,5)B、b=left(a,8,12)C、b=Mid(a,8,5)D、b=left(a,8,5)答案错误得分0二、判断题(共 10 题、共 40 分)得分：16 分1.模块级变量可被所声明的模块中的任何过程访问，它的作用范围是它所在的模块，其他模
23、块不能访问该变量。正确 错误答案正确得分42.使用Call调用Function过程时，不需要实参。正确 错误答案错误得分03.算术运算符中*、+、/,运算优先级最高的是。正确 错误答案正确得分44.VB代码中要区分字母的大小写。正确 错误答案错误得分05.只要两个操作数中有一个为真，结果为真，其余为假，这是逻辑或运算规则。正确 错误答案正确得分46.Shell函数可调用其他任意程序。正确 错误答案错误得分07.Function过程的定义语句中Public关键字表示过程是全局的、公有的，可以被程序中任何模块使用。正确 错误答案正确得分48.图像框除了可以显示图形之外，还可以作为其它控件的容器。正
24、确 错误答案错误得分09.在VB中，&是整型类型符，%是长整型类型符。正确 错误答案错误得分010.折半查找中，一般选取和待查表中所有记录的平均值相近的记录作为基准。正确 错误答案错误、填空题(共 6 题、共 30 分)1.用过程名调用Function过程的语句为_。在线答题扫码传如作答中有图片或公式，请使用“扫码传”2.控件共用一个 的控件名字称控件数组，控件数组的下标也称 。在线答题扫码传如作答中有图片或公式，请使用“扫码传”3.若文本框Text1中输入25，执行下列程序段后Text1中显示结果为_。If IsNumeric(Text1) thenSelect Case Text1 Mod
25、 2Case 0Text1.text=”偶数” Case 1Text1.text=”奇数” End SelectEnd if在线答题扫码传如作答中有图片或公式，请使用“扫码传”4.形参的作用是（）。在线答题扫码传如作答中有图片或公式，请使用“扫码传”5.是指固定大小的数组，维数和大小不能改变。在线答题扫码传如作答中有图片或公式，请使用“扫码传”6.要使下列FOR语句循环执行20次，循环变量的初值应当为_For k= _ to -5 step -2在线答题扫码传如作答中有图片或公式，请使用“扫码传”二、程序阅读题(共 4 题、共 20 分)1.写出下面程序运行时单击窗体的输出结果。Private
26、 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在线答题扫码传如作答中有图片或公式，请使用“扫码传”2.窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。Private Sub Command1_Click() 确定按钮Static
27、 n As Integer-1-mypwd As String = 123456 预设密码为自定义常量n = n + 1Label2.Visible = TrueIf -2- ThenLabel2.Caption = 密码正确ElseIf n 3 ThenLabel2.Caption = 密码错误！Text1.Text = Else-3-End IfEnd IfEnd Sub在线答题扫码传如作答中有图片或公式，请使用“扫码传”3.以下程序运行后。 Si, sj, sk, I, j, k的结果分别为( )Private sub command1_click( ) Si=0: sj=0 For I
28、=1 to 3For j=1 to ISk=0 For k=j to 3 Sk=sk+1 Next k Sj=sj+1 Next j Si=si+1 Next I Print si,sj,sk,I,j,kEnd Sub在线答题扫码传如作答中有图片或公式，请使用“扫码传”4.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在线答题扫码传如作答中有图片或公式，请使用“扫码传”三、
29、简答题(共 5 题、共 25 分)1.在VB6.0的集成开发环境中，要显示各窗口，如：属性窗口，应该如何操作？在线答题扫码传如作答中有图片或公式，请使用“扫码传”2.执行下列程序，当单击命令按钮时，窗体上输出的第一行的内容是 ，第二行的内容是 。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
30、 = y + xfun1 = y 2End Function在线答题扫码传如作答中有图片或公式，请使用“扫码传”3.如何设置控件的属性？在线答题扫码传如作答中有图片或公式，请使用“扫码传”4.VB有哪几种工作模式？在线答题扫码传如作答中有图片或公式，请使用“扫码传”5.简述常量和变量的区别.在线答题扫码传如作答中有图片或公式，请使用“扫码传”四、程序设计题(共 5 题、共 25 分)1.假定有以下每周工作安排：星期一、三：讲计算机课星期二、四：讲程序设计课星期五：进修英语星期六：政治学习星期日：休息试编写一个程序，对上述工作日程进行检索。程序运行后， 要求输入一周里的某一天，程序将输出这一天的
31、工作安排。在输入时用06分别代表星期日到星期六，如果输入06之外的数，则程序结束运行。在线答题扫码传如作答中有图片或公式，请使用“扫码传”2.使用随机函数44矩阵，矩阵元素取值范围在100以内。程序运行界面如下图所示。 程序运行界面要求：（1）统计矩阵中的最大值和下标。（2）求矩阵两条对角线元素之和。在线答题扫码传如作答中有图片或公式，请使用“扫码传”3.编写程序，把输入的10个整数按逆序输出。在线答题扫码传如作答中有图片或公式，请使用“扫码传”4.利用随机函数，模拟投币结果。设共投币100次，求“两个正面”、“两个反面”、“一正一反”3种情况各出现多少次？在线答题扫码传如作答中有图片或公式，请使用“扫码传”5.勾股定理中3个数的关系是：a2+b2=c2。编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。在线答题扫码传
