下载文档原格式
VB（1）期末考试内容原题⾼⼆年级VB期末试卷⼀、单选题1、可以在窗体上输出数据的⽅法的是（）A、PrintB、ClsC、ShowD、Hide2、下列说法中错误的是（）A、对象是具有某些特性的具体事物的抽象B、在VB程序中，窗体（Form）不是对象C、属性是对象所具有的特征D、事件是发⽣在对象上且能被对象识别的动作3、数据：“abcde”是（）数据A、整型B、长整型C、字符型D、⽇期型4、以下各项中，可以作为VB变量名的是（）A、13B、 Stu23C、22abD、cj98.35、以下各项中，不能作为VB变量名的是（）A、A52BB、ifC、Y_5D、Pi6、InputBox函数返回值的类型为（）A、数值B、字符串C、变体D、数值或字符串(视输⼊的数据⽽定)7、表达式5 <> 2 Or 6<7的值是（）A、TureB、FalseC、－1D、18、数学式sin30°写成VB表达式是（）A、Sin30B、Sin(30)C、Sin(30°)D、Sin(30*3.14/180)9、决定控件上⽂字的字体、字形、⼤⼩、效果的属性是（）A、TextB、CaptionC、NameD、Font10、设a、b、c为整型变量，其值分别为1、2、3，以下语句的输出结果是（） Print a;b;cA.1 2 3B.2 3 1C.3 2 1D.2 3 211、Visual Basic程序中的注释所使⽤的字符是（）A、'B、:C、\D、_12、若要求从⽂本框中输⼊密码时在⽂本框中只显⽰ * 号，则应在此⽂本框的属性窗⼝中设置（）。
A、Text 属性值为 *B、Caption 属性值为 *C、Password 属性值为空D、Passwordchar 属性值为 *13、表达式“XYZ” + “487”的值是（）A、“XYZ487”B、“XYZ”C、“487”D、“487XYZ”14、下⾯语句中，正确的是（）A、If x<3*y And x>y Then y=x^3B、If x<3*y And x>y Then y=3xC、If x<3*y : x>3 Then y=x^3 C、If x<3*y : x>y Then y=x**315、下列程序段的执⾏结果为（）X=2Y=5If X*Y<1 Then Y=Y-1 Else Y=-1Print Y-X>0A、TureB、FalseC、－1D、116、下列关于visual basic特点的描述，哪个是正确的（）A、⾯向对象B、可视化C、事件驱动D、以上都是17、为了使标签中的内容靠右显⽰，应将alignment属性设置为（）A、0B、1C、2D、3⼆、填空题（2分×9，共18分）1、布尔型数据只有________和________两个值。
在Visual Basic设计界面中不能隐藏的窗口是( A )。
A）工程窗口B）属性窗口C）立即窗口D）窗体窗口第2题:以下可以构成语句的一项是( B )。
A）对象名.属性B）对象名.方法名C）对象名.事件名D）对象名.函数名第3题:以下不是Visual Basic 的特点的选项是( B )。
A）可视编程B）算法设计C）事件驱动D）面向对象第4题:在Visual Basic中通过( A )属性来设置字体的颜色。
A）FontColorB）ClipControlC）BackColorD）ShowColor第5题:设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用( D )属性。
A）ControlBoxB）ClipControlC）BordeStyleD）AutoRedraw第6题:( C )是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
A）文件B）属性C）方法D）窗体第7题:以下不属于同类的是( A )。
A）ClickC）CaptionD）Top第8题:当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是( B )。
A）AutoSize 属性B）Resize事件C）AutoRedraw 属性D）Stretch方法第9题:对象可以识别和响应的某些行为称为( D )。
A）属性A）方法C）继承D）事件第10题:与传统的程序设计语言相比，Visual Basic 最突出的的特点是( C )。
A）结构化程序设计B）程序开发环境C）事件驱动编程机制D）程序调试技术第11题:在正确安装Visual Basic6.0后，可以通过多种方式启动Visual Basic。
以下方式中，不能启动Visual Basic的是( D )。
A）通过“开始”菜单中的“程序”命令B）通过“我的电脑”找到vb6.exe，双击该文件名C）通过“开始”菜单中的“运行”命令D）进入DOS方式，执行vb6.exe文件第12题:为了用键盘打开菜单和执行菜单命令，第一步应按的键是( A )。
11级计算机专业VB试题（一）一、选择题：１、运行工程的错误操作是（）A：执行“运行”菜单中的“启动”命令B：单击工具栏中的“启动”按钮C：按功能键“F5”D：按组合键“alt+f5”2、下列有关VB特点的描述有误的是（）A：VB是一种可视化、面向对象的程序设计语言B：VB采用事件驱动编程机制C：VB可用于开发Windows环境下的各类应用程序D：VB是非面向对象的程序设计语言。
3、以下叙述错误的是（）A：在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B：以.bas为扩展名的文件是标准模块文件C：窗体文件包含该窗体及其控件的属性D：一个工程可以含有多个标准模块文件4、与传统的程序设计语言相比，VB最突出的特点是（）A：结构化程序设计B：程序开发环境C：事件驱动编程机制D：程序调试技术5、下列不能打开代码窗口的操作是（）A：双击窗体B：双击窗体上的某个控件C：单击窗体D：按“F7”键6、在8BBE计窗体时双击窗体的任何地方，可以打开的窗体时（）A：代码窗口B：属性窗口C：工程资源管理器窗口D：工具箱窗口7、下列标识符不能作为VB变量名的是（）A：ABCabeB：b1234C：28wedD：crud8、下列说法错误的是（）A：在同一模块不同过程中的变量可以同名B：不同模块中定义的全局变量可以同名C：引用另一模块中的全局变量时，必须在变量名前加模块名D：同一模块中不同级的变量可以同名9、下列描述不正确的是（）A某个子过程中声明的局部变量，其适用范围仅限定于该子过程内B：某个子过程中声明的局部变量，期生命周期仅限定于该子过程被执行过程中C：不同子过程中的局部变量可以具有相同的名称D：不同子过程的局部变量可以具有相同的名称10、声明一个变量为局部变量应该用（）A：local B：private C：static D：public11、语句Y=Y+1的正确含义是（）A：变量Y的值与Y+1的值相等B：奖变量Y的值存到Y+1中去C：将变量Y的值加1后赋值给变量YD：变量Y的值为112、下列符号不能作为VB中的变量名的是（）A：ABCD B：E0065400 C：123TWJGF D：zxy13、若要在代码编辑器窗口中规定输入的代码中的变量必须要显示声明，应在下列哪个选项中设置（）A：自动语法检测B：要求变量声明C：自动缩进D：Tab宽度14、下列属于不合法的常量是（）A：20000 B：100^6 C：123.5 D：10E+615、下列不合法的变量名是（）A：Print_Numl B：Abc% C：Const D：X1_y2_z316、关于变体变量，下列说法正确的是（）A：变量未加定义而直接使用，该变量变为变体变量，因此变体变量是无类型变量B：遍体变量占16字节的固定存储单元C：变体变量定以后，系统将变体变量初始化为数值0或空字符串D：设X为遍体变量，且X=“10”，则X=X+20是正确的语句17、下列符号常量的声明中，不合法的是（）A：Const a as single =1.1 B：const a =“OK”C：const a as double =sin（1）D：const a as integer ="12"18、下列关于声明变量的说法中，错误的是（）A：用显式声明变量的关键字Dim、Private、Static或Public来声明的类型B：用类型说明符标记变量的类型，其中Yype是类型标志C：用DefTrype语句声明变量的类型，其中Type是类型标志D：用Type<数据类型名>/End Type语句声明记录类型变量19、已知a=5，b=8，c=12，下列表达式的值为Ture的是（）1A：a>b and c<a B: a>b or c<aC:a>b xor c<a D:a>b eqv c<a20、下列程序段运行后窗体上输出结果为（）Private Sub Form_Click()a = 5:b = 6:c = 7:d = 8x = 3 > 2 * b Or a = c And b <> c Or c > dPrint xEnd SubA：1 B：Ture C：False D：2二、填空题。
1.表达式25.28 mod 6.99的值是______。
．2. 以下关于动态数组的语句中，正确的是_______。
ReDim a(k+1)．．．．．．．．．．．：．ReDim preserve a(10)．．．．．．．．．．．．．．．．．．3. Sub 过程与Function 函数最根本的区别是___________。
前者无返回值，但后者有．．．．．．．．．．．4. 以下叙述中错误的是________。
．．．．．．．．．．．应用程序只．．．．．能以解释方式执行．．．．．．．．5. 刚建立一个新的标准EXE 工程后，不在工具箱中出现的控件是________。
通用对话框．．．．． 6下面关于顺序文件的描述正确的是___________。
.数据只能以．．．．．ASCII ．．．．．码形式存放在文件中，所以可通过文本．．．．．．．．．．．．．．．．．编辑软件显示．．．．．．7. 以下叙述中正确的是___________。
．．．．．．．．录的长度是固定的．．．．．．．．8. 向已有数据的C:\test\test.txt 文件添加数据，正确的文件打开命令是___________。
Open "C:．．．．．．．\．test ．．．．\．test.txt" For ．．．．．．．．．．．．Append As #．．．．．．．．．511．．．9. 执行以下语句后，k 的值为_____。
．．．．．Dim i As SingleFor i = 0.45 To 2 Step 0.5k = k + 1Next iPrint i;k10. 设有语句X=InputBox("输入数值"，"0"，"示例")，程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是______。
变量．．X ．的值是字符串．．．．．．"10"．．．．11以下关于窗体的描述中，错误的是________。
《算法与程序设计》复习题一、选择题部分(100题)一章一节：了解计算机解决问题的过程1．用计算机解决问题时，首先应该确定程序“做什么？”，然后再确定程序“如何做？”请问“如何做？”是属于用计算机解决问题的哪一个步骤？（）A、分析问题B、设计算法C、编写程序D、调试程序答案：B2.学校要举行运动会，请你设计一个能够对运动员分数自动排序的软件，如果要设计此软件，以下最好的方法和步骤是（）。
A、分析问题，编写程序，设计算法，调试程序B、设计算法，编写程序，提出问题，调试程序C、提出问题，设计算法，编写程序，调试程序D、设计算法，提出问题，编写程序，调试程序答案：C3．下列步骤不属于软件开发过程的是（）。
A、任务分析与系统设计B、软件的销售C、代码编写与测试D、软件测试与维护答案：B4．用计算机解决问题的步骤一般为（）①编写程序②设计算法③分析问题④调试程序。
A．①②③④ B．③④①② C．②③①④ D．③②①④答案：D5．以下描述中最适合用计算机编程来处理的是（）。
A、确定放学回家的路线B、计算某个同学期中考试各科成绩总分C、计算100以内的奇数平方和D、在因特网上查找自己喜欢的歌曲答案：C6．以下问题中最适合用计算机编程处理的是（）。
A、制定本学期的学习计划B、计算正方形的周长C、创作一首歌曲D、求1000以内的所有素数答案：D7．由“上车—掏钱—投币”所描述的问题是（）。
A、无人售票车投币过程B、乘公交车过程C、上车过程D、下车过程答案：A一章二节：算法和算法描述8．下面说法正确的是（）。
A、算法+数据结构=程序B、算法就是程序C、数据结构就是程序D、算法包括数据结构答案：A9．算法描述可以有多种表达方法，下面哪些方法不可以描述“水仙花数问题”的算法（）。
A.自然语言B.流程图C.伪代码D.机器语言答案：D10．下面关于算法的说法错误的是（）。
A、算法必须有输出B、算法就是程序C、算法不一定有输入D、算法必须在有限步执行后能结束答案：B11.算法的三种基本控制结构是顺序结构、分支结构和（）。
1.下面关于比特的叙述中，错误的是（1 ）A.比特是组成数字信息的最小单位B.比特只有“0”和“1”两个符号C.比特既可以表示数值和文字，也可以表示图像和声音D.比特” 1”总是大于比特“0”2.在下列有关集成电路的叙述中，错误的是（ 2 ）A.现代集成电路使用的半导体材料主要是硅B.大规模集成电路一般以功能部件、子系统为集成对象C.我国第2代居民身份证中包含有IC芯片D?目前超大规模集成电路中晶体管的基本线条已小到l纳米左右3.在下列有关通信技术的叙述中，错误的是（3 ）A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率D?学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质4.下面是关于PC机主存储器的一些叙述，其中正确的是（4A.主存储器是一种动态随机存取存储器（RAM）B.主存储器的基本编址单位是字（即32个二进位）《目前市场上销售的PC机，其内存容量可达数十GBD.所有PC机的内存条都是通用的：可以互换5. 现行PC机中，IDE（或SATA）接口标准主要用于（ 5 ）A.打印机与主机的连接C.声卡与主机的连接B.显示器与主机的连接D.硬盘与主机的连接6.下列有关PC机的CPU、内存和主板的叙述中，正确的是（ 6 ）。
A.大多数Pc机只存一块CPu芯片，即使是“双核” CPU也是一块芯片B.所有Pentium系列微机的内存条相同，仅有速度和容量大小之分C.主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关D.主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息7.下列有关目前Pc机辅助存储器的叙述中，错误的是（7 ）A.硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多B.硬盘的内部传输速率一般小于外部传输速率c.优盘采用Flash存储器技术，属于半导体存储器D.目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱8.下面有关Windows操作系统，（95以后版本）的叙述中，错误的是（8 ）。
VB程序设计试题及答案（一）一、单选题1. VB6.0是一种面向B 的编程环境。
(A) 机器(B) 对象(C) 过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。
(A) Forml.Cap on=“欢迎使用VB”(B) Forml.Cap on='欢迎使用欢迎使用VB'(C) Forml.Cap on=欢迎使用VB(D) Forml.Cap on="欢迎使用VB"3. 若要使命令按钮不可操作，要对A 属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Cap on4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。
(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面A 是合法的变量名。
(A) X_yz (B) 123ab。
(C) integer (D) X-Y6. 以下关系表达式中，其值为False的是A 。
(A) "ABC">"AbC" (B) "女">"男"(C) "BASIC"=UCase("basic) (D) "123"<"23"7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是D 。
VB程序设计考试（1）一、单选题（每题1分，共50题）1.Visual Basic 6．0集成环境的主窗口中不包括（ C ）。
正确A.标题栏B.菜单栏C.状态栏D.工具栏2.以下不属于Visual basic的工作模式的是（）模式。
正确答案：AA.编译B.设计C.运行D.中断3.如果文本框的Enabled属性被设置为False，则运行时（）。
正确答案：AA.文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框中的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容4.控制名称都是系统的默认控件名，下列语句错误是（）。
正确答案：Dmand1.Caption=List1.Text;bel1.Caption=List1.List(1);C.List1.List(2)=List1.Text+Str(List1.ListIndex);D.Text1.Text=+Text1.Caption。
5.以下叙述中正确的是（）。
正确答案：A属性用来标识对象B.窗体Name属性值显示在标题栏中C.运行时对象Name属性可变D.对象的Name属性值可以为空6.Abc%，abc!，abc$，abc#分别声明abc是（）。
正确答案：AA.整型、单精度、字符串、双精度变量B.整型、整型、字符串、双精度变量C.单精度、整型、字符串、双精度变量D.整型、双精度、字符串、双精度变量7.Visual Basic的逻辑类型数据占（ A ）字节内存。
正确A.2B.4C.8D.168.如果逻辑与(AnD)运算的结果为真，与它所连接的两个条件必须是（ C ）。
正确A.前一个为真，后一个为假B.前一个为假，后一个也为假C.前一个为真，后一个也为真D.前一个为假，后一个为真9.设a=6，则执行 x=iif(a>5,-1,0)后，x 的值为（ D ）。
VB 期末复习一、选择题(1) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub程序运行后，单击命令按钮，执行的操作为A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500(1) B(2) 在窗体上有若干控件，其中有一个名称为Text1的文本框。
影响Text1的Tab 顺序的属性是A) TabStop B)Enabled C) Visible D)TabIndex(2) D(3) 下列语句合法的是_____A x + y = 2B x > 2 = yC x = y > 2D x = y++参考答案： C(4) 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A) For i=0 To List1.ListCount-1 …… Next C) For i=1 To List1.listCount…… Next (4) A(5) 以下Case 语句中错误的是A) Case 0 To 10 B) Case Is>10 C) Case Is>10 And Is<50 D) Case 3,5,Is>10(5) C(6) 以下关于图片框控件的说法中，错误的是A) 可以通过Print 方法在图片框中输出文本B) For i=0 To ListCount-1 …… Next D) For i=1 To ListCount …… NextB) 清空图片框控件中图形的方法之一是加载一个空图形C) 图片框控件可以作为容器使用D) 用Stretch属性可以自动调整图片框中图形的大小(6) D(7) 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是A) Visual B) Basic C) 6 D) 11(7) C(8) 以下叙述中错误的是A) 下拉式菜单和弹出式菜单都用菜单编辑器建立B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统C) 除分隔线外，所有菜单项都能接收Click事件D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见(8) D(9) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是A) 123.45 B) 12345.00 C) 12345 D)00123.45(9) B(10) 以下叙述中错误的是A) 一个工程可以包括多种类型的文件B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C) 程序运行后，在内存中只能驻留一个窗体D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(10) C(11) 以下关于函数过程的叙述中，正确的是A) 函数过程形参的类型与函数返回值的类型没有关系B) 在函数过程中，过程的返回值可以有多个C) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D) 如果不指明函数过程参数的类型，则该参数没有数据类型(11) A(12) 以下关于变量作用域的叙述中，正确的是A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B) 全局变量必须在标准模块中声明C) 模块级变量只能用Private关键字声明D) Static类型变量的作用域是它所在的窗体或模块文件(12) B(13) 确定一个控件在窗体上的位置的属性是A) Width和Height B) Width或Height C) Top和Left D) Top或Left(13) C(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是A) Visual B) Basic C) Program D) 出错(14) D(15) 以下关系表达式中，其值为False的是A) "ABC">"AbC" B) "the"<>"they" C) "VISUAL"=UCase("Visual") D) "Integer">"Int"(15) A(16) 语句Print 5/4*6\5 Mod 2的输出结果是A) 0 B) 1 C) 2 D) 3(16) B(17) 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是A)空 B) abcdef C) abc D) def(17) D(18) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是A) -5 B) 25 C) 1 D) -1(18) C(19) 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是A) 变量X、Y的作用域相同 B) Y的作用域是Model1C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y(19) C(20) 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。
第1章补充资料习题解答1．简述VB6.0的主要特点。
答：见本章知识要点。
2．当正常安装Visual Basic 6.0后,误把Windows子目录删除，当重新安装Windows 后，是否需要重新安装Visual Basic 6.0？答：要重新安装Visual Basic 6.0。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3．Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4．Visual Basic 6.0有多种类型的窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”→“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
5．叙述建立一个完整应用程序的过程。
答：见本章的知识要点。
6．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件(.frm)，再保存工程文件(.vbp)。
若先保存工程文件，系统也会弹出”文件另存为”对话框，要求先保存窗体文件。
7．保存文件时，若不改变目录名，则系统的默认目录是什么？答：系统的默认目录是VB98。
8．安装vb6.0后，帮助系统是否也已安装？答：没有，VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP 等其他语言的帮助系统。
9．如何使用VB6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library 查阅器，直接实现与选定内容有关的帮助信息。
10．什么是类？什么是对象？什么是事件过程？答：见本章知识要点。
11．属性和方法之间的区别是什么?答：属性是对象的特征，方法是对象的行为。
一、单项选择题（20分，每小题1分）1、下面合法的常量是_____A) 1/2 B) False C) …Name D) 12*52、决定窗体标题栏显示内容的属性是______A) Text B) Name C) Caption D) BackStyle3、下列符号哪一个是VB中的合法变量名______A) plane B) del*4 C) 1ax4、函数Int(Rnd(0)*5)是在哪个范围内的整数______A) (0, 1) B) (1, 5) C) (0, 5) D) (1, 6)5、确定一个控件在窗体上位置的属性是______A) Width或Height B) Width和HeightC) Top或Left D) Top和Left6. 表达式2*2^2+2*8/4+2^2的值是______A) 64 B) 32 C) 48 D) 167、下面正确的赋值语句是_____.A) y=x+30 B) x+y=30 C) pr*u=30 D) x=3y8、VB窗体设计器的主要功能是______A) 建立用户界面B) 编写源程序代码C) 画图D) 显示文字9、用语句Dim a(-2 To 4)定义的数组的元素个数是______A) 6 B) 7 C) 8 D) 910、设a=2, b=3, c=4, d=5，表达式3>2*b Or a=c And b<>a+c 的值是______A) 1 B) True C) False D)–111、若要使某命令按钮获得控制焦点，可使用的方法是______A) GotFocus B) SetFocus C) Refresh D) Value12、以下4类运算符中，优先级最低的是______A) 算术运算符B) 字符运算符C) 关系运算符D) 逻辑运算符13、下列不属于程序的三种基本控制结构的是______A) 顺序结构B) 递归结构C) 选择结构D) 循环结构14、窗体的边框样式由窗体对象的______属性来设置A) BorderStyle B) WindowsState C) BackStyle D) FillStyle15. 已知a="12345678",则表达式Left(a, 4) + Mid(a, 4, 2)的值是______A) 123456 B) "123456" C) "123445" D) 12344516、在下列表达式中，正确的日期型常量是_____A) "12/04/01" B) 12/04/01 C) {12/04/01} D) #12/04/01#17、若要退出Do…While循环，可使用的语句是______A) Exit Do B) Exit C) Exit For D) Exit Sub18、执行 PRINT 18/2*3，-3^2 命令后,输出结果为______A) 3 9 B) 3 -9 C) 27 -9 D) –9 2719、可以同时删除字符串前导和尾部空格的函数是______A) Ltrim B) Rtrim C) Mid D) Trim20、运行程序时，系统自动执行窗体的______事件A) DblClick B) Unload C) Load D) Click二、程序阅读，写出程序运行结果（20分，每小题5分）1. 此程序为窗体的单击事件过程。
Private Sub Form_Click()x = 1 : n = 0Do while x<15x = x * 2n = n + 2LoopPrint “x =”; x;“n =”; nEnd Sub2、此程序为命令按钮的单击事件过程。
Option base 1Private Sub Command1_Click()Dim IA, imax%, n%, I%, J%, t%IA = Array(8, 6, 9, 3, 2, 7)n = 6For I = 1 To n-1imax = IFor j = I+1 To nif IA(j) > IA(imax) Then imax = jNext jt = IA(I) : IA(I) = IA(imax) : IA(imax) = tfor j = 1 to nprint IA(j);next jprintNext IEnd Sub3、此程序为命令按钮的单击事件过程。
Private Sub Command1_Click()Dim IA, n%, I%, J%, t%IA = Array(8, 6, 9, 3, 2, 7)n = 6For I = 1 To n-1For j = n-2 To I-1 Step -1if IA(j) < IA(j+1) Thent = IA(j) : IA(j) = IA(j+1) : IA(j+1) = tEnd ifNext jfor j = 0 to n-1print IA(j);next jprintNext IEnd Sub4、此程序为命令按钮的单击事件过程。
Private Sub Command1_Click()Dim m As Integer, n As Integerm = 9 : n = 30If m < n thent = m : m = n : n = tEnd IfDo While n <> 0r = m Mod nm = nn = rLoopprint “m = “; m;“n = ”; nEnd Sub三、程序填空（20分，每个空格2分）1、请将下列程序补充完整。
程序功能是输入三角形的三条边的值，判断如果可以构成三角形，则计算三角形的面积，并判断组成的是等边三角形、等腰三角形或一般三角形；若不能构成三角形，则弹出提示信息框，提示信息为“出错，请重新输入”。
Private Sub Form_Load()Dim a!, b!, c!, t!, s!, k%a = Val(text1.text)b = Val(text2.text)c = Val(text3.text)If ___(1)___ then …提示：可以构成三角形t = (a + b + c) / 2s = sqr(t * (t-a) * (t-b) * (t-c))Print sIf ___(2)___ thenPrint “这是等边三角形”ElseIf ___(3)___ thenPrint “这是等腰三角形”ElsePrint “这是一般三角形”End ifElse___(4)___End ifEnd Sub2、请将下列程序补充完整。
程序功能是从键盘上输入若干个学生的考试成绩，统计并输出最高分、最低分和学生人数。
当输入-1时结束输入，输出结果。
Private Sub Form_Click()Dim score As Single ,smax As Single, smin As SingleDim count As integerScore = InputBox(“Enter A Score”)count = 1 ：smax = score___(1)___Do While ___(2)___If score > smax Then smax = scoreIf ___(3)___ Then smin = scorescore=InputBox(“Enter A Score”)___(4)___LoopPrint “max=”;smax, “min=”;smin,”count=”;countEnd sub3、请将下列程序补充完整。
程序功能是2的n次方的值Private Sub Command1_Click()n = 10 : m = 1 : k = 1Do while ___(1)___M = m * 2k = ___(2)___LoopPrint mEnd Sub四、程序改错（20分，每个错误2分）说明：请修改下列事件过程中的存在错误的代码（加注编号）。
1、 Private Sub Command1_Click()n = 7 : Dim b(n) As Integer ①s = 0For j = 0 To 6b(j) = InputBox(“请输入正整数”) ②If 5000 > b(j) > 0 Then s = s + b(j) ③Next jPrint “s = ”; sEnd Sub2. Private Sub form1_Click() ①m = 1for I = 1 to 3if m ≠ 2 then m = m + 1 ②Loop ③Print “m =”; mEnd Sub3. Private Sub Command1_Click()Dim k, m, p as integer ①k = 4 : m = 1p = func(k, m)Print “p=”; pEnd subFunction func(a as integer, b as integer) as integerm = 1 : I = 2I = I + m + 1m = I + a – bp = m ②End Function4、设分房的条件是：已婚(marrigerat)，且年龄(age)在26岁及以上；或者未婚(marrigerat)，且年龄(age)在28岁及以上，且工作年限(workingage)在5年及以上if marrigerat = true thenif age>=26 thenprint “分房”end ifelseif ①if age≥28 and workingage≥5 then ②print “分房”end ifend if五、编程题（20分，每题10分）1. 设命令按钮的程序功能是：（6分）根据卡车运输重量计算运输费用。
计算方法如下：100元基数 <1吨费用= 每吨加收25元 1吨~5吨每吨加收30元 >5吨同时为了做好客户营销，每次收费最多不超过300元。
2. 编程。
分别统计1~100中，满足3的倍数、7的倍数的数各为多少个？（7分）3、编程。
求100以内的素数之和。
（7分）答案及评分标准1. 答： x = 16 n = 82. 答：(5分，每排1分)9 6 8 3 2 7 / 9 8 6 3 2 7 / 9 8 7 3 2 69 8 7 6 2 3 / 9 8 7 6 3 2 （分5排书写）3. 答：(5分，每排1分)9 8 6 7 3 2 / 9 8 7 6 3 2 / 9 8 7 6 3 29 8 7 6 3 2 / 9 8 7 6 3 2 （分5排书写）4、答： m = 3 n = 0；三、程序填空（35分）1．答：a+b>c and b+c>a and a+c>b、a =b and b=c、a=b or b=c or a=c、msgbox(“出错，请重新输入”)2．答：smin=score、score<>-1、smin>score、count=count+13、答：k <= n、K+1四、程序改错（20分）1. 答：去掉”,s”, Dim b(1 To 10)加”Val()函数”, a(j)>0 And b(j)<50002．答：form，m <> 2，next3、答：变量分别定义,func =m4、答：else，age>=28 and workingage>=5五、编程题（20分）1. 编程参考：（6分）Private Sub Command1_Click()weight = val(text1.text)if weight < 1 thentext2.text = 100elseif weight < 5 thentext2.text = 100 + 25 * weightelsetext2.text = 100 + 30 * weightend ifif val(text2.text) > 300 then text2.text = 300End Sub2. 编程参考（7分）Private Sub Command1_Click( )X = 0 : y = 0For i = 1 To 100If I mod 3 = 0 then x = x + 1If I mod 7 = 0 then y = y + 1next IPrint x;yend sub2. 编程参考（7分）Private Sub Command1_Click( )S = 0For m = 2 to 100Flag = trueFor I to 2 to m-1If (m mod I) = 0 then flag = false Next IIf flag then s = s + mNext mPrint sEnd sub。
