下载文档原格式
2012秋第二部分Visual Basi21．可以设置为VB程序运行启动对象的是①工程文件②任意一个窗体③窗体模块中的Main()过程④标准模块中的Main()过程A．①②③B．②③④C．②③ D.②④22．若要引用列表框Listl中最后一个数据项的内容，应使用A．Listl．List(Listl．Count) B．Listl．List(Listl．Count-1)C．Listl．ListIndex D．Listl.Text23．以下关于变量的说法错误的是A.在不同窗体中用Public语句定义的变量可以同名’B.在过程中用Dim语句声明的变量都是局部变量，过程运行结束它们将不再存在C.静态变量在过程运行结束时其值仍保留，以供再次运行该过程时使用，因此它不是局部变量D．在窗体通用声明部分声明的模块级变量，可以在本窗体内的所有过程中使用24．对应数学表达式sin(30。
)+|x2+y1/2|+e x—log10nA．Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n)/Log(10)B．Sin(30)+Abs(x^2+Sqr(y))+e^x—Log(n)/Log(10)C．Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n)D．Sin(30)+Abs(x^2+Sqr(y))+e^x—Log(n)25．以下关于Ⅱ分支结构语句的说法正确的是A．有If一定有与之配对的ElseB．Else有一定有与之配对的IfC．有If一定有与之配对的End IfD．有End If有一定有与之配对的If26．设有字符串变量s, 其值为”abcd"，可将s的值替换为”aabcd”A．Left(s, 1)="aa”B．Mid(s, 1, 2)= "aa”iC．s="aa"＆Mid(s, InStr(s, "a”))D．s="aaⅣ&Right(s, Len(S)一InStr(s, “a”))27．下列表达式中, 不能将一个4位整数N的百位数字提取出来的是A. N\ 100 Mod 10 B.Mid(CStr(N), 2, 1)C．(N nod 1000)\100 D．N\10 Mod 10028.下列有关转换函数的说法正确的是A.Int和CInt函数的区别仅在于结果的数据类型不同B.Int和Fix函数将非整数数据转换成整数，转换后的结果类型是LongC.CInt函数的功能是将其他类型的数据转换成Integer类型D.在处理负数时，Int和Fix函数的结果是相同的29.以下有关数组的说法错误的是A.用ReDim语句重新定义动态数组时，其下标的上下界可以使用赋了值的变量B.定义数组时，数组维界值可以不是整数C.定义数组时，数组每一维的上界值必须大于下界值D.定义数组时，数组维界值可以是负数30.以下有关自定义函数过程的说法错误的是A.在自定义函数过程中可以多次给函数名赋值B.如果在函数体内没有给函数名赋值，则该函数无返回值C.函数定义时如果没有说明函数名的类型，则该函数的返回值为变体类型D.若用Call语句调用函数，则将丢弃函数的返回值1.下面程序，单击窗体后，窗体上显示的第一行内容是______，第三行内容是______，最后一行内容是______.Option ExplicitPrivate Sub Form_Click()Dim x As Integer，Y As Integer，sum As IntegerFor x=1 To 3For y=1 To 2sum=sum_+yIf sum>2 Then Exit ForNext yPrint sum；xNext xPrint x；yEnd Sub2.执行下面程序，单击Commandl按钮，则窗体上显示的a(1, 3)的值为______，a(2，1)的值，a(2，2)的值为Option ExplicitOption Base 1Private Sub Commandl—Click()Dim a(3，3)As Integer, i As Integer, j As IntegerFor i=1 To 3For j=1 To 3a(i, j)=i*10+jNext jNext iCall JH(a)End SubPrivate Sub JH(x()As Integer)Dim i As Integer，j As Integer，t As IntegerFor i=1 Tn 2For J=1 To 4-it=X(i, j)X(i, j)=x(4-i, 4-j)x(4-i,4-j)=tNext jNext iFor i=1 To 3For j=1 To 3Print x(i, j)；Next jPrintNext iPrintEnd Sub3．执行下面程序，单击Commandl按钮，在Textl中输人"12123152", 则在窗体上显示的第一行内容是，第二行内容是，最后一行内容是。
2012-12VB选择题1答案1-1、要判断在⽂本框中是否按了空格键，应通过⽂本框中（C ）事件判断。
A、ClickB、LostFocusC、KeyPressD、DblClick1-2、（D ）操作不能打开属性窗⼝的是：A、按F4建B、单击⼯具栏的“属性窗⼝”按钮C、执⾏“视图”菜单中的“属性窗⼝”命令D、按Ctrl+R1-3、当⽂本框的（C ）属性值设置为True时，⽂本框控件相当于标签的作⽤。
A、TabstopB、VisibleC、LockedD、Enabled1-4、（B ）类⽂件不能在“⼯程资源管理器”窗⼝中列出？A、.basB、.ocxC、.vbpD、.cls1-5、在运⾏程序时要判断窗体的系统事件Load、Activate、Initialize，这些事件发⽣的顺序是（ D ）。
A、Activate、Load、InitializeB、Initialize 、Activate、Load、InitializeC、Load、Activate、InitializeD、Initialize、Load、Activate2-1、窗体上有⼀个命令按钮Command1,编写如下事件过程：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx = x + 3y = y + 6End Sub2-2、下列变量（ A ）的数据类型是字符型。
A、X$B、X#C、X%D、X!2-3、Integer类型的变量可存放的最⼩整数为（C ）A、-256B、-255C、-32768D、-327672-4、在窗体中，⽤（D ）语句声明的变量X是全局变量A、Private X As IntergerB、Dim X As IntergerC、Static X As IntergerD、Public X As Interger2-5、⽤Dim Arr(5, -3 To 3) As Integer语句定义数组Arr后，下列语句中不正确的是（A ）。
2012年9月全国计算机二级VB考试真题二级VB一、选择题（每小题2分，共70分）（1）下列链表中，其逻辑结构属于非线性结构的是A）循环链表 B）双向链表 C）带链的栈 D）二叉链表（2）设循环队列的存储空间为Q(1:35)，初始状态为front=rear=35，现经过一系列入队与退队运算后，front=15，rear=15，则循环队列中的元素个数为A）16 B）20 C）0或35 D）15（3）下列关于栈的叙述中，正确的是A）栈顶元素一定是最先入栈的元素 B）栈操作遵循先进后出的原则C）栈底元素一定是最后入栈的元素 D）以上三种说法都不对（4）在关系数据库中，用来表示实体间联系的是A）二维表 B）树状结构 C）属性 D）网状结构（5）公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员，则实体部门和职员间的联系是A）m:1联系 B）1:m联系 C）1:1联系 D）m:n联系（6）有两个关系R和S 如下:则由关系R得到关系S的操作是A）自然连接 B）选择 C）并 D）投影（7）数据字典（DD）所定义的对象都包含于A）程序流程图 B）数据流图（DFD图） C）方框图 D）软件结构图（8）软件需求规格说明书的作用不包括A）软件可行性研究的依据 B）用户与开发人员对软件要做什么的共同理解C）软件验收的依据 D）软件设计的依据（9）下面属于黑盒测试方法的是A）逻辑覆盖 B）语句覆盖 C）路径覆盖 D）边界值分析（10）下面不属于软件设计阶段任务的是A）数据库设计 B）算法设计C）软件总体设计 D）制定软件确认测试计划(11)以下叙述叙述中错误的是A)vbp是工程文件,一个工程可以包括.bas文件B).frm文件是窗体文件,一个窗体可以包含.bas文件C) vbp是工程文件,一个工程可以由多个.frm文件组成D).vbg文件是工程组文件,一个工程组可以由多个工程组成(12)以下叙述中错误的是A)在Visual Basic的窗体中,一个命令按钮是一个对象B)事件是能够被对象识别的状态变化或动作C)事件都是由用户的键盘操作或鼠标操作触发D)不同的对象可以具有相同的方法(13)设x=3.3, y=4.5, 表达式x-Int(x)+Fix(y)的值是A)3.5 B)4.8 t C)4.3 D)4.7(14)窗体上有一令名称为Command1的命令按钮, 其中部分代码如下: Private Sub Command1_Click()Dim a(10)As IntegerDim n As Integer... ...Call calc(a, n)... ...End Subcalc过程的首行应该是A)Sub talc(x()As Integer, n As Integer)B)Public Sub calc(x() As Integer)C)Private Sub calc(a(n) As Integer, n As Integer)D)Public Sub calc(a As Integer, n As Integer)(15)设有如下程序:Sub f(x As Integer,ByVal y As Integer)x=2*xy=y+xEnd SubPrivate Sub Command1_Click()Dim a As Integer,b As Integera=6:b=35Call f(a, b)Print a, bEnd Sub程序运行后, 单击命令按钮Command1, 输出结果为A)6 47 B)12 47 C)6 35 D)12 35(16)以下叙述中正确的是A)窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B)在工程中只有启动窗体可以建立菜单c)窗体名称必须与窗体文件的名称相同D)程序一定是从某个窗体开始执行的(17)窗体上有一个名称为Command1的命令按钮, 其单击事件过程代码如下: Private Sub Command1_Click()Static x As Variantn=0x=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)while n<=4x(n)=x(n+5)Print x(n);n=n+1WendEnd Sub运行程序, 单击命令按钮Command1, 窗体上显示的是A)1 2 3 4 5 B)6 7 8 9 10 C)2 3 4 5 6 D)6 2 3 4 5(18)窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。
2012秋第一套[1]. Web网页有___________ 网页和动态网页两大类，前者通常指那些内容固定不变的网页。
[2]. CD光盘片根据其制造材料和信息读写特性的不同，可以分为CD-ROM、CD-R和CD-RW。
CD-R光盘指的是________。
A．只读光盘B．随机存取光盘C．只写一次式光盘D．可擦写型光盘[3]. 下列4种输入设备中功能和性质不属于同一类型的是________。
A．鼠标器B．触摸屏C．轨迹球D．手持式扫描仪[4]. 十进制整数256使用无符号整数表示时，在PC中使用________个二进位表示最合适。
A．4B．8C．16D．32[5]. 为了解决异构网互连的通信问题，IP协议定义了一种独立于各种物理网络的数据包格式，称之为IP________，用于网络之间的数据传输。
[6]. 数码相机中将光信号转换为电信号的芯片是________。
A．Flash ROMB．DSP C．CCD或CMOSD．A/D[7]. 以下Windows（中文版）文件系统中有关文件命名的叙述中，错误的是_____________ 。
A．每个文件或文件夹必须有自己的名字B．同一个硬盘（或分区）中的所有文件不能同名C．文件或文件夹的名字长度有一定限制D．文件或文件夹的名字可以是中文也可以是西文和阿拉伯数字[8]. 下面关于因特网服务提供商（ISP）的叙述中，错误的是_______。
A．ISP指的是向个人、企业、政府机构等提供因特网接入服务的公司B．因特网已经逐渐形成了基于ISP的多层次结构，最外层的ISP又称为本地ISPC．ISP通常拥有自己的通信线路和许多IP地址，用户计算机的IP地址是由ISP分配的D．家庭计算机用户在江苏电信或江苏移动开户后，就可分配一个固定的IP地址进行上网[9]. USB接口是一种通用的串行接口，通常可连接的设备有移动硬盘、优盘、鼠标器、扫描仪等。
[10]. 在启动PC机的过程中，用户可以通过按下键盘上的一个特定键运行存储在BIOS 中的_____程序，从而修改CMOS芯片中保存的系统配置信息。
VB练习题（填空+选择）《VB》练习题一、填空题1、可以通过菜单中的命令退出Visual Basic,也可用快捷键。
2、快捷键CTRL+O的功能相当于执行菜单中的命令；或者相当于单击工具栏上的按钮。
3、工程文件的扩展名为，窗体文件的扩展名为。
4、属性窗口分为4个部分，这4个部分分别是、、、。
5、一个控件在窗体上的位置由和属性决定，其大小由和属性决定。
6、为了选择多个控件，可以按住键，然后单击每个控件。
7、在用Visual Basic 开发应用程序时，一般需要、、3步。
8、在Visual Basic 中，字符串常量要用括起来，日期/时间型常量要用括起来。
9、为了使文本框同时具有水平和垂直滚动条，应先把属性设置为True,然后再把属性设置为3。
10、为了使标签覆盖背景，应把属性设置为1。
11、为了使标签中的内容居中显示,应把属性设置为2。
12、若要把C盘根目录下的图形文件ab.jpg装入图片框Picture1中，应使用的语句是：13、属性决定了标签内显示的内容。
14、假定在图片框Picture1中装入了一个图形文件，为了清除该图形（注意：清除图形，而不是删除图片框），应使用的语句是：15、当拖动滚动条中的滚动块时，将触发滚动条的事件。
16、为了使标签能自动调整大小以显示全部文本内容，应把标签的属性设置为True17、为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的属性设置为18、窗体、图片框或图像框中的图形通过对象的属性设置。
19、计时器事件之间的间隔通过属性设置。
20、有时候需要暂时关闭计时器，可以通过设置属性来实现。
21、可以同时删除字符串前导和尾随空格的函数是。
22、当某一按钮的属性设置为False 时，该按钮不可见。
23、属性用于设置或返回文本框中的文本。
24、要使文本框中的文本以多行显示，应将其属性设置为true.25、若要使文本框具有水平滚动条，应将其属性的值设为1。
2012—2013学年第一学期11级（5、6）班高职计VB科期中试卷班级：姓名：座号：成绩：一、选择题（每题1分，共35分）1．以下4个选项中，属性窗口未包含的是（）。
A、对象列表B、工具箱C、属性列表D、信息栏2．事件的名称（）。
A、都是由系统预先定义B、都要由用户定义C、有的由用户定义，有的由系统定义D、是不固定的3．窗体的caption属性值是（）类型的数据。
A、整型B、字符型C、逻辑型D、实型4．．改变控件在窗体中的左右位置应修改该控件的（）属性。
A、TopB、LeftC、WidthD、Right 5．为了装入一个VB应用程序，应当（）。
A、分别装入工程文件和标准模块文件B、只装入窗体模块文件C、只装入工程文件D、分别工程文件、窗体文件和标准模块文件6．以下进入代码窗口的方法中错误的是（）。
A、单击控件B、按“F7”键C、执行【视图】菜单下的【代码窗口命令】D、单击工程资源管理器窗口中的【查看代码】按钮7．与传统的程序设计语言相比，VB最突出的特点是（）。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术8．控件是（）A、建立图形界面的编辑窗口B、编写程序的编辑器C、建立对象的工具D、设置对象属性的工具9．下列（）说法是错误的。
A、属性窗口中的属性列表会随着选定对象的变化而变化。
B、属性是对用户界面中对象性质的描述。
C、单击工具栏中“属性窗口”按钮，可打开属性窗口。
D、选取“工具”菜单下的“属性窗口”菜单项，可打开属性窗口。
10．在设计模式双击窗体将显示的窗口是（）A、工具箱B、代码窗口C、工程窗口D、属性窗口11．从功能上讲，Visual Basic 6.0有3种版本，下列不属于这3种版本的是（）。
A、学习版B、标准版C、专业版D、企业版12．VB中运行程序的快捷键是（）。
A、F2B、F3C、F4D、F513．新建工程的快捷键是（）。
A、Crtl+AB、Crtl+DC、Crtl+ND、Crtl+E14．当事件能被触发时，（）就会对该事件作出响应。
VB选择题及答案⼆、选择题1、Visual Basic 6.0分为3种版本，不属于这3种版本的是A) 学习版B) 专业版C) 企业版D) 业余版2、下列⽅法中不能退出Visual Basic的是A) 按Alt+Q组合键B) 按下Alt+F组合键，然后按Esc键C) 打开“⽂件”菜单，执⾏“退出”命令D) 按F10键，然后按F键，再按X键3、Visual Basic集成的主窗⼝中不包括A) 属性窗⼝B) 标题栏C) 菜单栏D) ⼯具栏4、Visual Basic标题栏上显⽰了应⽤程序的A) ⼤⼩B) 状态C) 位置D) 名称5、在设计阶段，当双击窗体上的某个控件时，打开的窗⼝是A) ⼯程资源管理器窗⼝B) ⼯具箱窗⼝C) 代码窗⼝D) 布局窗⼝6、下列操作可以打开⽴即窗⼝的是A) Ctrl+D B) Ctrl+F C) Ctrl+G D) Ctrl+E7、⼀个⼯程必须包含的⽂件的类型是A) *.vbp *.frm B) *.vbp *.cls C) *.bas *.ocx D) *.frm *.cls8、下列说法错误的是A) 窗体⽂件的扩展名为.frmB) ⼀个窗体对应⼀个窗体⽂件C) Visual Basic中的⼀个⼯程只包含⼀个窗体D) Visual Basic中⼀个⼯程最多可以包含255个窗体10、Visual Basic程序设计采⽤的编程机制是A) 可视化B) ⾯向对象C) 事件驱动D) 过程结构化11、在Visual Basic中，被称为对象的是A) 窗体B) 控件C) 控件和窗体D) 窗体、控件和属性12、确定窗体控件启动位置的属性是A) Width和Height B) Width或HeightC) StartUpPositon D) Top和Left13、如果设置窗体的ControlBox属性值为False，则A) ControlBox仍起作⽤B) 运⾏时还可以看到窗⼝左上⾓显⽰的控制框C) 窗⼝边框上的最⼤化和最⼩化按钮失效D) 窗⼝边框上的最⼤化和最⼩化按钮消失15、以下能在窗体Form1的标题栏中显⽰“Visual Basic窗体”的语句是：A）/doc/65de6d1e227916888486d70b.html =“Visual Basic窗体”B）Form1.Title =“Visual Basic窗体”C）Form1.Caption =“Visual Basic窗体”D）Form1.Text =“Visual Basic窗体”17、当Esc键与单击该命令按钮作⽤相同时，此命令按钮的什么属性被设置为True？A) Style B) Default C) Caption D) Cancel18、当⼀个命令按钮的Default属性为True时，按何键与单击该命令按钮作⽤相同A) Insert B) 回车C) Break D) Shift19、设置命令按钮的属性时，只有将何属性设置为1，Picture属性才有效，否则⽆效?A) Style B) Caption C) Enabled D) Default20、在使⽤应⽤程序时，常常⽤作在单击时执⾏指定的操作的控件是A) 命令按钮B) 图⽚框C) 复选框D) 单选按钮21、在代码编辑器中，续⾏符是⽤来换⾏书写同⼀个语句的符号，⽤以表⽰续⾏符的是A) ⼀个空格加⼀个下划线“_”B) ⼀个下划线“_”C) ⼀个造字符“-”D) ⼀个空格加⼀个连字符“－”22、Visual Basic中的数值可以⽤⼗六进制或⼋进制表⽰，⼗六进制数的开头符是&H，⼋进制数的开头符号是A) $O B) &OC) $E D) &E23、关于货币型数据的说明，正确的是A) 货币型数据有时可以表⽰成整型数据B) 货币型数据与浮点型数据完全⼀样C) 货币型数据是由数字和⼩数点组成的字符串D) 货币型数据是⼩数点位置固定的实型数24、下列⽇期型数据正确的是A) @January 10,1979@ B) #January 10,1997#C) "January 10,1997" D) &January 10,1997&25、以下关于Visual Basic数据类型的说法，不恰当的是A) Visual Basic 6.0提供的数据类型主要有字符串型和数值型，此外还有字节、货币、对象、⽇期、布尔和变体数据类型等B) ⽬前Decimal数据类型只能在变体类型中使⽤C) ⽤户不能定义⾃⼰的数据类型D) 布尔型数据只能取两种值，⽤两个字节存储26、可以在常量的后⾯加上类型说明符以显⽰常量的类型，可以表⽰整型常量的是A) ％B) ＃C) ！D) $27、下列符号常量的声明中，不合法的是A) Const a As Single=1.1 B) Const a="OK"C) Const a As Double=Sin(1) D) Const a As Integer="12"28、在Visual Basic中，要强制⽤户对所⽤的变量进⾏显式声明，这可以在哪⾥设置?A) “属性”对话框B) “对象”窗⼝C) “选项”对话框D) 对象浏览器29、如果⼀个变量未经定义就直接使⽤，则该变量的类型为A) Integer B) Byte C) Boolean D) Variant30、下⾯说法不正确的是A) 变量名的长度不能超过255个字符B) 变量名可以包含⼩数点或者内嵌的类型声明字符C) 变量名不能使⽤关键字D) 变量名的第⼀个字符必须是字母31、以下各项，可以作为Visual Basic变量名的是A) Book B) 2_Seek C) 123.58 D) Book－133、有变量定义语句Dim max, min As String，则可以知道max的类型是A) 变体类型B) 单精度型C) 双精度型D) 字符串型34、以下合法的Visual Basic标识符是A）ForLoop B）Const C）9abc D）a#x35、变量L的值为－8，则－L^2的值为A) 64 B) －64 C) 16 D) －1636、表达式(3 / 2 + 1) * (5 / 2 + 2) 的值是A) 11.25 B) 3 C) 6.125 D) 437、表达式(7 \ 2 + 1) * (8 \ 2 + 2) 的值为A) 4.58 B) 5.69 C) 24 D) 2238、表达式3 ^ 2 Mod 14 \ 2 ^ 3的值是A) 1 B) 0 C) 2 D) 339、以下关系表达式中，其值为False的是A) "ABC">"AbC" B) "the"<>"they"C) "VISUAL"=UCase("Visual") D) "Integer">"Int"22、设x=4,y=8,z=7, 则表达式xz) Or zA）1 B）-1 C）True D）False40、下列程序执⾏的结果为x=25: y=20: z=7Print "S("; x + z * y; ") "A) S( 47 ) B) S( 165 ) C) S( 25+7*20 ) D) S( 87 )41、执⾏语句s=Len(Mid("VisualBasic",1,6) ) 后，s的值是A) Visual B) Basic C) 6 D) 1142、下列程序运⾏结果是a=25: b=-45i=Not a=bPrint iA) -45 B) True C) 0 D) 不能输出43、在窗体上画⼀个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a$ = "VisualBasic"Print String(3, a$)End Sub程序运⾏后，单击命令按钮，在窗体上显⽰的内容是A）VVV B）Vis C）sic D）1144、计算z的值，当x⼤于y时，z=x；否则z=y。
第03套1. 基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为%USER%**********************************************************************请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为Frame1，标题为“目的地”的框架，在框架中添加三个复选框，名称分别为Check1、Check2、Check3，其标题分别是“上海”、“广州”、“巴黎”，其中“上海”为选中状态，“广州”为未选状态，“巴黎”为灰色状态，如图所示。
请画控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
解题思路：启动Visual Basic系统，创建一个Form1窗体。
在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1，标题（Caption属性）设为“目的地”。
在F1框架中画三个复选框控件，通过其属性窗口将名称分别设为Check1、Check2、Check3，标题（Caption 属性）分别设为“上海”、“广州”、“巴黎”，“上海”的Value属性设为1,“巴黎”的Value属性设为2。
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。
**********************************************************************（2）在名称为Form1的窗体上画一个名称为Picture1的图片框，其宽和高分别为1700、1900。
请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件pic1.bmp，如图所示。
vb试题⼀、单项选择题（50道⼩题，共50分）1、下列叙述中，不正确的叙述是( C )。
（1分）A、注释语句是⾮执⾏语句，仅对程序的有关内容起注释作⽤，客观存在不被解释和编译B、注释语句能放在整个代码程序的最后C、注释语句可以放在代码中的任何位置D、代码中加⼊注释语句的⽬的是提⾼程序的可读性2、( B )是对象的⼀个基本要素，它描述了对象在程序中的外观特点。
（1分）A、事件B、属性C、⽅法D、事件程序3、在Visual Basic中，系统为每个对象预先定义好了⼀系列的事件。
下列事件中，不属于VB系统提供的事件是( C )。
（1分）A、Click()B、Change()C、MyFirst()D、DblClick()4、Visual Basic程序中分隔各语句的字符是( B )。
（1分）A、'B、:C、\D、_5、下列关于VB编码规则的叙述中，错误的是( B )。
（1分）A、⼀条语句可以分为多⾏书写B、多条语句可以书写在同⼀⾏上，每条语句之间⽤逗号隔开C、可以⽤Rem<注释内容>给语句或程序段加上注释，以提⾼可读性D、不区分程序代码中变量名的字母的⼤⼩写6、下列关于Visual Basic的叙述不正确的是( A )。
（1分）A、变量名区分字母⼤、⼩写B、不能⽤系统保留字声明为变量名C、允许在⼀⾏中书写多条语句，但要⽤冒号隔开D、允许⼀条语句分成若⼲⾏书写，但要在上⼀⾏末加上空格及下划线作为续⾏标志7、Visual Basic以( B )为运⾏机制。
（1分）C、执⾏计划D、后台作业8、在设计阶段，当双击窗体上的某个控件时，所打开的窗⼝是( C )。
（1分）A、⼯程资源管理器窗⼝B、⼯具箱窗⼝C、代码窗⼝D、属性窗⼝9、VB应⽤程序在( A )模式下不能编辑代码和设计界⾯。
（1分）A、运⾏B、中断C、设计D、以上均不能10、当程序中断修改后再运⾏时，VB进⼊( B )模式。
（1分）A、设计B、运⾏C、中断D、编程11、语句 Debug.Print "郑州⼤学" 被执⾏后, 在( B )上将显⽰: 郑州⼤学。
5630101：答：设置Text1 的属性MultiLine为true和ScrollBarsFalsecommand1的属性Enabled 为Text1.FontBold = TrueEnd SubPrivate Sub Op2_Click()Text1.FontBold = FalseEnd SubPrivate Sub Cd1_Click()P1.ClsP1.Line (0, 0)-(1800, 1200)End SubPrivate Sub Cd2_Click()P1.ClsP1.Circle (900, 600), 500End SubPrivate Sub Command1_Click()Dim n As IntegerDim a As Integer, b As Integer, c As Integer n = Text1.Texta = n Mod 10b = n \ 10 Mod 10c = n \ 100If a ^ 3 + b ^ 3 + c ^ 3 = n ThenLabel1.Caption = "是水仙花数" ElseLabel1.Caption = "不是水仙花数" End IfEnd SubDim A(1 To 10)Private Sub Command1_Click() RandomizeDim i As IntegerFor i = 1 To 10A(i) = Int(10 + Rnd * (99 - 10 + 1))Text1.Text = Text1.Text & A(i) & " " Next iEnd SubPrivate Sub Command2_Click()Min = A(1)Max = A(1)For i = 2 To 10If A(i) < Min ThenMin = A(i)ElseIf A(i) > Max ThenMax = A(i)End IfNext iText2.Text = MaxText3.Text = MinEnd Sub5630102：答：设置image1 的属性BorderStyle为1和Stretch为true属性找到图片在image1 的pictureText2.Text = Text1.SelTextText1.Text = ""Text1.SetFocusEnd Sub'''不得删改本行注释Dim a As Singlea = Text1.TextIf a >= 80 And a <= 100 Then Text2.Text = "优良"If a >= 60 And a < 80 Then Text2.Text = "合格"If a > 0 And a < 60 Then Text2.Text = "不合格"End Sub：5630103Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.Caption = TimeEnd SubPrivate Sub Command1_Click()L1.AddItem Text1.TextL2.AddItem Val(Text1.Text) ^ 2T1.Text = ""T1.SetFocusEnd SubPrivate Sub Command1_Click()Dim s As String, i As Integer, n As Integers = Text1.TextFor i = 1 To Len(s)If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then n = n + 1End IfNext iText2.Text = nEnd SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 100 To 200If isprime(i) = False ThenText1.Text = Text1.Text & i & " "End IfNext iEnd Sub：5630104按窗体右键->菜单编辑器, 标题和名称不能少,例如:标题: 文件,名称为File.注意名称的大小写和题目一致设置标签L1的BorderStyle属性为1,Private Sub Cd1_Click()L1.Visible = FalseEnd SubPrivate Sub Cd2_Click()L1.Visible = TrueEnd Sub5630106：设置combo1的style属性为1,然后下拉组合框Private Sub Cd1_Click()Combo1.AddItem Combo1.TextEnd SubPrivate Sub Cd2_Click()Combo1.RemoveItem Combo1.ListIndexEnd SubPrivate Sub Command1_Click()Dim n As Integern = Text1.TextIf (n Mod 4 = 0 And n Mod 100 <> 0) Or n Mod 400 = 0 Then Text2.Text = "是闰年"ElseText2.Text = "非闰年"End IfEnd SubPrivate Sub Command1_Click()'''不得删改本行注释Text2.Text = zh(Text1.Text)End Sub5630107：Private Sub Command1_Click()'''不得删改本行注释Dim S As StringOpen "K:\administrator\5630111\PDZM.TXT" For Input As #1 Do While Not EOF(1)Input #1, SText1.Text = Text1.Text & SLoopEnd SubPrivate Sub Command2_Click()'''不得删改本行注释Dim S As String, i As Integer, N As IntegerS = Text1.TextFor i = 1 To Len(S)If Mid(S, i, 1) = UCase(Text2.Text) Or Mid(S, i, 1) = LCase(Text2.Text) Then N = N + 1End IfNext iText3.Text = NEnd Sub：5630108Private Sub C1_Click()L1.AddItem T1.TextL2.AddItem Asc(T1.Text)T1.Text = ""T1.SetFocusEnd Sub：5630109Private Sub Form_Load()List1.AddItem "PictureBox"List1.AddItem "Label"List1.AddItem "TextBox"List1.AddItem "Frame"List1.AddItem "CommandButton"List1.AddItem "CheckBox"End SubPrivate Sub Command1_Click()Text1.Text = List1.TextText2.Text = List1.ListIndexEnd Sub5630110：Dim n As Integern = Text1.TextFor i = 1 To 50If Sqr(i) = Int(Sqr(i)) ThenText2.Text = Text2.Text & i & " "End IfNext iEnd SubOption ExplicitDim A(1 To 20) As Integer '''不得删改本行声明Private Sub Command1_Click()'''不得删改本行注释Open "K:\administrator\5630005\input02.txt" For Input As #1 For i = 1 To 20Input #1, A(i)Text1.Text = Text1.Text & A(i) & " "Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, sum As IntegerFor i = 1 To 20sum = sum + A(i)Next iText2.Text = sumEnd Sub答：设置image1 的属性BorderStyle为1和Stretch为true Private Sub Check1_Click()If Check1.Value = 1 ThenImage1.Picture = LoadPicture("K:\Fjexam95\Jztx.bmp")ElseImage1.Picture = LoadPicture("")End IfEnd Sub。
2012年vb计算机考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明一个过程？A. FunctionB. SubC. DimD. Call答案：B2. 在Visual Basic中，以下哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. ListBox答案：B3. 下列哪个选项不是Visual Basic的内置函数？A. LenB. MidC. SqrD. Sum答案：D4. 在Visual Basic中，以下哪个语句用于结束一个循环？A. NextB. LoopC. EndD. Exit答案：D5. 在Visual Basic中，以下哪个属性用于设置或返回一个控件的背景颜色？A. BackColorB. ForeColorC. TextColorD. BorderColor答案：A6. 在Visual Basic中，以下哪个事件用于在窗体加载时触发？A. LoadB. ClickC. DblClickD. MouseDown答案：A7. 在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. ConstC. StaticD. All of the above答案：D8. 在Visual Basic中，以下哪个控件用于显示下拉列表？A. TextBoxB. ComboBoxC. ListBoxD. CheckBox答案：B9. 在Visual Basic中，以下哪个函数用于返回一个字符串的长度？A. LenB. StrC. UCaseD. LCase答案：A10. 在Visual Basic中，以下哪个属性用于设置或返回一个控件的前景色？A. BackColorB. ForeColorC. TextColorD. BorderColor答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个类。
2012年3月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡相应位置上，答在试卷上不得分。
（1）下列叙述正确的是A) 循环队列是队列的一种链式存储结构B）循环队列是队列的一种顺序存储结构C）循环队列是非线性结构D）循环队列是一种逻辑结构（2）下列叙述正确的是A) 栈是一种先进先出的线性表B）队列是一种后进后出的线性表C）栈和队列都是非线性结构D）以上三种说法都不对（3）一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为A）16 B）10 C）6 D）4（4）在下列模式中，能够给出数据库物理存储结构与物理存取方法的是A）外模式B）内模式C）概念模式D）逻辑模式（5）在满足实体完整性约束的条件下A）一个关系中应该有一个或多个候选关键字B）一个关系中只能有一个候选关键字C）一个关系中不许有多个候选关键字D）一个关系中可以没有候选关键字（6）有三个关系R、S和T如下：R S TABCa12b21c31ABCb21c31ABCa12d21则由关系R和S得到关系T的操作时A) 自然连接B）并C）交D）差（7）软件生命周期中的活动不包括A）市场调研B）需求分析C）软件测试D）软件维护（8）下面不属于需求分析阶段任务的是A）确定软件系统的功能需求B）确定软件系统的性能需求C）需求规格说明书评审D）制定软件集成测试计划（9）在测试方法中，设计测试用例的主要根据是A）程序内部逻辑B）程序外部功能C）程序数据结构D）程序流程图（10）在软件设计中不使用的工具是A）系统结构图B）PAD图C）数据流图（DFD图）D）程序流程图（11）以下合法的VB变量名是A）case B）name10 C）t-name D）x*y（12）设x是小于10的非负数。
VB程序设计第一题题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。
将结果存入变量M中。
代码：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码：Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目：（事件）单击窗体（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。
1下列属于容器的控件是（）291847373A listboxB comboboxC imageD frame2下列关于常量的叙述中，正确的是（）A 2010-06-09是日期型常量B 符号常量必须在定义时被赋值C 常量与变量不同，没有数据类型之分D 符号常量可以先使用后声明3下列运算符中，优先级最低的是（）A +B \C NotD <4下列函数中。
能将数值转为字符串的是（）A ucaseB ltrimC fixD str5下列不属于标准控件的是（）A 目录列表框B slider控件C 文件列表框D 时钟6下列变量（）时数据类型是双精度。
A X!B X%C X#D X$7在表达式的运算中，下列（）的优先级最高。
A逻辑运算符B函数C字符运算符D关系运算符8下列关于cls方法的叙述中，错误的是（）A cls方法可以清除运行的、时在窗体中显示的所有文本B cls方法可以清除运行时在图像框控件中显示的文本C cls方法可以清除运行时在图片框控件中显示的文本D图片框控件能使用cls和print方法9下列关于msgbox函数的叙述中，不正确的是（）A msgbox函数可以设置消息框中按钮的数目B msgbox函数使用时，可以省略“提示信息“参数Cmsgbox函数可以设置消息框中的按钮的想、类型D msgbox函数的返回值是数值型10对于窗体，（）属性在程序运行中不能改变A borderstyleB heightC nameD caption11若文本框的（）属性为true，程序运行时，不能编辑文本框中显示的内容。
A visibleB enabledC textD locked12以下关于图形控件的叙述中，正确的是（）A图像框控件可以作为其他控件的容器B使用clear方法清除窗体中的图形C图片框控件可以作为其他控件的容器D使用shape控件可以再窗体中绘制任何图形13若单选按钮被选中，则其value属性为（）A falseB 0C 1D true14程序运行时，要使用户的鼠标暂停在命令按钮上时出现提示信息，应设置命令按钮的（）属性A tabstopB styleC tooltiptexrD picture15程序运行时，可使用shift或ctrl键配合鼠标在列表框中选择多个选项，应设置列表框的（）。
A multiselect的属性为2B style属性值为0C style属性值为1D multiselect的属性为116在程序运行时，若拖动滚动条上的滑块，会触发的滚动条事件是（）。
A moveB changeC scrollD gotfocus17程序运行时，要判断在文件框中是否按下了空格键，可以通过文本框的（）事件判断。
A mousedownB changeC mouseupD keypress18窗体上有文本框text1和命令按钮command1，编写如下事件过程：Private sub command1_click()Dim i as integerI =val(text1.text)Text1.text=choose(i, "游泳"，"体操"，"武术"，"篮球")End sub运行时，在text1中输入4后单击命令按钮，text1中的内容是（）。
A篮球B体操C武术D游泳19下面的语句是用array函数为一维数组s的各元素赋整数值；S=array（1,2,3,4,5,6）数组s的声明语句应该是（）A dim sB dim s as integerC dim s（）as integerD dim s (6) as integer20运行下列程序段后，x的值是（）X=2Y=6Do until y>6X=x*yY=y+1LoopA 6B 2C 84D 1221下列关于多文档界面（mdi）的叙述中错误的是（）A mdi应用程序中存在与mdi父窗体无关的独立窗体B mdi应用程序允许同时显示多个文档C mdi子窗体是一个mdichild属性为true的普通窗体，但其图标与普通窗体不同D 一个多文档应用程序需要多个mdi窗体和多个子窗体22设有打开文件的语句如下:Open app .path & "\dsj.txt"for append as #1若要将变量k中的数据添加到打开的文件末尾，应使用语句（）A input #1，，kB Print #1，kC get #1, kD write #1,,k23下列不能在“工程资源管理器”窗口中添加的是（）A active部件B 模块C 窗体D 类模块24下列关于数据类型的叙述中，错误的是（）。
A long型数据用于存储实数B 逻辑性数据只有两个值C variant可以存储系统定义的所有类型的数据D标准数据类型是系统定义的25当a=1时，函数IIf（a>0,2,IIF(a<0,-1,0)）的返回值是（）A -1B 1C 0D 226 下列关于inputbox的叙述中，不正确的是（）A inputbox函数值可以赋给一个变量B没执行一次inputbox语句，可以输入一个值C inputbox函数执行时，用户要输入一个数值D inputbox函数的返回值是字符型27对于窗体，（）属性在程序运行中不能改变。
A borderstyleB nameC heightD caption28若文本框（）属性为True，程序运行时，不能编辑文本框中的内容。
A TextB LockedC EnabledD Visible29 清除图片框picturel 中用绘图方法绘制的图形，可以使用代码（）A Picturel , ClearB Picturel,ClsC Picturel,DelD Picturel, Unload30若要将复选框的标题显示在它的左边，需设置属性（）A Appearance为0B Alignment为0C Alignment为1D Appearance为1 31执行语句Command1.Enabled = False的结果是（）A Command1 改变外观B Command1 移动到坐标原点C Command1 变灰色，不可操作D Command1不可见32使用下列（）方法可以一次性清除列表框List1中的所有的项。
A EscB ClsC MoveD Clear33滚动条不能响应的事件是（）A ChangeB Got FocusC ScrollD Load34 有如下事件过程：Private Sub Form-MouseDown(Button As Lnteger ,Shift As Integer, X As Single, Y As Single )Form1.Print Button; ShiftEnd Sub该过程运行后，窗体上显示“1 2”，说明（）A用户按下了鼠标右键和Ctrl 键 B 用户按下了鼠标右键和Shift 键C用户按下了鼠标左键和Ctrl 键 D 用户按下了鼠标左键和Shift 键35运行下列事件过程，y的值为（）Private Sub Form-Click()Dim X As Integer, y As IntegerX = 4If x < 1 ThenY = x + 1End IfEnd SubA 3B 13C 7D 1536运行下列程序后，x的值是（）x =2y =6Do Unti1 y > 6x =x *yy =y+1LoopA 2B 12C 6D 8437由多个单选按钮构成的一个控制数组，用于区别该控制数组中各控件的属性是（）A Name B Caption C Value D index38运行以下程序，第二次单击窗体后，窗体上显示的结果为( )Private Sub Click ()Static m As IntegerDim n As Integer , i As IntegerForm1.ClsFor i = 1 To 3m =m +2n = n +2Next iPrint m ；nEnd SubA 6 12B 12 12C 12 6D 6 639下列关于弹出式菜单的叙述中，正确的是（）A弹出式菜单不能在菜单编辑器中建立B一个窗体只能有一个弹出式菜单C所以子菜单项的“可见”属性必须设置为FalseD弹出式菜单通过窗体的PopupMou 方法显示40关于顺序文件的叙述正确的是（）A如果用Output方式打开文件，可以读取文件中的记录，也可以再文件尾部添加记录B 如果用Append 方式打开文件，可以读取文件中的记录，也可以再文件尾部添加记录C个记录的写入顺序与读出顺序是一致的D可以用不同文件号以不同耳朵读写方式同时打开一个文件41运行下面的程序，单击命令按钮Command1,窗体上显示的结果是（）Private Sub Command1-Click ()Dim x As Integer , y As Integerx=2;y=3Call p1(x,y）Print x ,yEnd SubSub p1(Byval a As String ,ByVal b As String)B= a+bEnd SubA 5 5B 2 5 C2 2 D 2 342下列叙述中，错误的是（）A VB6.0采用事件驱动的编程机制B VB6.0应用了Active 技术C VB6.0是可视化设计平台D默认状态下，VB6.0工具箱中显示21个控件43下列关于VB6.0变量的叙述中，正确的是（）A变量名的第1个字符只能是字母B变量一定要先声明再使用C变量名中可以包含下划线D变量名中可以包含感叹号44下列运算符号中，优先级最高的是（）A <B \C NotD +45下列函数中，能将数值转为字符串的是（）A FixB StrC UcaseD Ltrim46下列关于Cls方法的叙述中，错误的是（）A Cls方法可以清除运行时在窗体中的所有文本B图片框控件能使用Cls和Print方法C Cls方法可以清除运行时在图像框控件中显示的文本DCls方法可以清除运行时在图片框控件中显示的文本47执行语句Y=Msgbox（"Error"）, 在弹出的对话框中按”确定“按钮，变量Y的值为（）A 数值型1B 数值型2C 数值型4D 数值型348卸载窗体采用语句（）A unloadB loadC moveD show49清除文本框text1中的内容，可以使用（）A text1.text=emptyB text1.caption=”“C text1.clsD text1.text=”“50以下关于图形控件的叙述中，错误的是（）A shape控件可以绘制圆B 图像框控件可以作为其他控件的容器C 可使用line控件在窗体上绘制直线D 图片框控件可以作为其他控件的容器51以下关于选择控件的叙述中，错误的是（）A 单选按钮的标题只能显示在它的右边B 复选框可以图形方式显示C 复选框的valueD 单选按钮的value属性是逻辑型52下面的操作中，可以触发命令按钮的click事件的是（）A 把焦点移到命令按钮上，然后按enter键B 在命令按钮上单击鼠标右键C 把焦点移到命令按钮上，然后按方向键D 在窗体上单击鼠标左键53窗体上有列表框list1，其中有多个选项。
