中专VB试题
中职计算机VB语言程序设计基础 第一章VB概述测试题及答案
第一章 Visual Basic概述一、选择题1.在 Visual Basic的工程中,工程文件的扩展名是( ) 。
A. .frmB. .vbgC. .vbpD. .bas2. Visual Basic程序中分隔一行中各语句的字符是( ) 。
A.’B.:C.\D.-空格-3.下列不属于对象的基本特征是( ) 。
A.属性B.方法C.事件D.函数4.以下叙述中错误的是( ) 。
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含窗体及控件的属性D.一个工程中可以含有多个标准模块文件5.启动 Visual Basic后,系统为用户新建的工程起一个名为( ) 的临时名称。
A.工程1B.窗体1C.工程D.窗体6.用标准工具栏中的工具按钮不能执行的操作是( ) 。
A.添加工程B.打印源程序C.运行程序D.打开工程7.要添加一个标准模块,可使用( ) 菜单中的“添加模块”命令。
A.文件B.视图C.工程D.工具8.工具栏中的“启动”按钮的作用是( ) 。
A.运行一个应用程序B.运行一个窗体C.工程管理窗口D.打开被选中对象的代码窗口9.下列关于 Visual Basic6.0工具栏的说法不正确的是( ) 。
A.工具栏的位置可以任意改变B.工具栏一定在菜单栏的下方C.工具栏可以显示或隐藏D. Visual Basic有多个工具栏10.在设计模式双击窗体将显示的窗口是( ) 。
A.工程窗口B.工具箱C.代码窗口D.属性窗口11.以下关于保存工程的说法正确的是( ) 。
A.保存工程时只保存窗体文件即可B.保存工程时只保存工程文件即可C.先保存窗体文件,再保存工程文件D.先保存工程文件,再保存窗体文件12.在面向对象的程序设计中,最基本的元素是( ) 。
A.窗体文件B.工程文件C.属性D.对象13. Visual Basic的编程机制是( ) 。
中职vb试题及答案
中职vb试题及答案一、选择题（每题2分，共20分）1. VB中的“=”符号表示什么？A. 赋值B. 等于C. 不等于D. 大于答案：A2. 下列哪个是VB中合法的变量名？A. 123nameB. name_123C. _nameD. name?答案：B3. VB中，用于声明变量的关键字是？A. DimB. ConstC. FunctionD. Sub答案：A4. VB中，以下哪个选项不是基本数据类型？A. IntegerB. StringC. BooleanD. Object答案：D5. VB中，如何表示一个数组？A. Dim arr(10) As IntegerB. Dim arr As Integer(10)C. Dim arr(10,10) As IntegerD. Dim arr As Integer答案：A6. VB中，以下哪个选项是正确的循环结构？A. For EachB. For AllC. Do WhileD. All of the above答案：D7. VB中，以下哪个函数用于将字符串转换为整数？A. StrB. ValC. CIntD. CStr答案：C8. VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Property答案：B9. VB中，以下哪个选项是正确的条件语句？A. If...Then...ElseB. Case...SelectC. For...NextD. While...Wend答案：A10. VB中，以下哪个选项是正确的事件处理程序？A. On ClickB. On LoadC. On ChangeD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以定义一个常量。
答案：Const2. VB中，________关键字用于定义一个函数。
答案：Function3. 在VB中，________关键字用于定义一个子程序。
河南对口升学高职高专VB6.0考试试卷3
永城市职教中心2013学年第二学期期中二年级计算机专业VB6.0试卷(满分100分)班级姓名考号分数一．选择题（每题2分，25题，共50分）1. ( )不是键盘事件。
A．MouseUP B．KeyDownC．KeyUp D．KeyPress2. 若图形的填充效果为水平线，则Shape 控件的FillStyle属性值应设置为( )A．0 B．1C．2 D．33. “开始播放动画”是通过ShockWaveFlash控件的方法实现的。
A．Rewind B．StopC．Back D．Play4. 在模块级别声明对DLL动态链接库的外部过程的引用，应使用语句。
A．Call B．Dim C．ReDim D．Declare5.当运行程序时，系统自动执行启动窗体的某个事件过程。
这个事件过程是( )A.LoadB.ClickC.UnloadD.GotFocus6.在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是( )A.一个空格加一个下划线"_"B.一个下划线"_"C.一个造字符"-"D.一个空格加一个连字符"-"7.大部分控件都没有的属性是( )A、TopB、NameC、VisibleD、Interval8.无论何控件，都具有一个共同属性。
这个属性是( )A.TextB.FontD.CaptionmonDialog控件可以显示（）种对话框。
A、4种B、5种C、6种D、7种10.为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False ( ) A.Visible B.Timer C.Enabled D.Interval11.下各项，可以作为Visual Basic变量名的是( )A.BookB.2_SeekC.123.58D.Book-112.下面( )不是VB的数据类型。
A、SingleB、ObjectC、CurrencyD、Bool13.达式（3/2+1）*（5/2+2）的值是( )A.11.25B.3C.6.125D.414.下面的Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是( )Pivate Sub Text1_Change()Text2.Text=Str(6.28 * Val(Text1.Text))End SubA. 将在文本框Text1输入的数字变为数值B.将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串C.只要Text1中的内容一改变，Text2中显示的圆周长也随之改变D.事件过程中的Val函数和Str函数使用错误，事件过程不能执行15.组合框的Style属性设置为何值时，组合框称为下拉式列表框( )A.0B.1C.2D.316．用Dim a(2，3) As Integer声明的数组元素的个数是（）A．2 B．5 C．6 D．1217.设a=6，则执行 x=IIF(a>5,-1,0) 后，x的值为（）A、5B、6C、0D、-118.将一个窗体设置为MDI子窗体的方法是（）A、将窗体的名称改为MDIB、将窗体的MDIChild属性设为TrueC、将窗体的MDIChild属性设为FalseD、将窗体的Enabled属性设为False19.下列（）语句可以为动态数组分配实际元素个数。
最新中职计算机专业VB期末考试卷
高中部期末考试 《VB 》试题一、 1、 VB 模块分为__________、____________、____________3种类型。
2、 代码窗口分为左右两栏，左边一栏称为________，右边一栏称为____________。
3、 在VB 中，从________菜单中，选择____________命令可以运行程序。
4、 在保存VB 应用应用程序时，窗体文件扩展名为____________，工程文件扩展名为____________。
5、 VB 中有____________、____________、____________三种工作模式。
6、 如果在集成开发环境中，按下____________键，或在“________”菜单中，选择“属性窗口”命令，可打开属性窗口。
7、 窗体模块的扩展名为____________；标准模块的扩展名为____________；类模块的扩展名为________________。
8、 在for 循环中提前结束循环的语句是_____________________________。
9、 工程文件的扩展名是_____________；cls 为________________的扩展名。
二、 选择题。
（每小题2分，共30分） 1、 执行下面的程序后，X 的值为：________。
X=5For i=1 to 20 step 2 x=x+i\5 next iA 、21B 、22C 、23D 、242、函数inputbox(prompt,title ,default ,xpos ,ypos,helpfile,context)，________参数是必选的。
A 、prompt B 、title C 、default D 、context3、如果A 、B 、C 的值分别为3、2、-3，则表达式，ABS （A-B*C ）+B*int(RND)的值是________。
A 、8 B 、9 C 、10 D 、114、下列语句书写规则中，____________是错误的。
vb中职试题及答案
vb中职试题及答案一、选择题（每题2分，共20分）1. VB中，下列哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D2. 在VB中，下列哪个选项不是基本数据类型？A. BooleanB. DateC. ObjectD. String答案：C3. VB中，用于声明变量的关键字是？A. DimB. DeclareC. DefineD. Set答案：A4. 在VB中，下列哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D5. VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. If...ElseD. All of the above答案：D6. 在VB中，下列哪个选项用于输出信息到Immediate窗口？A. Debug.PrintB. PrintC. MessageBox.ShowD. Console.WriteLine答案：A7. VB中，下列哪个选项用于创建数组？A. Dim myArray() As IntegerB. Dim myArray As IntegerC. Dim myArray As StringD. Dim myArray As Array答案：A8. 在VB中，下列哪个选项是正确的函数定义？A. Function myFunction() As IntegerB. Sub myFunction() As IntegerC. Function myFunction() As StringD. Sub myFunction() As String答案：A9. VB中，下列哪个选项是正确的事件处理程序？A. Private Sub Form1_Click()B. Public Sub Form1_Click()C. Private Function Form1_Click()D. Public Function Form1_Click()答案：A10. 在VB中，下列哪个选项是正确的文件打开模式？A. OpenMode.InputB. OpenMode.OutputC. OpenMode.AppendD. All of the above答案：D二、填空题（每题2分，共20分）1. VB中，声明一个整型变量的正确语法是Dim ________ As Integer。
5江苏中职春学期期末试卷VB试卷
2016年盐城市职业学校教学质量检测《Visual Basic语言》样卷一、选择题（第1题至第20题，每题1分；第21题至第40题，每题2分；总分60分）第1题如果要改变窗体的背景颜色，需要设置窗体对象的______属性。
(A)Name (B)Caption (C)BackColor (D)BorderStyle第2题通过改变单选按钮（OptionButton）控件的______属性值，可以改变单选按钮上的文字。
(A)Value (B)Style (C)Appearance (D)Caption第3题 InputBox函数返回值的类型为______。
(A)数值(B)字符串(C)变体(D)数值或字符串（视输入的数据而定）第4题表达式4+5\6*7/8 Mod 9的值是______。
(A)4 (B)5 (C)6 (D)7第5题执行以下程序段后，变量c$的值为______。
a$="Visual Basic Programming"b$="Quick"c$=b$ & UCase(Mid$(a$,7,6)) & Right$(a$,12)(A)Visual Basic Programming (B)Quick Basic Programming(C)QUICK Basic Programming (D)Quick BASIC Programming第6题为了把焦点移到某个指定的控件，所使用的方法是______。
(A)SetFocus (B)Visible (C)Refresh (D)GetFocus第7题设a=6，则执行 x=IIF(a>5,-1,0)后，x的值为______。
(A)5 (B)6 (C)0 (D)-1第8题要利用通用对话框控件来显示“打开文件”对话框，需要调用控件的______方法。
(A)ShowPrinter (B)ShowOpen (C)ShowSave (D)ShowColor第9题在程序运行期间，如果拖动滚动条上的滚动框，则触发的滚动条事件是______。
高一下中职VB月考试卷
长兴职教中心2013学年第二学期中职教程第一次月考试卷班级：姓名：得分：出卷人：第一部分：中职教程分值150分一、单项选择题（每题2分，共50分）1．飞机设计、船舶设计、建筑设计等属于计算机的__________应用。
()A．数据处理B．辅助系统C．人工智能D．过程控制2．下列不同进制的四个数中，最小的一个数是()。
A．101101B B．41D C．2FH D．46Q3．下列叙述中，正确的一条是()。
A．CPU可以直接处理外存储器中的数据B．计算机内部采用国标码来处理汉字C．寄存器是CPU内部的临时存储单元，可以存储数据、中间结果、地址和状态信息D．计算机中所有的运算都是在Cache中完成的4．通过“控制面板”的_____功能，Windows XP允许用户根据需要设置数字和货币格式。
()A．“添加/删除程序”B．“区域和语言选项” C．“日期和时间” D．“显示”5．若要显示计算机中所有的文件，包括隐藏文件，应选择“工具”菜单中的__________选项。
()A．“同步”B．“详细信息”C．“显示隐藏文件”D．“文件夹选项”6．动态随机存储器(DRAM)和静态随机存储器(SRAM)相比，其特点是()。
A．容量大B．速度快C．需要定时刷新D．价格低7、通常用于计算的计算机是。
()A．数字计算机 B．模拟计算机 C．混合计算机 D．特殊计算机8、世界上第一台电子计算机的电子逻辑元件是。
()A．继电器 B．晶体管 C．电子管 D．集成电路9、软盘驱动器是一种。
()A．主存储器 B．数据通信设备 C．辅助存储器 D．CPU的一部分10、下列键需与其他键组合使用时才能完成一定功能。
()A．Delete B．Backspace C．Ctrl D．Enter11、下列数据中，最大。
()A．10010110（二进制数） B．136（八进制数）C．82（十进制数） D．1FB（十六进制数）12、能直接让计算机识别的语言是。
中职vb期末考试题
范县职教中心2011-2012年度第一学期期末考试Visual Basic测试卷出题人：赵占书姓名：班级：分数：一、填空（每空1分，共11）1、VB模块分为、、3种类型。
2、在VB中，字符串常量要用括起来，日期/时间型常量要用括起来。
3、在VB中，变量名的命名规则是：变量名必须是开头，长度不能超过个字符。
变量名中不能包含，同一范围内必须是唯一的。
4、程序执行过程中，其值变化的量知称为，在程序执行期间数值始终不变的量称为。
5、函数返回数组某一维的下标下界值。
二、选择题（每题1.5分，共30分）（）1、在VB应用程序中，窗体、标签、和命令按钮都可以称为：A、对象B、事件C、方法D、属性（）2、下列不能打开代码窗口的操作是：A、双击窗体上的某个控件B、单击窗体或控件C、按“F7”键D、双击窗体（）3、通过设置窗体的（）属性可以更改窗体的标题文字。
A、Headline B. caption C. appearance D. Title（）4、在一个语句行内写多条语句时，每个语句之间应该使用的分隔符是A、逗号B、分号C、顿号D、冒号（）5、下列各运算中，级别最高的是A、关系运算B、算术运算C、布尔运算D、级别相同（）6、字符串表达式“xyz”＆“123”＆“abc”运算结果是A、“xyz“B、“123 “C、“abc“D、“xyz123abc“（）7、对象的特性是指A、对象B、事件C、方法D、属性（）8、在VB中，有一个专门的字符串连接运算符是：A、*B、 #C、＆D、““（）9、Dim XM As string 这句变量声名中，变量名为：A、DimB、 XMC、 AsD、 string（）10、日期型常量要用（）符号括起来。
A、“”B、冒号C、#D、*（）11、（）数据有两个值：True ,false。
A、布尔型B、字符型C、数值型D、日期型（）12．符合Visual Basic 6.0规范的变量名是A．a3 B．3a C．If D．a+b（）13．符合Visual Basic 6.0规范的表达式是A．(a+b)(a-b) B．a2-b2 C．a^2-b^2 D．[a+b]*[a-b]（）14．表达式14 Mod 3的值是A．2 B．-2 C． 1 D．-1（）15．设a=”abcdefghij”，则表达式left（a,3）+Mid（a,3,3）的值是A ．”abc”B．”hij”C．”abccde”D．”hijcde”（）16、关于常量，描述错误的是A．在程序执行期间数值始终不变的量称为常量B．常量分为一般常量和符号常量两种C．数值常量包括整数、定点数和浮点数D．系统内部定义的符号常量在程序设计中不能直接使用（）17、在一般情况下每执行一次print语句都会自动换行，若想在一行上显示，则可以在print语句的末尾加上A、分号或逗号B、分号或句号C、冒号或分号D、冒号或逗号（）18、关于数组的清除描述错误的是A．Erase能够清除定长数组的内容B．Erase能够释放定长数组的所有空间C．Erase用于定长数值数组时，则把该数组所有元素置为0D．Erase用于动态数组时，将删除整个数组结构并释放该数组所占的内存（）19、用min表示a和b中的最小值，不能实现该功能的程序段是A．If a<b Then min=a Else min=b B．If a<b Thenmin=aElsemin=bEnd ifC．min=IIf(a<b,b,a) D．min=IIf(a<b,a,b)（）20、用Dim a(2，3) As Integer声明的数组元素的个数是A．2 B．5 C．6 D．12三、判断题（每题1分，共9分）1、用户定义的符号常量可以用Const语句来声明。
中专计算机专业VB期末试题
高中部期末考试一、 填空：20分1、 VB 模块分为______________、______________、______________3种类型。
2、 代码窗口分为左右两栏，左边一栏称为______________，右边一栏称为______________。
3、 在VB 中，从___________菜单中，选择___________命令可以运行程序。
4、 在保存VB 应用应用程序时，窗体文件扩展名为__________，工程文件扩展名为__________。
5、 VB 中有______________、______________、______________三种工作模式。
6、 如果在集成开发环境中，按下______________键，或在“______________”菜单中，选择“属性窗口”命令，可打开属性窗口。
7、 窗体模块的扩展名为______________；标准模块的扩展名为______________；类模块的扩展名为______________。
8、 在VB 集成开发环境中，F4键的作用是______________；F5键的作用是______________；F7键的作用是______________。
二、 选择题：1、 在VB 应用程序中，窗体、标签和命令按钮都可以称为————。
A 、 对象 B 、事件 C 、方法 D 、属性2、 对象的特性是指——————。
A 、对象B 、事件C 、方法D 、属性3、下列不能打开代码窗口的操作是————。
A 、双击窗体上某个控件B 、双击窗体C 、按“F7”键D 、单击窗体或控件 4、通过设置窗体的————属性可以更改窗体的标题文字。
A 、headline B 、Caption C 、Appearance D 、title 5、下列激活属性窗口的操作为——————。
A 、双击窗体 B 、单击窗体 C 、F4 D 、“工程”菜单中的“属性窗口”命令 6、在界面设计时，双击窗体，将出现的窗口是————。
vb中专考试题及答案
vb中专考试题及答案一、选择题（每题2分，共10分）1. VB中，以下哪个关键字用于声明变量？A. DimB. LetC. SetD. Const答案：A2. VB中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrCompD. StrConv答案：A3. VB中，以下哪个属性用于获取或设置一个控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor答案：A4. VB中，以下哪个事件用于响应表单加载？A. ClickB. LoadC. DblClickD. Unload答案：B5. VB中，以下哪个运算符用于比较两个字符串是否相同？A. =B. <>C. LikeD. Is答案：B二、填空题（每题2分，共10分）1. VB中，使用________关键字可以声明一个数组。
答案：Dim2. VB中，________函数用于计算字符串的长度。
答案：Len3. VB中，________属性用于获取或设置一个控件的背景颜色。
答案：BackColor4. VB中，使用________事件可以响应文本框内容的更改。
答案：Change5. VB中，________函数用于将一个数值转换为字符串。
答案：Str三、简答题（每题5分，共10分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，在这种范式中，程序的执行流程由外部事件（如用户操作、消息等）触发，而不是按照预先定义的顺序执行代码。
2. 在VB中，如何使用循环结构来遍历一个数组？答案：可以使用For循环或For Each循环来遍历数组。
例如，使用For循环遍历数组的语法为：```Dim arr(3) As IntegerFor i = LBound(arr) To UBound(arr)' 访问数组元素 arr(i)Next i```四、编程题（每题5分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有奇数的和。
最新中职计算机VB考试试题计算机络技术)
VB考试试题1、VB的启动有多种方法，下面不能启动VB的是（）A．使用“开始”菜单中的“程序”命令B．使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件的名字C．使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹D．先打开VB的“文件”菜单，再按Zlt+Q组合键2、VB的工程资源管理器可管理多种类型的文件，下面叙述不正确的是（）A．窗体文件的扩展名为.frm，每个窗体对应一个窗体文件B．标准模块是一个纯代码性质的文件，它不属于任何一个窗体C．用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.bas D．资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑3、下列可以打开文件对话框的操作是（）A．Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G4、下面对哪一种变量的类型说明符的使用是正确的（）A．Dim a:a@=2000 B、Dim a:a%=50000C．Dim a:a&=True D、Dim a:a$=”OK”5、下列变量名中，合法的变量名是（）A．C24 B、A B C、A：B D、1+26、用于获得字符串S从第2个字符开始的3个字符的函数是（）A．Mid$(S,2,3) B、Middle(S,2,3) C、Right$(S,2,3) D、Left$(S,2,3) 7、计算结果为0的表达式是（）A．Int(2.4)+Int(-2.8) B、Cint(2.4)+Cint(-2.8) C．Fix(2.4)+Int(-2.8) D、Fix(2.4)+Fix(-2.8)8、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click( )A=1234B$=Str$(A)C=Len(B$)Print CEnd Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（）A．0 B．5 C．6 D．79、定义变量如下：Dim My VarMy Var =”come see me “若在立即窗口中显示My Var的值，下面正确的是（）A．Debug.Print My Var B、PictureBox.Print My Var C．Printer.Print My VarD、Print My Var10、在以下Form1窗体中没有采用的控件是（）A．文本框 B．水平滚动条 C．框架 D．选项按钮11、滚动条控件的LargeChange属性所设置的是（）A．单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量B．滚动条中滚动块的最大移动位置C．滚动条中滚动块的最大移动范围D．滚动条控件无该属性12、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（）A．Caption B．Name C．Text D．Value13、在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序：Private Sub Command1_Click( )a=Text1.textb=Text2.textC=Lcase(a)D=Ucase(b)PrintC;DEnd Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是（）A．abcEFG B．abcefg C．ABCefg D．ABCEFG14．假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（）A．Label1.BackStyle=0 B．Label1.BackStyle=1 Label1.BorderStyle=0 Label1.BorderStyle=1C．Label1.BackStyle=True D．Label1.BackStyle=False Label1.BorderStyle=True Label1.BorderStyle=False15．选中一个窗体，启动菜单编辑器的方法有（）A．单击工具栏中的“菜单编辑器”命令B．执行“工具”菜单中的“菜单编辑器”命令C．按Ctrl+E D、按Shift+Alt+M16、VB提供（）属性用于控制对象是否可用。
中职VB语音程序设计基础VB概述测试题及答案
第一章Visual Basic 概述一、选择题1.在 Visual Basic 的应用程序中,窗体文件的扩展名是( ) 。
A..frmB..vbgC..vbpD..bas2.Visual Basic6.0 共有三个版本,它们分别是( ) 。
A.学习版、标准版和企业版B.学习版、专业版和企业版C.学习版、标准版和专业版D.标准版、专业版和中文版3.以下方法中不能退出 Visual Basic 的是( ) 。
A.按Alt+Q 组合键B.按下Alt+F 组合键,然后按Esc 键C.翻开“文件”菜单,执行“退出”命令D.点关闭按钮4.通过( ) 窗口,可以显示或转变窗体在屏幕中的位置。
A.属性B.窗体布局C.监视D.数据视图5.Visual Basic 把开发一个应用程序视为一项工程,用创立工程的方法来创立一个应用程并且利用 ( ) 窗口来治理工程。
A.工程资源治理器B.属性C.窗体D.窗体布局6.Visual Basic 程序中的注释所使用的字符是( ) 。
A.’B.：C./D.-7.以下( ) 不是“工程资源治理器”中的按钮。
A.“查看代码”B.“添加工程”C.“查看对象”D.“切换文件夹8.以下表达中错误的选项是( ) 。
A.在工程资源治理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以BAS 为扩展名的文件是标准模块文件C.窗体文件包含窗体及控件的属性D.一个工程中可以含有多个标准模块文件9.关于 E Visual Basic 中程序运行的方式,以下说法正确的选项是( ) 。
A.只能使用解释运行模式B.能使用译运行模式C.既不能使用解释运行模式、也不能使用编译运行模式D.既能使用解释运行模式、又能使用编译运行模式行模10.以下不能翻开属性窗口的操作是( ) 。
A.执行“视图”菜单中的“属性窗口”命令B.按F4 键C.按Ctrl+TD.单击工具栏上的“属性窗口”按钮11.V isual Basic 是一种面对对象的字设计语言构象的三要素是( ) 。
中职VB语言程序设计程序填空题综合练习(二)
VB语言程序设计综合练习：程序填空题程序填空题1. 题目：文本框txtin输入一个十进制整数将其转化为二进制数。
程序运行界面如下图所示。
单击“转换”按钮，标签lblre中输出二进制数。
Private Sub Command1_Click()Dim n As Longlblre.Caption = ""n = Val(txtin.Text)DO While n <> 0r =lblre.Caption = r & lblre.CaptionLOOPEnd Sub2. 题目：单击“打印”按钮command1在图片框picture1中输出如图下所示的图形。
（涉及的循环要求用for循环）Private Sub command1_Click()For i = 1 To 5picture1.Print Tab(10 + i); "$";For j =picture1.Print "*";Next jpicture1.Print "$";picture1.PrintNext iTab(10 + i); "*";End Sub3. 题目：单击form1窗体：重新定义坐标系为（-10，300）-（300，-10）；在窗体上按公式：y=x2÷255，其中x=0~255。
用Pset方法绘制如图所示图形，其中线宽为3。
（要求for循环实现）Private Sub Form_Click()Scale (-10, 300)-(300, -10)DrawWidth = 3Line (-10, 0)-(300, 0): Line (0, 300)-(0, -10)For x =y =PSet (x, y)Next xEnd Sub4．题目：判断文本框text1中输入的字符是否全是字母,并在标签label1中显示判断结果：“全是字母”或“不全是字母”。
中职VB语言程序设计程序填空题综合练习(六)
VB语言程序设计综合练习：程序填空题41.题目：程序功能：求1+2+3……，直到其和超出3000为止，并输入结果。
'------------------------------------------------ Option ExplicitPrivate Sub Form_Click()ClsDim i As IntegerDim s As Singlei = 1Dos = s + iLoopPrint "从1 到:"; i; "的和是"; sEnd Sub42.题目：以下程序段用于输出100-300的所有素数'------------------------------------------------ Option ExplicitDim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2k = Int(Sqr(n))i = 2If n Mod i = 0 Thenswit = 1ElseEnd IfWendIf swit = 0 ThenPrint n;End IfNext nEnd Sub43.题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。
'------------------------------------------------Option ExplicitDim Temp As IntegerDim I As IntegerDim N As IntegerDim X(10) As IntegerDim J As IntegerN = 10Print "数据："For I = 1 To NPrint X(I);Next IPrintPrint "排序："For I = 0 To N - 1For J = I + 1 To NX(J) = X(I) X(I) = Temp End IfNext JPrint X(I);Next IPrintEnd SubPrivate Sub Command1_Click()CreateRNDEnd Sub44.题目:输入两个正整数m和n，求其最大公约数。
中专VB试题
VB考试练习题(附正确答案)一,单项选择题(1-251题)1.以下4种描述中,错误的是__ D __.A. 常量在程序执行期间其值不会发生改变B. 根据数据类型不同,常量可分为字符型常量,数值常量,日期/时间型常量和布尔型常量C. 符号常量是用一个标识符来代表一个常数,好象是为常数取一个名字,但仍保持常数的性质D. 符号常量的使用和变量的使用没有差别2.下面合法的常量是___ D ____.A. 1/2B. 'abcd'C. 1.2*5D. False3.Visual Basic中可以用类型说明符来标识变量的类型,其中表示货币型的是___ C ____.A. %B. #C. @D. $4.下面___ B____是不合法的整常数.A.100B.%O100C.&H100D.&O1005.以下关键字中,不能定义变量的是___A____.A. DeclareB. DimC. PublicD. Private6.表达式16/4-2^5*8/4 MOD 5\2的值为___B____.A. 14B. 4C. 20D. 27.用十六进制表示Visual Basic的整型常数时,前面要加上的符号是___A____.A. &HB. &OC. HD. O8.Visual Basic日期型常量的定界符是__A_____.A. ##B.''C. ()D. {}9.数学关系式3≤x<10表示成正确的VB表达式为___B____.A. 3<=x<=x AND x=3 OR x<=x AND10.下面正确的赋值语句是___C____.A. x+y=30B. pi*r*r=yC. y=x+30D. x=3y11. \,/,Mod,*四个算术运算符中,优先级别最低的是___C____.A. \B. /C. ModD. *12.表达式ASC("F")的类型是__C_____.A. 字符表达式B. 关系表达式C. 算术表达式D. 逻辑表达式13.下面语句中有非法调用的是___C____.A. x=Sgn(-1)B. x=Fix(-1)C. x=Sqr(-1)D. x$=Chr$(65)14.表达式23/5.8,23\5.8,23 Mod 5.8的运算结果分别是___B____.A. 3,3.9655,3B. 3.9655,3,5C. 4,4,5D. 3.9655,4,315.如果变量 a=2,b="abc",c="acd",d=5,则表达式 ac AND bc 的值为___A____.A. TrueB. FalseC. YesD. No16.下面不正确的赋值语句是___B____.A. x=30-yB. y=r.rC. y=x+30D. y=x\317.为了给x,y,z三个变量赋初值1,下面正确的赋值语句是___A____.A. x=1:y=1:z=1B. x=1,y=1,z=1C. x=y=z=1D. xyz=118.以下4类运算符,优先级最低的是___D____.A. 算术运算符B. 字符运算符C. 关系运算符D. 逻辑运算符19.如果在立即窗口中依次执行下列命令:a=8b=9Print a>b则输出的结果是____C___.A. 1B. 0C. FalseD. True20.已知a="12345678",则表达式Left(a, 4) + Mid(a, 4, 2)的值是___B____.A. 123456B. "123445"C. 123445D. 127921.在Visual Basic中,y1+z2=a*Sin(b*x+c)+k表达式的类型是___B____.A. 算术表达式B. 关系表达式C. 逻辑表达式D. 字符表达式22.下列表达式的值为真的是___C____.A. "A">"a"B. "9">"a"C. "That">"Thank"D. 12>12.123.在下列算术运算符中,运算等级最高的是___A____.A. 取负(-)B. 乘,除(*,/)C. 取模(MOD)D. 加,减(+,-)24.如果变量a=2,b=3,c=4,d=5,表达式NOT a>b AND NOT dc的值是___B____.A. TrueB. FalseC. 1D. 025.在一个有(1)逻辑运算,(2)算术运算,(3)关系运算混合在一起的表达式(无括号)中,其运算顺序为____C___.A. (1)(2)(3)B. (3)(2)(1)C. (2)(3)(1)D. (2)(1)(3)26.表达式A%+B&+C!-D#的结果为____D___.A. 整型B. 长整型C. 单精度型D. 双精度型27.下列符号中,可以用作VB变量名的是___C____.A. c%abB. 3sumC. sum3D. Len28.在下列表达式中,正确的日期型常量是___D____.A. "12/04/01"B. 12-04-2001C. {12/04/01}D. #12/04/01#29.条件:1<X<=2或10<=X1 AND X=10 AND X1 OR X=10 OR X1 OR X=10 OR X1 AND X=10 AND X=10 or x"b" And 93的值为___ A ____.A. TrueB. FalseC. 表达式有错D. 条件不足39.在窗体模块的声明段中声明变量时,不能使用的关键字是___ D ____.A. PrivateB. PublicC. DimD. Static40.选拔身高T超过1.7米且体重W小于62.5公斤的人,表示该条件的表达式为___ C ____.A. T=62.5B. T>1.7 Or W1.7 And W41.在过程内部定义的局部变量,仅在声明它的___ B ____中有效.A. 方法B. 过程C. 属性D. 对象42.假设A="Good Morning.",B="Afternoon,Boys.",下列表达式中结果是"Good Boys."的是_ A__.A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5)C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5)43.下列关于变体类型的描述,其中正确的是___ C ____.A. 变体是一种没有类型的数据B. 变体的空值就表示该变体的值为0C. 一个变量没有定义就赋值,该变量即为变体类型D. 变体是赋给变量某一种类型数据后,就不能再赋给它另一类型的数值44.下列程序段的运行结果为____B___.For i=3 To 1 Step -1Print Space(5-i);For j=1 To 2*i-1Print "*";Next jPrintNext iA. *B. *****C. *****D. ******** *** *** ******** * * *45.执行 PRINT 18/2*3,-3^2 命令后,输出结果为___C___.A. 3 9B. 3 -9C. 27 -9D. -9 2746.执行 PRINT 9.4\3.7,9.4 MOD 3.7 命令后,输出结果为___ A ____.A. 2 1B. 3 0C. 2 20D. 1 247.运行以下程序段后,输出结果为___ C ____.x%=1/4y%=11/4PRINT x%;y%A. 0.25 0.75B. 0 2C. 0 3D. 1 348.窗体里有两个对象,分别是图片框Picture1和标签Label1,下面关于Print方法的使用中,错误的一条是___ D ____.A. Picture1.Print 147B. Print 147C. Printer.Print 147D. Label1.Print14749.下面的___ B ____语句可以实现:先在窗体上输出大写字母A,然后在同一行的第10列输出小写字母b.A. Print "A";Tab(9);"b"B. Print "A";Tab(10);"b"C. Print "A";Space(10);"b"D. Print "A";Tab(8);"b"50.阅读下面的程序段:n1=InputBox("请输入第一个数:")n2=InputBox("请输入第二个数:")Print n1+n2当输入分别为111和222时,程序输出为___ A ____.A. 111222B. 222C. 333D. 程序出错51.语句Print Format("HELLO", "<")的输出结果是____ B ___.A. HELLOB. helloC. HeD. he52.设a=2:b=0,则语句 Print (a=2) And (b=-2) 的输出结果是___ D ____.A. TrueB. 结果不确定C. -1D. False53.以下程序段运行后,输出字符的排列顺序是___ D ____.For i=1 To 6If i Mod 2=0 ThenPrint "#";ElsePrint "*";End IfNext iA. #*#*#B. #####C. *****D. *#*#*#54.用MsgBox函数显示的对话框,以下叙述正确的是___ D ____.A. 该对话框有一个"确定"按钮B. 该对话框有"是","否"两个按钮C. 该对话框有"是","否","取消"三个按钮D. 该对话框通过选择参数可以得到以上不同的的按钮组合55.与语句Dim abc%作用相同的语句是___ A ____.A. Dim abc As IntegerB. Dim abc As LongC. Dim abc As StringD. Dim abc As Date56.设a=1,b=2,c=3,d=4,则表达式IIf(a5,-1,0)后,x的值为___ D___.A. 5B. 6C. 0D. -171.表达式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范围是___ D____.A. [0,15]B. [-1,15]C. [-4,15]D. [-5,15]72.可以同时删除字符串前导和尾部空格的函数是___C____.A. LtrimB. RtrimC. TrimD. Mid73.当函数MsgBox返回值为1,对应的符号常量是vbOK,那么此时表示用户做的操作是___ A___.A. 用户单击了对话框中的"确定"按钮B. 用户单击了对话框中的"取消"按钮C. 用户单击了对话框中的"是"按钮D. 用户单击了对话框中的"否"按钮74.函数Int(Rnd*5)+1产生的随机整数的范围是___D____.A. [0,6]B. [1,6]C. [0,5]D. [1,5]75.在VB中,InputBox函数的默认返回值类型为字符串,用InputBox函数输入数值型数据时,下列操作中可以有效防止程序出错的操作是___A____.A. 在函数InputBox前面使用Val函数进行类型转换B. 在函数InputBox前面使用Str函数进行类型转换C. 在函数InputBox前面使用Value函数进行类型转换D. 在函数InputBox前面使用String函数进行类型转换76.已知a="12345678",则表达式Right(a, 4) + Mid(a, 3, 2)的值是___B____.A. "123445"B. "567834"C. 123445D. 56783477.表达式Len("123程序设计ABC")的值是___A____.A. 10B. 14C. 20D. 1778.赋值语句g = 123 + Mid("123456", 3, 2)执行后,变量g中的值是___D____.A. "12334"B. 123C. 12334D. 15779.如果x是一个正实数,对x的第3位小数四舍五入的表达式是___B____.A. 0.01 * Int(x + 0.005)B. 0.01 * Int(100 * (x + 0.005))C. 0.01 * Int(100 * (x + 0.05))D. 0.01 * Int(x + 0.05)80.以下程序执行后,输出的结果是___A____.m$="123"n$="456"k$=LCASE$(m$)j$=UCASE$(n$)Print k$ , j$A. 123 456B. !@#$%^C. 49 52D. 33 3681.MsgBox函数的返回值的类型是___A____.A. 整型B. 字符串C. 逻辑值D. 日期型82.A=5,B=8,则(B-A)*Rnd+A的结果是介于___A____之间的数.A. 5～8B. 0～5C. 3～5D. 0～383.使用下列语句:Dim x(1 to 10,3) As Single,则数组占用内存空间的字节数是___C____.A. 132B. 80C. 160D. 12084.用Select Case语句选择|x|10 D. Is 1085.若x=1,执行语句If x Then x = 0 Else x = 1的结果是__D_____.A. 实时错误B. 编译错误C. x=1D. x=086.以下程序代码能执行的是___C____.A. If a=1 Then b=0 Else c=0 End IfB. If a=1 Then : B=0: ElseIf C=0 Then : D=0C. If a = 1 Thenb = 0ElseIf c = 0 Thend = 0End IfD. If a = 1 Thenb = 0Else If c = 0d = 0End If87.下列程序段的循环结构执行后,i的输出值是___C____.Dim y as IntegerFor i = 1 To 10 Step 2y = y + iNext iPrint iA. 25B. 10C. 11D. 因为y初值不知道,所以不确定88.循环结构 For i = 1 To 10 Step 1.5 的执行次数是___A____.A. 7B. 8C. 9D. 1089.下列结构中不属于循环结构的是___C____.A. For/NextB. While/WendC. With/End WithD. Do/Loop90.下列结构中不属于分支结构的是___ C____.A. If/End IfB. Select Case/End SelectC. With/End WithD. If/Else/EndIf91.以下程序段的运行结果是___ D____.Private Sub Form_Click()m = 1n = 1Dom = m * nn = n + 1Loop Until n > 4Print mEnd SubA. 25B. 45C. 55D. 2492.以下程序段的运行结果是___A____.Private Sub Form_Click()Dim s As Long, f As LongDim n As Integer, i As Integerf = 1n = 4For i = 1 To nf = f * is = s + fNext iPrint "s="; sEnd SubA. 33B. 34C. 35D. 3693.以下程序段的运行结果是___B____.Private Sub Form_Click()Dim I As Integer, X As String, Y As String X = "ABCDEFG"For I = 4 To 1 Step -1Y = Y + Mid(X, I, 1)Next IPrint YEnd SubA. ABCDB. DCBAC. DEFGD. GFED94.以下程序段的运行结果是__C__.Private Sub Form_Click()Dim b As Integer, k As Integerb = 1For k = 1 To 5b = b * kIf b >= 15 ThenExit ForEnd IfNext kPrint k, bEnd SubA. 3 15B. 2 12C. 4 24D. 5 1595.以下程序段的运行结果是___ A____. Private Sub Form_Click()a = 1Do Until a >= 5X = a * bPrint Str(a) & "*" & Str(b) & "="; Str(X),a = a + bb = b + aLoopEnd SubA. 1*1=1 2*3=6B. 1*1=2 2*2=4C. 1*1=1 3*3=9D. 1*1=2 3*2=696.以下程序段的运行结果是___B____.Private Sub Form_Click()x = "abcdef"y = Asc("b") - Asc("a")z = Len(x)Print y,zEnd SubA. 1 2B. 1 6C. 2 2D. 2 697.下面程序段运行后,显示的结果是___A____.Dim xIf x Then Print x Else Print x+1A. 1B. 0C. -1D. 显示出错信息98.运行下列程序段,显示的结果是___A____.x=Int(Rnd)+5Select Case xCase 5Print "优秀"Case 4Print "良好"Case 3Print "通过"Case ElsePrint "不通过"End SelectA. 优秀B. 良好C. 通过D. 不通过99.下列If语句统计满足性别为男,职称为副教授以上,年龄小于40岁条件的人数,不正确的语句是___D___.A. If sex=〃男〃And age0 Then n=n+1B. If sex=〃男〃And ageC. If sex=〃男〃And ageD. If sex=〃男〃And agey,x,y)B. If x>y Then Max=x Else Max=yC. Max=xIf y>=x Then Max=yD. If y>=x Then Max=y101.以下正确的程序段是___ B___.A. For x=1 To Step 10B. For x=3 To -3 Step -3… …Next x Next xC. For x=1 To 10D. For x=10 To 1re: … …Next x Next yIf i=10 Then GoTo re102.下列循环能正常结束的是___C____.A. i=5B. i=1DO DOi=i+1 i=i+2Loop Until i10 Loop Until i=1103.若要退出For循环,可使用的语句为____D___.A. ExitB. Exit DoC. TimeD. Exit For104.当a=1,b=3,c=5,d=4时,执行下面一段程序后,x的值为___B___. If aIf cx=1Elsex=2End IfElseIf c0y=x+1Case Is=0y=x+2Case Elsey=x+3End SelectPrint x;yA. -5 -2B. -5 -4C. -5 -3D. -5 -5106.下面程序段的作用是___D____.m=0:n=0For i=1 To 10x= Val(InputBox("请输入x的值:"))If x>0 Thenm=m+xElseIf x="副教授" AND A$="女" THEN N=N+1D. IF A$="女" AND (B$="副教授" OR B$="教授") THEN N=N+1 110.以下程序段执行后,变量s,x的值分别为___ C____.Dim s As Integer, x As Integers = 10: x = 1Do While x c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后,单击命令按钮,输出结果是___C____.A. 89B. 99C. 23D. 77129.以下程序段的运行结果是__D__.Private Sub Form_Click()Dim ary(1 To 4) As IntegerDim i As IntegerDim sum As Integersum = 1For i = 1 To 4ary(i) = isum = sum + ary(i)Next iPrint sumEnd SubA. 8B. 9C. 10D. 11130.下列语句声明的数组a包含的元素个数有___A____.Dim a(3 ,-2 to 2,5)A. 120B. 75C. 60D. 13131.以下程序输出的结果是___C____.Option Base 1Private Sub Command1_Click()Dim a%(3,3)For i=1 To 3For j=1 To 3a(i,j)=i*jPrint a(i,j);〃〃;Next jPrintNext iEnd SubA.1 2 3B.1 2 3C.1 2 3D.1 1 12 3 1 1 2 3 2 4 6 2 2 23 2 3 1 2 3 3 6 9 3 3 3132.与语句Dim abc%作用相同的语句是___A____.A. Dim abc As IntegerB. Dim abc As LongC. Dim abc As StringD. Dim abc AsDate133.定义数组A(1 to 5,5)后,下列哪一个数组元素不存在___C____.A. A(1,1)B. A(1,5)C. A(0,1)D. A(5,5)134.在Visual Basic应用程序中,以下描述正确的是___B____.A. 过程的定义可以嵌套,但过程的调用不能嵌套B. 过程的定义不可以嵌套,但过程的调用可以嵌套C. 过程的定义和过程的调用均可以嵌套D. 过程的定义和过程的调用均不可以嵌套135.在在窗体上添加一个命令按钮Command1和一个文本框Text1,然后编写如下事件过程: Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + bEnd SubPrivate Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = 5y = 7z = 0Call p1(x, y, z)Text1.Text = Str(z)End Sub程序运行后,单击命令按钮得到的结果是___B____.A. 0B. 12C. Str(z)D. 没有显示136.假定有如下的Sub过程:Sub swapp(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 5:b = 4swapp a, bPrint a, bEnd Sub程序运行时,单击命令按钮得到的结果是___D__.A. 5 4B. 1 1C. 1.25 4D. 1.25 1137.运行下列程序,单击命令按钮后的结果是___C____.Function fun(a As Integer)b = 0Static cb = b + 1c = c + 1fun = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 2For i = 1 To 3Sum = Sum + fun(a)Next iPrint SumEnd SubA. 24B. 12C. 15D. 32138.阅读程序:Sub subp(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8subp aFor i = 1 To 4Print a(i);Next iEnd Sub程序运行时,单击命令按钮得到的结果是___A____.A. 2 4 6 8B. 5 6 7 8C. 10 12 14 16D. 出错139.假定有以下函数过程:Function func(a As Integer, b As Integer) As Integer func = a + bEnd Function在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click()p = func(10,20)Print p;End Sub程序运行时,单击命令按钮得到的结果是___C____.A. 10B. 20C. 30D. 40140.假定有以下两个过程:Sub s1(ByVal x As Integer, ByVal y As Integer)Dim t As Integerx = yy = tEnd SubSub s2(x As Integer, y As Integer)Dim t As Integert = xx = yy = tEnd Sub则以下说法中正确的是___B____.A. 用过程S1可以实现交换两个变量的值的操作,S2不能实现B. 用过程S2可以实现交换两个变量的值的操作,S1不能实现C. 用过程S1和S2都可以实现交换两个变量的值的操作D. 用过程S1和S2都不能实现交换两个变量的值的操作141.假定有以下函数过程:Function Fun(S As String) As StringDim s1 As StringFor i = 1 To Len(S)s1 = UCase(Mid(S, i, 1)) + s1Next iFun = s1End Function在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim str1 As String, str2 As Stringstr1 = InputBox("请输入一个字符串")str2 = Fun(str1)Print str2End Sub程序运行后,单击命令按钮,在输入对话框中输入字符串"abc",则输出结果为___D____. A. abc B. cba C. ABC D. CBA142.在窗体上添加一个命令按钮Command1和两个名称分别为Label1和Label2的标签,在通用声明段声明变量x,并编写如下事件过程和Sub过程:Private x As IntegerPrivate Sub Command1_Click()x = 5: y = 3Call proc(x, y)Label1.Caption = xLabel2.Caption = yEnd SubSub proc(ByVal a As Integer, ByVal b As Integer)x = a * ay = b + b程序运行后,单击命令按钮,则两个标签中显示的内容分别是___B____.A. 5和3B. 25和3C. 25和6D. 5和6143.下列程序输出结果为___A____.Private Sub Command1_Click()For i = 1 To 3GetValue (i)Next iPrint GetValue(i)End SubPrivate Function GetValue(ByVal a As Integer)dim s As Integers = s + aGetValue = sEnd FunctionA. 4B. 5C. 10D. 11144.以下程序的运行结果是___C____.Dim x As Integer, y As Integer, z As IntegerSub s2(a As Integer, ByVal b As Integer)a = 2 * ab = b + 2End SubPrivate Sub Command1_Click()x = 4y = 4Call s2(x, y)Print x + yEnd SubA. 0B. 8C. 12D. 14145.以下程序的运行结果是___A____.Private Sub Command1_Click()Dim a(1 To 4) As IntegerFor i = 1 To 4a(i) = i + 5Print a(i);Next iEnd SubA. 6 7 8 9B. 12 14 16 18C. 2 4 6 8D. 1 2 3 4146.以下程序的运行结果是___C____.Private Sub Form_Click()a = 1:b = 1Print "A="; a; "B="; bCall mult(a, b)Print "A="; a; "B="; bSub mult(x, y)x = 2 * xy = 3 * yEnd SubA. A=1 B=1B. A=1 B=1C. A=1 B=1D. A=1 B=1A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=1147.在窗体上添加一个命令按钮Command1和3个名称分别为Label1,Label2和Label3的标签,然后编写如下事件过程:Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = zEnd Sub程序运行后,连续3次单击命令按钮后,3个标签中显示的内容分别是___C____.A. 10 10 10B. 30 30 30C. 30 30 10D. 10 30 30148.在窗体上添加一个命令按钮和一个文本框,然后编写如下事件过程:Private Sub Command1_Click()Dim arr(5) As VariantFor i = 1 To 5arr(i) = iNext in = 10Text1.Text = n + arr(5)End Sub程序运行时,单击命令按钮,则文本框中显示内容是___B____.A. 10B. 15C. 25D. 24149.以下程序段的运行结果是___C____.Private Sub Form_Click()Dim x As Integerx = 3Call abcd(x)Print xEnd SubPublic Sub abcd(n As Integer)n = n + 5End SubA. 3B. 5C. 8D. 10150.一个工程中包含两个名称分别为Form1和Form2的窗体,一个名称为mdlfunc的标准模块.假定Form1,Form2和mdlfunc中分别建立了自定义过程,其定义格式为:Form1中定义的过程:Private sub frmFunction1()…End SubForm2中定义的过程:Public sub frmFunction2()…End SubMd1func中定义的过程:Public sub md1Function ()…End Sub在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是___D____.A. 上述三个过程都可以在工程中的任何窗体或模块中被调用B. frmFunction2和md1Function过程能够在工程中各个窗体或模块中被调用C. 上述三个过程都只能在各自被定义的模块中调用D. 只有md1Function过程能够被工程中各个窗体或模块调用151.以下程序段的运行结果是___B___.Function abc(n As Integer) As Integerabc = n * 5 + 10End FunctionPrivate Sub Form_Click()Dim x As Integerx = abc(2) + 100 * abc(1)Print xEnd SubA. 2B. 1520C. 1500D. 700152.以下程序段的运行结果是___C___.Private Sub Form_Click()Dim x As Integerx = 4Print x;Call test(x)Print xEnd SubPublic Sub test(i As Integer)i = i + 1End SubA. 4 6B. 4 4C. 4 5D.5 4153.以下程序段的运行结果是___B___.Private Sub Form_Click()Dim x As Integerx = 4Print x;Call test(x)Print xEnd SubPublic Sub test(ByVal i As Integer)i = i + 1End SubA. 4 6B. 4 4C. 4 5D. 5 4154.下面的子过程语句说明合法的是___D____.A. Sub f1(ByVal n%())%B. Sub f1(n%) As IntegerC. Function f1%(f1%)D. Function fl(ByVal n%)155.要想调用子过程后通过参数返回两个结果,下面子过程语句说明合法的是___C___.A. Sub f2(ByVal n%,ByVal m%)B. Sub f1(n%,ByVal m%)C. Sub f1(n%,m%)D. Sub f1(ByVal n%,m%)156.下列程序运行后显示的结果是___A___.Public Sub F1(n%,ByVal m%) Private Sub Command1_Click()n=n Mod 10 Dim x%,y%m=m\10 x=12:y=34End Sub Call F1(x,y)Print x,yEnd SubA. 2 34B. 12 34C. 2 3D. 12 3157.在过程定义中用___C___表示形参的传值.A. VarB. ByRefC. ByValD. Value158.窗体的标题栏显示内容由窗体对象的___D____属性决定.A. BackColorB. BackStyleC. TextD. Caption159.以下关于窗体的描述中,错误的是___A___.A. 执行Unload Form1语句后,窗体Form1消失,但仍在内存中B. 窗体的load事件在加载窗体时发生C. 当窗体的Enabled属性为False时,通过鼠标和键盘对窗体的操作都被禁止D. 窗体的Height,Width属性用于设置窗体的高和宽160.若要取消窗体的最大化功能,则可设置___C___属性为False来实现.A. ControlBoxB. MinButtonC. MaxButtonD. Enabled161.窗体的边框风格由窗体对象的__B___属性来设置.A. BackStyleB. BorderStyleC. WindowStateD. FillStyle162.若要以程序代码方式设置在窗体中显示文本的字体大小,则可用窗体对象的__C__属性来实现.A. FontNameB. FontC. FontSizeD. FontBold163.在代码编辑窗口内将窗体Form1的Caption属性设置为"时钟",正确的书写形式是___B____.A. Form1.Caption"时钟"B. Form1.Caption="时钟"C. Caption=时钟D. Form1.Caption(" 时钟")164.若要设置文本框中文字的显示颜色,则可用___B___属性来实现.A. BackColorB. ForeColor C .FillColor D. BackStyle165.若要使窗体启动时,位于屏幕的中间,则可通过___C____属性来设置.A. TopB. LeftC. StartUpPositionD. WindowState166.若要将窗体隐藏起来,则实现的方法为___A____.A. HideB. UnLoadC. ShowD. WindowState167.若要求在文本框中输入密码时,文本框中只显示#号,则应在此文本框的属性窗口中设置___C___.A. Caption属性值为#B. Text属性值为#C. Passwordchar属性值为#D. Passwordchar属性值为真168.若要将某命令按钮设置为默认命令钮,则可设置___C____属性为True来实现.A. ValueB. CancelC. DefaultD. Enable169.若要设置命令按钮的工具提示,则可通过___D____属性来设置.A. CaptionB. TextC. ValueD. ToolTipText170.若要使某命令按钮获得控制焦点,则可使用___B___方法来设置.A. RefreshB. SetFocusC. GotFocusD. Value171.标签的边框风格,由____A___属性的设置值决定.A. BorderStyleB. BackStyleC. BackColorD. AutoSize172.若要使标签的大小自动与所显示的文本相适应,则可通过设置__A__属性的值为True来实现.A. AutoSizeB. AlignmentC. AppearanceD. Visible173.若要使文本框成为只读文本框,可通过设置___C____属性值为True来实现.A. ReadOnlyB. LockC. LockedD. Enabled174.若要设置定时器控件定时触发Timer事件的时间间隔,可通过___A____属性来设置. A. Interval B. Value C. Enabled D. Text175.若要获知列表框中列表项的总项数,可通过访问___C____属性来实现.A. ListB. ListIndexC. ListCountD. Text176.若要向列表框添加列表项,可使用的方法是___D____.A. AddB. RemoveC. ClearD. AddItem177.设组合框Combo1中有3个项目,则能删除最后一项的语句是___B____.A. Combo1.RemoveItem TextB. Combo1.RemoveItem 2C. Combo1.RemoveItem 3D. Combo1.RemoveItem Combo1.Listcount178.下列控件中,没有Caption属性的是___B____.A. 框架B. 列表框C. 复选框D. 单选按钮179.复选框的Value属性值为1时,表示___B____.A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作错误180.将数据项"China"添加到列表框List1中成为第一项,应使用语句____A___.A. List1.AddItem "China", 0B. List1.AddItem "China", 1C. List1.AddItem 0, "China"D. List1.AddItem 1, "China"181.假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程, 计算机将发出___D____次beep声.Private Sub Timer1_Timer()For i = 1 To 5beepNext iEnd SubA. 100次B. 1000次C. 5次D. 以上都不对182.如果每0.5秒产生一个计时器的Timer事件,那么时钟控件的Interval属性应设为___C___.A. 5B. 50C. 500D. 5000183.将命令按钮Command1的标题作为文本框Text1的文本内容,应执行语句___B___. A. Text1= Command1 B. Text1.Text= Command1.CaptionC. Text1.Caption=Command1.CaptionD. Text1.Text= CStr(Command1)184.表示滚动条控件取值范围最大值的属性是___A____.A. MaxB. LargeChangeC. ValueD. Max-Min185.程序运行后,在窗体上单击鼠标,此时窗体不会接受到的事件是___C____.A. MouseDownB. MouseUpC. LoadD. Click186.下列控件可以用作其他控件容器的有___D____.A. 窗体,标签,图片框B. 窗体,框架,文本框C. 窗体,图像,列表框D. 窗体,框架,图片框187.改变驱动器列表框的Drive属性将激活___A____事件.A. ChangeB. ScrollC. KeyDownD. KeyUp188.在窗体上添加一个列表框和一个文本框,然后编写如下两个事件过程:Private Sub Form_Load()List1.AddItem "357"List1.AddItem "246"List1.AddItem "123"List1.AddItem "456"End SubPrivate Sub List1_DblClick()a = List1.TextPrint a + Text1.TextEnd Sub程序运行后,在文本框中输入"789",然后双击列表框中的"456",则输出结果为___B____.A. 1245B. 456789C. 789456D. 0189.在窗体上添加一个文本框,然后编写如下事件过程:Private Sub Form_Load()For i = 1 To 10Sum = Sum + iNext iText1.Text = SumEnd Sub上述程序的运行结果是___A____.A. 在文本框Text1中输出55B. 在文本框Text1中输出0C. 出错D. 在文本框Text1中输出不定值190.对于窗体Form1,执行了Form1.Top=Form1.Top-100语句后,该窗体将___A___.A. 上移B. 下移C. 左移D. 右移191.在窗体上添加一命令按钮Command1,并将其Caption属性设置为cmdAA,名称属性设置为cmdBB,则关于该控件的语句____C___是正确的.A. Command1.Left=100B. cmdAA.Left=100C. cmdBB.Left=100D. 以上语句都不对192.如果每2秒产生一个计时器事件,那么时钟控件的Interval属性应设为___C___. A. 2 B. 200 C. 2000 D. 5000193.窗体上有一个公用对话框CommonDialog1,则语句CommonDialog1.ShowSave的作用是___D____.A. 显示"打开"对话框B. 显示"颜色"对话框C. 显示"字体"对话框D. 显示"另存为"对话框194.在窗体上画一个名称为List1的列表框,一个名称为Label1的标签;列表框中显示若干城市的名称.当单击列表框中的某个城市名时,在标签中显示选中城市的名称.在List1的单击事件过程中能正确实现上述功能的语句是___D____.A. Label1.Caption = List1.ListIndexB. = List1. ListIndexC. = List1.TextD. Label1.Caption = List1.Text195.为清除图片框Picture1中的图形,下列方法正确的是___A____.A. Picture1.Picture=LoadPicture("")B. Set Picture1.Picture=LoadPictureC. Picture1.Picture=LoadPicture("C:\Winap.Bmp")D. Set Picture1.Picture=LoadPicture("C:\Winap.Bmp")196.因修改文本框中的数据而触发的事件是___A____.A. ChangeB. GotFocusC. LostFocusD. SetFocus197.刚建立一个新的标准EXE工程时,不在工具箱中出现的控件是___C____.A. 单选按钮B. 图片框C. 通用对话框D. 文本框198.下面对语句 Open "Rizhi.dat" For Output As #1 的功能描述错误的是___C___.A. 以顺序输出模式打开文件"Rizhi.dat"B. 如果文件"Rizhi.dat"不存在,则建立一个新文件C. 如果文件"Rizhi.dat"已存在,则打开该文件,新写入的的数据将添加到文件末尾D. 如果文件"Rizhi.dat"已存在,则打开该文件,新写入的的数据将覆盖原来的数据199.执行语句Open "Sample.dat" For Random As #1 Len = 50 后,对文件"Sample.dat"中的数据能够进行的操作是___C___.A. 只能写不能读B. 只能读不能写C. 即可以读,也可以写D. 不能读,也不能写200.以下哪个不是VB中的数据文件类型____B___.A. 顺序文件B. 数据库文件C. 随机文件D. 二进制文件201.下列说法错误的是____C___.A. 当用Write # 语句写顺序文件时,文件必须以Output或Append方式打开B. 用Input方式打开一个文件时,对同一个文件可以用几个不同的文件号打开C. 用Output和Append方式打开文件时,不用将文件关闭,就能重新打开文件D. 用Append方式打开文件时,进行写操作,写入文件的数据附加到原来文件的后面202.下面几个关键字均表示文件的打开方式,只能进行读不能写的是___A____.A. InputB. OutputC. RandomD. Append203.下列哪个不是写文件语句___D___.A. PutB. PrintC. WriteD. Output204.以下叙述中正确的是___B___.A. 一个记录中所包含的各个元素的数据类型必须相同B. 随机文件中每个记录的长度是固定的C. Open命令的作用是打开一个已经存在的文件D. 使用Input#语句可以从随机文件中读取数据205.在窗体上添加一个命令按钮Command1和一个文本框Text1,然后编写如下事件过程: Private Sub Command1_Click()Dim s As String * 20s = Text1.Text……End Sub该程序的功能是当单击按钮Command1时,把变量S的内容写入一个顺序文件dat1.dat中, 正确的程序段是___B___.A. Open "dat1.dat" For Input As #1Write #1, sClose #1B. Open "dat1.dat" For Output As #1Write #1, sClose #1C. Open "dat1.dat" For Random As #1Write #1, sClose #1D. Open "dat1.dat" For Binary As #1Write #1, sClose #1206.FileFiles.Pattern="*.dat" 语句执行后,FileFiles文件列表框中显示___A____. A. 只包含文件扩展名为".dat"的文件 B. 第一个dat文件C. 包含所有的文件D. 显示磁盘的路径207.目录列表框的Path属性的作用是___A___.A. 显示当前驱动器或指定驱动器上的路径B. 显示当前驱动器或指定驱动器上的某个目录下的文件名C. 显示根目录下的文件D. 只显示当前路径下的文件208.为了使Drive1驱动器列表框,Dir1目录路径列表框和File1文件列表框同步协调工作, 需要__A__.A. Drive1的Change事件过程中加入Dir1.Path = Drive1.Drive,在Dir1的Change事件中加入 File1.Path = Dir1.Path代码B. Drive1的Change事件过程中加入Dir1.Path =Dir1.Path,在Dir1的Change事件中加入File1.Path = Drive1.Drive代码C. Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive,在Drive1的Change事件中加入File1.Path = File1.FileName代码D. Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive,在Drive1的Change事件中加入File1.Path = Dir1.Path代码209.以下程序运行后,a1.dat文件的内容是___B____.Private Sub Form_Click()Dim f1 As Integer, f2 As Integer, f3 As IntegerOpen "d:\a1.dat" For Output As #1f1 = 2f2 = 3f3 = f2 + f1Write #1, f1 * f2, f2, f3Close #1End SubA. 2,3,3B. 6,3,5C. 2,5,6D. 无内容210.以下能判断是否到达文件尾的函数是___D____.A. BOFB. LOCC. LOFD. EOF211.在一行写多条语句时,每个语句之间用___B___符号分隔.A. ,B. :C. ,D. ;212.VB 6.0作为一种编程语言是基于以下___C____种版本语言.A. FoxBASEB. CC. BASICD. PASCAL213.一条语句要分行书写,用___C____符号作续行符.A. +B. -C. _D. …214.VB 6.0的标准化控件位于IDE(集成开发环境)中的___B___窗口内.A. 工具栏B. 工具箱C. 对象浏览器D. 窗体设计器215.下面___A___是合法的变量名.A. X_yzB. 123abcC. integerD. X-Y216.关于Visual Basic应用程序正确的叙述是___A____.A. Visual Basic程序运行时,总是等待事件被触发B. Visual Basic程序设计就是编写代码C. Visual Basic程序是以线性方式顺序执行的D. Visual Basic的事件可以由用户随意定义,而事件过程是系统预先设置好的217.下列操作不能打开代码编辑窗口的是___D____.A. 选中对象,单击鼠标右键,在弹出菜单中选择"查看代码"B. 选中对象,双击鼠标左键C. 按功能键F7D. 按功能键F4218.保存文件时,窗体的所有数据以___B___存储.A. *.PRGB. *.FRMC. *.VBPD. *.EXE219.下列哪组语句可以将变量a,b的值互换___B____.A. a=b : b=aB. a=a+b : b=a-b : a=a-bC. a=c : c=b : b=aD. a=(a+b)/2 : b=(a-b)/2220.以下程序段执行后,整型变量n的值为___A____.year1 = 2004n = year1 \ 4 + year1 \ 400 - year1 \ 100A. 486B. 496C. 506D. 466221.将一文本框与数据控件相关联,需要设定文本框的___C____属性.A. DataMemberB. DatafieldC. DataSourceD. DataFormat222.窗体Form1上有两个文本框Text1,Text2和一个命令按钮Command1,编写如下两个事件过程:Private Sub Command1_Click()a = Text1.Text + Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text = "123"Text2.Text = "321"End Sub程序运行时点击Command1按钮,窗体上显示的运行结果是___B____.A. 444B. 123321C. 321123D. 132231223.在窗体上添加三个文本框,名称分别为Text1,Text2,Text3,一个命令按钮Command1.如果在Text1中输入150,Text2中输入200,则执行下列程序后,Text3中显示的数为__D__. Private Sub Command1_Click()Dim m As Integer, n As Integerm = Val(Text1.Text)n = Val(Text2.Text)If m < n Thent = m: m = n: n = tEnd IfDor = m Mod nm = nn = rLoop While r 0Text3.Text = Str(m)End SubA. 200B. 150C. 100D. 50224.下列程序是在列表框List1中显示3个学生的名字.用户点击列表框中的某个名字后, 文本框Text1中显示的是___B____.Dim student(0 To 2) As StringDim grade(0 To 2) As SinglePrivate Sub Form_Load()student(0) = "章力" : student(1) = "刘唯" : student(2) = "方红"grade(0) = 92.5: grade(1) = 73 : grade(2) = 84For i = 0 To 2List1.AddItem student(i)Next iList1.ListIndex = 0End SubPrivate Sub List1_Click()。
职业高中vb试题及答案
职业高中vb试题及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D2. 下列哪个函数用于将字符串转换为数值？A. Str()B. Val()C. Chr()D. Len()答案：B3. 在Visual Basic中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. IfD. For答案：B4. 以下哪个选项是Visual Basic中的循环控制结构？A. DoB. LoopC. WhileD. All of the above5. 在Visual Basic中，以下哪个选项用于声明一个变量？A. DimB. ConstC. OptionD. All of the above答案：D6. 下列哪个选项是Visual Basic中的正确注释方式？A. // This is a commentB. /* This is a comment */C. ' This is a commentD. All of the above答案：C7. 在Visual Basic中，以下哪个选项用于打开文件进行读取？A. Open For InputB. Open For OutputC. Open For AppendD. All of the above答案：A8. 以下哪个选项是Visual Basic中的正确事件处理程序？A. On ClickB. On LoadC. On ErrorD. All of the above答案：D9. 在Visual Basic中，以下哪个选项用于将数值转换为字符串？B. Val()C. Int()D. All of the above答案：A10. 在Visual Basic中，以下哪个关键字用于定义一个类？A. ClassB. ModuleC. NamespaceD. Option答案：A二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个数组。
中等职业学校VB试题
2014-2015学年三年级上期期中试题Visual Basic 6.0一、选择题（每小题2分，共50分）1．（ ）可以作为Visual Basic 中变量名。
A ．a+bB ．abcC ．2aD ．Then2．符合Visual Basic 6.0规范的表达式是（ ）A ．a 2+abB ．a(a+b)C ．a*[a+b]D ．a*(a+b)3．表示x 位于闭区间[-3，3] 的Visual Basic 表达式是（ ）A ．-3<=x<=3B ．x>= - 3 Or x<=3C ．x>= - 3 And x<=3D ．x>= - 3 Xor x<=34. 表达式16/4—2^5*8/4 MOD 5\2的值为（ ）。
A. 14B. 4C. 20D. 2 5．下列四个运算符中，优先级别最低的是（ ）。
A. \B. AndC. ModD. < >6．要使标签控件中的文本水平居中对齐，应将其Alignment 属性设置为（ ）A ．0B ．1C ．2D ．37．向列表框中添加项目，应调用（ ）方法。
A ．AddB ．AddItemC ．FillD ．FillItem 8．假设变量a=3456，执行语句t=(a\100) Mod 10后，t 的值是（ ） A ．3B ．4C ．5D ．69．（ ）不是鼠标事件。
A ．MouseUPB ．MousePressC ．MouseDownD ．MouseMove 10．标签控件的（ ）属性用来设置控件中文本和图形的前景颜色。
A ．BackColorB ．FontC ．ForeColorD ．BackStyle11．（ ）控件将文本框控件和列表框控件的特性结合在一起，既可以在控件的文本框部分输入信息，也可以在控件的列表框部分进行选择。
A ．复选框 B ．菜单C ．组合框D ．框架12．要创建一个下拉式组合框（包括一个下拉式列表和一个文本框），应将Style 属性设置为（ ） A ．0 B ．1 C ．2 D ．3 13．为了使文本框控件具有垂直滚动条，应把ScrollBars 属性值设置为（ ）A ．0B ．1C ．2D ．3学校_____________ 班级________________ 姓名________________ 座号______________………密…………………封…………………装…………………订…………………线…………14．（）用于显示项目列表，从其中可以选择一项或多项。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB考试练习题(附正确答案)一,单项选择题(1-251题)1.以下4种描述中,错误的是__ D __.A. 常量在程序执行期间其值不会发生改变B. 根据数据类型不同,常量可分为字符型常量,数值常量,日期/时间型常量和布尔型常量C. 符号常量是用一个标识符来代表一个常数,好象是为常数取一个名字,但仍保持常数的性质D. 符号常量的使用和变量的使用没有差别2.下面合法的常量是___ D ____.A. 1/2B. 'abcd'C. 1.2*5D. False3.Visual Basic中可以用类型说明符来标识变量的类型,其中表示货币型的是___ C ____.A. %B. #C. @D. $4.下面___ B____是不合法的整常数.A.100B.%O100C.&H100D.&O1005.以下关键字中,不能定义变量的是___A____.A. DeclareB. DimC. PublicD. Private6.表达式16/4-2^5*8/4 MOD 5\2的值为___B____.A. 14B. 4C. 20D. 27.用十六进制表示Visual Basic的整型常数时,前面要加上的符号是___A____.A. &HB. &OC. HD. O8.Visual Basic日期型常量的定界符是__A_____.A. ##B.''C. ()D. {}9.数学关系式3≤x<10表示成正确的VB表达式为___B____.A. 3<=x<=x AND x=3 OR x<=x AND10.下面正确的赋值语句是___C____.A. x+y=30B. pi*r*r=yC. y=x+30D. x=3y11. \,/,Mod,*四个算术运算符中,优先级别最低的是___C____.A. \B. /C. ModD. *12.表达式ASC("F")的类型是__C_____.A. 字符表达式B. 关系表达式C. 算术表达式D. 逻辑表达式13.下面语句中有非法调用的是___C____.A. x=Sgn(-1)B. x=Fix(-1)C. x=Sqr(-1)D. x$=Chr$(65)14.表达式23/5.8,23\5.8,23 Mod 5.8的运算结果分别是___B____.A. 3,3.9655,3B. 3.9655,3,5C. 4,4,5D. 3.9655,4,315.如果变量 a=2,b="abc",c="acd",d=5,则表达式 ac AND bc 的值为___A____.A. TrueB. FalseC. YesD. No16.下面不正确的赋值语句是___B____.A. x=30-yB. y=r.rC. y=x+30D. y=x\317.为了给x,y,z三个变量赋初值1,下面正确的赋值语句是___A____.A. x=1:y=1:z=1B. x=1,y=1,z=1C. x=y=z=1D. xyz=118.以下4类运算符,优先级最低的是___D____.A. 算术运算符B. 字符运算符C. 关系运算符D. 逻辑运算符19.如果在立即窗口中依次执行下列命令:a=8b=9Print a>b则输出的结果是____C___.A. 1B. 0C. FalseD. True20.已知a="12345678",则表达式Left(a, 4) + Mid(a, 4, 2)的值是___B____.A. 123456B. "123445"C. 123445D. 127921.在Visual Basic中,y1+z2=a*Sin(b*x+c)+k表达式的类型是___B____.A. 算术表达式B. 关系表达式C. 逻辑表达式D. 字符表达式22.下列表达式的值为真的是___C____.A. "A">"a"B. "9">"a"C. "That">"Thank"D. 12>12.123.在下列算术运算符中,运算等级最高的是___A____.A. 取负(-)B. 乘,除(*,/)C. 取模(MOD)D. 加,减(+,-)24.如果变量a=2,b=3,c=4,d=5,表达式NOT a>b AND NOT dc的值是___B____.A. TrueB. FalseC. 1D. 025.在一个有(1)逻辑运算,(2)算术运算,(3)关系运算混合在一起的表达式(无括号)中,其运算顺序为____C___.A. (1)(2)(3)B. (3)(2)(1)C. (2)(3)(1)D. (2)(1)(3)26.表达式A%+B&+C!-D#的结果为____D___.A. 整型B. 长整型C. 单精度型D. 双精度型27.下列符号中,可以用作VB变量名的是___C____.A. c%abB. 3sumC. sum3D. Len28.在下列表达式中,正确的日期型常量是___D____.A. "12/04/01"B. 12-04-2001C. {12/04/01}D. #12/04/01#29.条件:1<X<=2或10<=X1 AND X=10 AND X1 OR X=10 OR X1 OR X=10 OR X1 AND X=10 AND X=10 or x"b" And 93的值为___ A ____.A. TrueB. FalseC. 表达式有错D. 条件不足39.在窗体模块的声明段中声明变量时,不能使用的关键字是___ D ____.A. PrivateB. PublicC. DimD. Static40.选拔身高T超过1.7米且体重W小于62.5公斤的人,表示该条件的表达式为___ C ____.A. T=62.5B. T>1.7 Or W1.7 And W41.在过程内部定义的局部变量,仅在声明它的___ B ____中有效.A. 方法B. 过程C. 属性D. 对象42.假设A="Good Morning.",B="Afternoon,Boys.",下列表达式中结果是"Good Boys."的是_ A__.A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5)C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5)43.下列关于变体类型的描述,其中正确的是___ C ____.A. 变体是一种没有类型的数据B. 变体的空值就表示该变体的值为0C. 一个变量没有定义就赋值,该变量即为变体类型D. 变体是赋给变量某一种类型数据后,就不能再赋给它另一类型的数值44.下列程序段的运行结果为____B___.For i=3 To 1 Step -1Print Space(5-i);For j=1 To 2*i-1Print "*";Next jPrintNext iA. *B. *****C. *****D. ******** *** *** ******** * * *45.执行 PRINT 18/2*3,-3^2 命令后,输出结果为___C___.A. 3 9B. 3 -9C. 27 -9D. -9 2746.执行 PRINT 9.4\3.7,9.4 MOD 3.7 命令后,输出结果为___ A ____.A. 2 1B. 3 0C. 2 20D. 1 247.运行以下程序段后,输出结果为___ C ____.x%=1/4y%=11/4PRINT x%;y%A. 0.25 0.75B. 0 2C. 0 3D. 1 348.窗体里有两个对象,分别是图片框Picture1和标签Label1,下面关于Print方法的使用中,错误的一条是___ D ____.A. Picture1.Print 147B. Print 147C. Printer.Print 147D. Label1.Print14749.下面的___ B ____语句可以实现:先在窗体上输出大写字母A,然后在同一行的第10列输出小写字母b.A. Print "A";Tab(9);"b"B. Print "A";Tab(10);"b"C. Print "A";Space(10);"b"D. Print "A";Tab(8);"b"50.阅读下面的程序段:n1=InputBox("请输入第一个数:")n2=InputBox("请输入第二个数:")Print n1+n2当输入分别为111和222时,程序输出为___ A ____.A. 111222B. 222C. 333D. 程序出错51.语句Print Format("HELLO", "<")的输出结果是____ B ___.A. HELLOB. helloC. HeD. he52.设a=2:b=0,则语句 Print (a=2) And (b=-2) 的输出结果是___ D ____.A. TrueB. 结果不确定C. -1D. False53.以下程序段运行后,输出字符的排列顺序是___ D ____.For i=1 To 6If i Mod 2=0 ThenPrint "#";ElsePrint "*";End IfNext iA. #*#*#B. #####C. *****D. *#*#*#54.用MsgBox函数显示的对话框,以下叙述正确的是___ D ____.A. 该对话框有一个"确定"按钮B. 该对话框有"是","否"两个按钮C. 该对话框有"是","否","取消"三个按钮D. 该对话框通过选择参数可以得到以上不同的的按钮组合55.与语句Dim abc%作用相同的语句是___ A ____.A. Dim abc As IntegerB. Dim abc As LongC. Dim abc As StringD. Dim abc As Date56.设a=1,b=2,c=3,d=4,则表达式IIf(a5,-1,0)后,x的值为___ D___.A. 5B. 6C. 0D. -171.表达式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范围是___ D____.A. [0,15]B. [-1,15]C. [-4,15]D. [-5,15]72.可以同时删除字符串前导和尾部空格的函数是___C____.A. LtrimB. RtrimC. TrimD. Mid73.当函数MsgBox返回值为1,对应的符号常量是vbOK,那么此时表示用户做的操作是___ A___.A. 用户单击了对话框中的"确定"按钮B. 用户单击了对话框中的"取消"按钮C. 用户单击了对话框中的"是"按钮D. 用户单击了对话框中的"否"按钮74.函数Int(Rnd*5)+1产生的随机整数的范围是___D____.A. [0,6]B. [1,6]C. [0,5]D. [1,5]75.在VB中,InputBox函数的默认返回值类型为字符串,用InputBox函数输入数值型数据时,下列操作中可以有效防止程序出错的操作是___A____.A. 在函数InputBox前面使用Val函数进行类型转换B. 在函数InputBox前面使用Str函数进行类型转换C. 在函数InputBox前面使用Value函数进行类型转换D. 在函数InputBox前面使用String函数进行类型转换76.已知a="12345678",则表达式Right(a, 4) + Mid(a, 3, 2)的值是___B____.A. "123445"B. "567834"C. 123445D. 56783477.表达式Len("123程序设计ABC")的值是___A____.A. 10B. 14C. 20D. 1778.赋值语句g = 123 + Mid("123456", 3, 2)执行后,变量g中的值是___D____.A. "12334"B. 123C. 12334D. 15779.如果x是一个正实数,对x的第3位小数四舍五入的表达式是___B____.A. 0.01 * Int(x + 0.005)B. 0.01 * Int(100 * (x + 0.005))C. 0.01 * Int(100 * (x + 0.05))D. 0.01 * Int(x + 0.05)80.以下程序执行后,输出的结果是___A____.m$="123"n$="456"k$=LCASE$(m$)j$=UCASE$(n$)Print k$ , j$A. 123 456B. !@#$%^C. 49 52D. 33 3681.MsgBox函数的返回值的类型是___A____.A. 整型B. 字符串C. 逻辑值D. 日期型82.A=5,B=8,则(B-A)*Rnd+A的结果是介于___A____之间的数.A. 5～8B. 0～5C. 3～5D. 0～383.使用下列语句:Dim x(1 to 10,3) As Single,则数组占用内存空间的字节数是___C____.A. 132B. 80C. 160D. 12084.用Select Case语句选择|x|10 D. Is 1085.若x=1,执行语句If x Then x = 0 Else x = 1的结果是__D_____.A. 实时错误B. 编译错误C. x=1D. x=086.以下程序代码能执行的是___C____.A. If a=1 Then b=0 Else c=0 End IfB. If a=1 Then : B=0: ElseIf C=0 Then : D=0C. If a = 1 Thenb = 0ElseIf c = 0 Thend = 0End IfD. If a = 1 Thenb = 0Else If c = 0d = 0End If87.下列程序段的循环结构执行后,i的输出值是___C____.Dim y as IntegerFor i = 1 To 10 Step 2y = y + iNext iPrint iA. 25B. 10C. 11D. 因为y初值不知道,所以不确定88.循环结构 For i = 1 To 10 Step 1.5 的执行次数是___A____.A. 7B. 8C. 9D. 1089.下列结构中不属于循环结构的是___C____.A. For/NextB. While/WendC. With/End WithD. Do/Loop90.下列结构中不属于分支结构的是___ C____.A. If/End IfB. Select Case/End SelectC. With/End WithD. If/Else/EndIf91.以下程序段的运行结果是___ D____.Private Sub Form_Click()m = 1n = 1Dom = m * nn = n + 1Loop Until n > 4Print mEnd SubA. 25B. 45C. 55D. 2492.以下程序段的运行结果是___A____.Private Sub Form_Click()Dim s As Long, f As LongDim n As Integer, i As Integerf = 1n = 4For i = 1 To nf = f * is = s + fNext iPrint "s="; sEnd SubA. 33B. 34C. 35D. 3693.以下程序段的运行结果是___B____.Private Sub Form_Click()Dim I As Integer, X As String, Y As String X = "ABCDEFG"For I = 4 To 1 Step -1Y = Y + Mid(X, I, 1)Next IPrint YEnd SubA. ABCDB. DCBAC. DEFGD. GFED94.以下程序段的运行结果是__C__.Private Sub Form_Click()Dim b As Integer, k As Integerb = 1For k = 1 To 5b = b * kIf b >= 15 ThenExit ForEnd IfNext kPrint k, bEnd SubA. 3 15B. 2 12C. 4 24D. 5 1595.以下程序段的运行结果是___ A____. Private Sub Form_Click()a = 1Do Until a >= 5X = a * bPrint Str(a) & "*" & Str(b) & "="; Str(X),a = a + bb = b + aLoopEnd SubA. 1*1=1 2*3=6B. 1*1=2 2*2=4C. 1*1=1 3*3=9D. 1*1=2 3*2=696.以下程序段的运行结果是___B____.Private Sub Form_Click()x = "abcdef"y = Asc("b") - Asc("a")z = Len(x)Print y,zEnd SubA. 1 2B. 1 6C. 2 2D. 2 697.下面程序段运行后,显示的结果是___A____.Dim xIf x Then Print x Else Print x+1A. 1B. 0C. -1D. 显示出错信息98.运行下列程序段,显示的结果是___A____.x=Int(Rnd)+5Select Case xCase 5Print "优秀"Case 4Print "良好"Case 3Print "通过"Case ElsePrint "不通过"End SelectA. 优秀B. 良好C. 通过D. 不通过99.下列If语句统计满足性别为男,职称为副教授以上,年龄小于40岁条件的人数,不正确的语句是___D___.A. If sex=〃男〃And age0 Then n=n+1B. If sex=〃男〃And ageC. If sex=〃男〃And ageD. If sex=〃男〃And agey,x,y)B. If x>y Then Max=x Else Max=yC. Max=xIf y>=x Then Max=yD. If y>=x Then Max=y101.以下正确的程序段是___ B___.A. For x=1 To Step 10B. For x=3 To -3 Step -3… …Next x Next xC. For x=1 To 10D. For x=10 To 1re: … …Next x Next yIf i=10 Then GoTo re102.下列循环能正常结束的是___C____.A. i=5B. i=1DO DOi=i+1 i=i+2Loop Until i10 Loop Until i=1103.若要退出For循环,可使用的语句为____D___.A. ExitB. Exit DoC. TimeD. Exit For104.当a=1,b=3,c=5,d=4时,执行下面一段程序后,x的值为___B___. If aIf cx=1Elsex=2End IfElseIf c0y=x+1Case Is=0y=x+2Case Elsey=x+3End SelectPrint x;yA. -5 -2B. -5 -4C. -5 -3D. -5 -5106.下面程序段的作用是___D____.m=0:n=0For i=1 To 10x= Val(InputBox("请输入x的值:"))If x>0 Thenm=m+xElseIf x="副教授" AND A$="女" THEN N=N+1D. IF A$="女" AND (B$="副教授" OR B$="教授") THEN N=N+1 110.以下程序段执行后,变量s,x的值分别为___ C____.Dim s As Integer, x As Integers = 10: x = 1Do While x c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后,单击命令按钮,输出结果是___C____.A. 89B. 99C. 23D. 77129.以下程序段的运行结果是__D__.Private Sub Form_Click()Dim ary(1 To 4) As IntegerDim i As IntegerDim sum As Integersum = 1For i = 1 To 4ary(i) = isum = sum + ary(i)Next iPrint sumEnd SubA. 8B. 9C. 10D. 11130.下列语句声明的数组a包含的元素个数有___A____.Dim a(3 ,-2 to 2,5)A. 120B. 75C. 60D. 13131.以下程序输出的结果是___C____.Option Base 1Private Sub Command1_Click()Dim a%(3,3)For i=1 To 3For j=1 To 3a(i,j)=i*jPrint a(i,j);〃〃;Next jPrintNext iEnd SubA.1 2 3B.1 2 3C.1 2 3D.1 1 12 3 1 1 2 3 2 4 6 2 2 23 2 3 1 2 3 3 6 9 3 3 3132.与语句Dim abc%作用相同的语句是___A____.A. Dim abc As IntegerB. Dim abc As LongC. Dim abc As StringD. Dim abc AsDate133.定义数组A(1 to 5,5)后,下列哪一个数组元素不存在___C____.A. A(1,1)B. A(1,5)C. A(0,1)D. A(5,5)134.在Visual Basic应用程序中,以下描述正确的是___B____.A. 过程的定义可以嵌套,但过程的调用不能嵌套B. 过程的定义不可以嵌套,但过程的调用可以嵌套C. 过程的定义和过程的调用均可以嵌套D. 过程的定义和过程的调用均不可以嵌套135.在在窗体上添加一个命令按钮Command1和一个文本框Text1,然后编写如下事件过程: Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + bEnd SubPrivate Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = 5y = 7z = 0Call p1(x, y, z)Text1.Text = Str(z)End Sub程序运行后,单击命令按钮得到的结果是___B____.A. 0B. 12C. Str(z)D. 没有显示136.假定有如下的Sub过程:Sub swapp(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 5:b = 4swapp a, bPrint a, bEnd Sub程序运行时,单击命令按钮得到的结果是___D__.A. 5 4B. 1 1C. 1.25 4D. 1.25 1137.运行下列程序,单击命令按钮后的结果是___C____.Function fun(a As Integer)b = 0Static cb = b + 1c = c + 1fun = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 2For i = 1 To 3Sum = Sum + fun(a)Next iPrint SumEnd SubA. 24B. 12C. 15D. 32138.阅读程序:Sub subp(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8subp aFor i = 1 To 4Print a(i);Next iEnd Sub程序运行时,单击命令按钮得到的结果是___A____.A. 2 4 6 8B. 5 6 7 8C. 10 12 14 16D. 出错139.假定有以下函数过程:Function func(a As Integer, b As Integer) As Integer func = a + bEnd Function在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click()p = func(10,20)Print p;End Sub程序运行时,单击命令按钮得到的结果是___C____.A. 10B. 20C. 30D. 40140.假定有以下两个过程:Sub s1(ByVal x As Integer, ByVal y As Integer)Dim t As Integerx = yy = tEnd SubSub s2(x As Integer, y As Integer)Dim t As Integert = xx = yy = tEnd Sub则以下说法中正确的是___B____.A. 用过程S1可以实现交换两个变量的值的操作,S2不能实现B. 用过程S2可以实现交换两个变量的值的操作,S1不能实现C. 用过程S1和S2都可以实现交换两个变量的值的操作D. 用过程S1和S2都不能实现交换两个变量的值的操作141.假定有以下函数过程:Function Fun(S As String) As StringDim s1 As StringFor i = 1 To Len(S)s1 = UCase(Mid(S, i, 1)) + s1Next iFun = s1End Function在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim str1 As String, str2 As Stringstr1 = InputBox("请输入一个字符串")str2 = Fun(str1)Print str2End Sub程序运行后,单击命令按钮,在输入对话框中输入字符串"abc",则输出结果为___D____. A. abc B. cba C. ABC D. CBA142.在窗体上添加一个命令按钮Command1和两个名称分别为Label1和Label2的标签,在通用声明段声明变量x,并编写如下事件过程和Sub过程:Private x As IntegerPrivate Sub Command1_Click()x = 5: y = 3Call proc(x, y)Label1.Caption = xLabel2.Caption = yEnd SubSub proc(ByVal a As Integer, ByVal b As Integer)x = a * ay = b + b程序运行后,单击命令按钮,则两个标签中显示的内容分别是___B____.A. 5和3B. 25和3C. 25和6D. 5和6143.下列程序输出结果为___A____.Private Sub Command1_Click()For i = 1 To 3GetValue (i)Next iPrint GetValue(i)End SubPrivate Function GetValue(ByVal a As Integer)dim s As Integers = s + aGetValue = sEnd FunctionA. 4B. 5C. 10D. 11144.以下程序的运行结果是___C____.Dim x As Integer, y As Integer, z As IntegerSub s2(a As Integer, ByVal b As Integer)a = 2 * ab = b + 2End SubPrivate Sub Command1_Click()x = 4y = 4Call s2(x, y)Print x + yEnd SubA. 0B. 8C. 12D. 14145.以下程序的运行结果是___A____.Private Sub Command1_Click()Dim a(1 To 4) As IntegerFor i = 1 To 4a(i) = i + 5Print a(i);Next iEnd SubA. 6 7 8 9B. 12 14 16 18C. 2 4 6 8D. 1 2 3 4146.以下程序的运行结果是___C____.Private Sub Form_Click()a = 1:b = 1Print "A="; a; "B="; bCall mult(a, b)Print "A="; a; "B="; bSub mult(x, y)x = 2 * xy = 3 * yEnd SubA. A=1 B=1B. A=1 B=1C. A=1 B=1D. A=1 B=1A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=1147.在窗体上添加一个命令按钮Command1和3个名称分别为Label1,Label2和Label3的标签,然后编写如下事件过程:Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = zEnd Sub程序运行后,连续3次单击命令按钮后,3个标签中显示的内容分别是___C____.A. 10 10 10B. 30 30 30C. 30 30 10D. 10 30 30148.在窗体上添加一个命令按钮和一个文本框,然后编写如下事件过程:Private Sub Command1_Click()Dim arr(5) As VariantFor i = 1 To 5arr(i) = iNext in = 10Text1.Text = n + arr(5)End Sub程序运行时,单击命令按钮,则文本框中显示内容是___B____.A. 10B. 15C. 25D. 24149.以下程序段的运行结果是___C____.Private Sub Form_Click()Dim x As Integerx = 3Call abcd(x)Print xEnd SubPublic Sub abcd(n As Integer)n = n + 5End SubA. 3B. 5C. 8D. 10150.一个工程中包含两个名称分别为Form1和Form2的窗体,一个名称为mdlfunc的标准模块.假定Form1,Form2和mdlfunc中分别建立了自定义过程,其定义格式为:Form1中定义的过程:Private sub frmFunction1()…End SubForm2中定义的过程:Public sub frmFunction2()…End SubMd1func中定义的过程:Public sub md1Function ()…End Sub在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是___D____.A. 上述三个过程都可以在工程中的任何窗体或模块中被调用B. frmFunction2和md1Function过程能够在工程中各个窗体或模块中被调用C. 上述三个过程都只能在各自被定义的模块中调用D. 只有md1Function过程能够被工程中各个窗体或模块调用151.以下程序段的运行结果是___B___.Function abc(n As Integer) As Integerabc = n * 5 + 10End FunctionPrivate Sub Form_Click()Dim x As Integerx = abc(2) + 100 * abc(1)Print xEnd SubA. 2B. 1520C. 1500D. 700152.以下程序段的运行结果是___C___.Private Sub Form_Click()Dim x As Integerx = 4Print x;Call test(x)Print xEnd SubPublic Sub test(i As Integer)i = i + 1End SubA. 4 6B. 4 4C. 4 5D.5 4153.以下程序段的运行结果是___B___.Private Sub Form_Click()Dim x As Integerx = 4Print x;Call test(x)Print xEnd SubPublic Sub test(ByVal i As Integer)i = i + 1End SubA. 4 6B. 4 4C. 4 5D. 5 4154.下面的子过程语句说明合法的是___D____.A. Sub f1(ByVal n%())%B. Sub f1(n%) As IntegerC. Function f1%(f1%)D. Function fl(ByVal n%)155.要想调用子过程后通过参数返回两个结果,下面子过程语句说明合法的是___C___.A. Sub f2(ByVal n%,ByVal m%)B. Sub f1(n%,ByVal m%)C. Sub f1(n%,m%)D. Sub f1(ByVal n%,m%)156.下列程序运行后显示的结果是___A___.Public Sub F1(n%,ByVal m%) Private Sub Command1_Click()n=n Mod 10 Dim x%,y%m=m\10 x=12:y=34End Sub Call F1(x,y)Print x,yEnd SubA. 2 34B. 12 34C. 2 3D. 12 3157.在过程定义中用___C___表示形参的传值.A. VarB. ByRefC. ByValD. Value158.窗体的标题栏显示内容由窗体对象的___D____属性决定.A. BackColorB. BackStyleC. TextD. Caption159.以下关于窗体的描述中,错误的是___A___.A. 执行Unload Form1语句后,窗体Form1消失,但仍在内存中B. 窗体的load事件在加载窗体时发生C. 当窗体的Enabled属性为False时,通过鼠标和键盘对窗体的操作都被禁止D. 窗体的Height,Width属性用于设置窗体的高和宽160.若要取消窗体的最大化功能,则可设置___C___属性为False来实现.A. ControlBoxB. MinButtonC. MaxButtonD. Enabled161.窗体的边框风格由窗体对象的__B___属性来设置.A. BackStyleB. BorderStyleC. WindowStateD. FillStyle162.若要以程序代码方式设置在窗体中显示文本的字体大小,则可用窗体对象的__C__属性来实现.A. FontNameB. FontC. FontSizeD. FontBold163.在代码编辑窗口内将窗体Form1的Caption属性设置为"时钟",正确的书写形式是___B____.A. Form1.Caption"时钟"B. Form1.Caption="时钟"C. Caption=时钟D. Form1.Caption(" 时钟")164.若要设置文本框中文字的显示颜色,则可用___B___属性来实现.A. BackColorB. ForeColor C .FillColor D. BackStyle165.若要使窗体启动时,位于屏幕的中间,则可通过___C____属性来设置.A. TopB. LeftC. StartUpPositionD. WindowState166.若要将窗体隐藏起来,则实现的方法为___A____.A. HideB. UnLoadC. ShowD. WindowState167.若要求在文本框中输入密码时,文本框中只显示#号,则应在此文本框的属性窗口中设置___C___.A. Caption属性值为#B. Text属性值为#C. Passwordchar属性值为#D. Passwordchar属性值为真168.若要将某命令按钮设置为默认命令钮,则可设置___C____属性为True来实现.A. ValueB. CancelC. DefaultD. Enable169.若要设置命令按钮的工具提示,则可通过___D____属性来设置.A. CaptionB. TextC. ValueD. ToolTipText170.若要使某命令按钮获得控制焦点,则可使用___B___方法来设置.A. RefreshB. SetFocusC. GotFocusD. Value171.标签的边框风格,由____A___属性的设置值决定.A. BorderStyleB. BackStyleC. BackColorD. AutoSize172.若要使标签的大小自动与所显示的文本相适应,则可通过设置__A__属性的值为True来实现.A. AutoSizeB. AlignmentC. AppearanceD. Visible173.若要使文本框成为只读文本框,可通过设置___C____属性值为True来实现.A. ReadOnlyB. LockC. LockedD. Enabled174.若要设置定时器控件定时触发Timer事件的时间间隔,可通过___A____属性来设置. A. Interval B. Value C. Enabled D. Text175.若要获知列表框中列表项的总项数,可通过访问___C____属性来实现.A. ListB. ListIndexC. ListCountD. Text176.若要向列表框添加列表项,可使用的方法是___D____.A. AddB. RemoveC. ClearD. AddItem177.设组合框Combo1中有3个项目,则能删除最后一项的语句是___B____.A. Combo1.RemoveItem TextB. Combo1.RemoveItem 2C. Combo1.RemoveItem 3D. Combo1.RemoveItem Combo1.Listcount178.下列控件中,没有Caption属性的是___B____.A. 框架B. 列表框C. 复选框D. 单选按钮179.复选框的Value属性值为1时,表示___B____.A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作错误180.将数据项"China"添加到列表框List1中成为第一项,应使用语句____A___.A. List1.AddItem "China", 0B. List1.AddItem "China", 1C. List1.AddItem 0, "China"D. List1.AddItem 1, "China"181.假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程, 计算机将发出___D____次beep声.Private Sub Timer1_Timer()For i = 1 To 5beepNext iEnd SubA. 100次B. 1000次C. 5次D. 以上都不对182.如果每0.5秒产生一个计时器的Timer事件,那么时钟控件的Interval属性应设为___C___.A. 5B. 50C. 500D. 5000183.将命令按钮Command1的标题作为文本框Text1的文本内容,应执行语句___B___. A. Text1= Command1 B. Text1.Text= Command1.CaptionC. Text1.Caption=Command1.CaptionD. Text1.Text= CStr(Command1)184.表示滚动条控件取值范围最大值的属性是___A____.A. MaxB. LargeChangeC. ValueD. Max-Min185.程序运行后,在窗体上单击鼠标,此时窗体不会接受到的事件是___C____.A. MouseDownB. MouseUpC. LoadD. Click186.下列控件可以用作其他控件容器的有___D____.A. 窗体,标签,图片框B. 窗体,框架,文本框C. 窗体,图像,列表框D. 窗体,框架,图片框187.改变驱动器列表框的Drive属性将激活___A____事件.A. ChangeB. ScrollC. KeyDownD. KeyUp188.在窗体上添加一个列表框和一个文本框,然后编写如下两个事件过程:Private Sub Form_Load()List1.AddItem "357"List1.AddItem "246"List1.AddItem "123"List1.AddItem "456"End SubPrivate Sub List1_DblClick()a = List1.TextPrint a + Text1.TextEnd Sub程序运行后,在文本框中输入"789",然后双击列表框中的"456",则输出结果为___B____.A. 1245B. 456789C. 789456D. 0189.在窗体上添加一个文本框,然后编写如下事件过程:Private Sub Form_Load()For i = 1 To 10Sum = Sum + iNext iText1.Text = SumEnd Sub上述程序的运行结果是___A____.A. 在文本框Text1中输出55B. 在文本框Text1中输出0C. 出错D. 在文本框Text1中输出不定值190.对于窗体Form1,执行了Form1.Top=Form1.Top-100语句后,该窗体将___A___.A. 上移B. 下移C. 左移D. 右移191.在窗体上添加一命令按钮Command1,并将其Caption属性设置为cmdAA,名称属性设置为cmdBB,则关于该控件的语句____C___是正确的.A. Command1.Left=100B. cmdAA.Left=100C. cmdBB.Left=100D. 以上语句都不对192.如果每2秒产生一个计时器事件,那么时钟控件的Interval属性应设为___C___. A. 2 B. 200 C. 2000 D. 5000193.窗体上有一个公用对话框CommonDialog1,则语句CommonDialog1.ShowSave的作用是___D____.A. 显示"打开"对话框B. 显示"颜色"对话框C. 显示"字体"对话框D. 显示"另存为"对话框194.在窗体上画一个名称为List1的列表框,一个名称为Label1的标签;列表框中显示若干城市的名称.当单击列表框中的某个城市名时,在标签中显示选中城市的名称.在List1的单击事件过程中能正确实现上述功能的语句是___D____.A. Label1.Caption = List1.ListIndexB. = List1. ListIndexC. = List1.TextD. Label1.Caption = List1.Text195.为清除图片框Picture1中的图形,下列方法正确的是___A____.A. Picture1.Picture=LoadPicture("")B. Set Picture1.Picture=LoadPictureC. Picture1.Picture=LoadPicture("C:\Winap.Bmp")D. Set Picture1.Picture=LoadPicture("C:\Winap.Bmp")196.因修改文本框中的数据而触发的事件是___A____.A. ChangeB. GotFocusC. LostFocusD. SetFocus197.刚建立一个新的标准EXE工程时,不在工具箱中出现的控件是___C____.A. 单选按钮B. 图片框C. 通用对话框D. 文本框198.下面对语句 Open "Rizhi.dat" For Output As #1 的功能描述错误的是___C___.A. 以顺序输出模式打开文件"Rizhi.dat"B. 如果文件"Rizhi.dat"不存在,则建立一个新文件C. 如果文件"Rizhi.dat"已存在,则打开该文件,新写入的的数据将添加到文件末尾D. 如果文件"Rizhi.dat"已存在,则打开该文件,新写入的的数据将覆盖原来的数据199.执行语句Open "Sample.dat" For Random As #1 Len = 50 后,对文件"Sample.dat"中的数据能够进行的操作是___C___.A. 只能写不能读B. 只能读不能写C. 即可以读,也可以写D. 不能读,也不能写200.以下哪个不是VB中的数据文件类型____B___.A. 顺序文件B. 数据库文件C. 随机文件D. 二进制文件201.下列说法错误的是____C___.A. 当用Write # 语句写顺序文件时,文件必须以Output或Append方式打开B. 用Input方式打开一个文件时,对同一个文件可以用几个不同的文件号打开C. 用Output和Append方式打开文件时,不用将文件关闭,就能重新打开文件D. 用Append方式打开文件时,进行写操作,写入文件的数据附加到原来文件的后面202.下面几个关键字均表示文件的打开方式,只能进行读不能写的是___A____.A. InputB. OutputC. RandomD. Append203.下列哪个不是写文件语句___D___.A. PutB. PrintC. WriteD. Output204.以下叙述中正确的是___B___.A. 一个记录中所包含的各个元素的数据类型必须相同B. 随机文件中每个记录的长度是固定的C. Open命令的作用是打开一个已经存在的文件D. 使用Input#语句可以从随机文件中读取数据205.在窗体上添加一个命令按钮Command1和一个文本框Text1,然后编写如下事件过程: Private Sub Command1_Click()Dim s As String * 20s = Text1.Text……End Sub该程序的功能是当单击按钮Command1时,把变量S的内容写入一个顺序文件dat1.dat中, 正确的程序段是___B___.A. Open "dat1.dat" For Input As #1Write #1, sClose #1B. Open "dat1.dat" For Output As #1Write #1, sClose #1C. Open "dat1.dat" For Random As #1Write #1, sClose #1D. Open "dat1.dat" For Binary As #1Write #1, sClose #1206.FileFiles.Pattern="*.dat" 语句执行后,FileFiles文件列表框中显示___A____. A. 只包含文件扩展名为".dat"的文件 B. 第一个dat文件C. 包含所有的文件D. 显示磁盘的路径207.目录列表框的Path属性的作用是___A___.A. 显示当前驱动器或指定驱动器上的路径B. 显示当前驱动器或指定驱动器上的某个目录下的文件名C. 显示根目录下的文件D. 只显示当前路径下的文件208.为了使Drive1驱动器列表框,Dir1目录路径列表框和File1文件列表框同步协调工作, 需要__A__.A. Drive1的Change事件过程中加入Dir1.Path = Drive1.Drive,在Dir1的Change事件中加入 File1.Path = Dir1.Path代码B. Drive1的Change事件过程中加入Dir1.Path =Dir1.Path,在Dir1的Change事件中加入File1.Path = Drive1.Drive代码C. Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive,在Drive1的Change事件中加入File1.Path = File1.FileName代码D. Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive,在Drive1的Change事件中加入File1.Path = Dir1.Path代码209.以下程序运行后,a1.dat文件的内容是___B____.Private Sub Form_Click()Dim f1 As Integer, f2 As Integer, f3 As IntegerOpen "d:\a1.dat" For Output As #1f1 = 2f2 = 3f3 = f2 + f1Write #1, f1 * f2, f2, f3Close #1End SubA. 2,3,3B. 6,3,5C. 2,5,6D. 无内容210.以下能判断是否到达文件尾的函数是___D____.A. BOFB. LOCC. LOFD. EOF211.在一行写多条语句时,每个语句之间用___B___符号分隔.A. ,B. :C. ,D. ;212.VB 6.0作为一种编程语言是基于以下___C____种版本语言.A. FoxBASEB. CC. BASICD. PASCAL213.一条语句要分行书写,用___C____符号作续行符.A. +B. -C. _D. …214.VB 6.0的标准化控件位于IDE(集成开发环境)中的___B___窗口内.A. 工具栏B. 工具箱C. 对象浏览器D. 窗体设计器215.下面___A___是合法的变量名.A. X_yzB. 123abcC. integerD. X-Y216.关于Visual Basic应用程序正确的叙述是___A____.A. Visual Basic程序运行时,总是等待事件被触发B. Visual Basic程序设计就是编写代码C. Visual Basic程序是以线性方式顺序执行的D. Visual Basic的事件可以由用户随意定义,而事件过程是系统预先设置好的217.下列操作不能打开代码编辑窗口的是___D____.A. 选中对象,单击鼠标右键,在弹出菜单中选择"查看代码"B. 选中对象,双击鼠标左键C. 按功能键F7D. 按功能键F4218.保存文件时,窗体的所有数据以___B___存储.A. *.PRGB. *.FRMC. *.VBPD. *.EXE219.下列哪组语句可以将变量a,b的值互换___B____.A. a=b : b=aB. a=a+b : b=a-b : a=a-bC. a=c : c=b : b=aD. a=(a+b)/2 : b=(a-b)/2220.以下程序段执行后,整型变量n的值为___A____.year1 = 2004n = year1 \ 4 + year1 \ 400 - year1 \ 100A. 486B. 496C. 506D. 466221.将一文本框与数据控件相关联,需要设定文本框的___C____属性.A. DataMemberB. DatafieldC. DataSourceD. DataFormat222.窗体Form1上有两个文本框Text1,Text2和一个命令按钮Command1,编写如下两个事件过程:Private Sub Command1_Click()a = Text1.Text + Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text = "123"Text2.Text = "321"End Sub程序运行时点击Command1按钮,窗体上显示的运行结果是___B____.A. 444B. 123321C. 321123D. 132231223.在窗体上添加三个文本框,名称分别为Text1,Text2,Text3,一个命令按钮Command1.如果在Text1中输入150,Text2中输入200,则执行下列程序后,Text3中显示的数为__D__. Private Sub Command1_Click()Dim m As Integer, n As Integerm = Val(Text1.Text)n = Val(Text2.Text)If m < n Thent = m: m = n: n = tEnd IfDor = m Mod nm = nn = rLoop While r 0Text3.Text = Str(m)End SubA. 200B. 150C. 100D. 50224.下列程序是在列表框List1中显示3个学生的名字.用户点击列表框中的某个名字后, 文本框Text1中显示的是___B____.Dim student(0 To 2) As StringDim grade(0 To 2) As SinglePrivate Sub Form_Load()student(0) = "章力" : student(1) = "刘唯" : student(2) = "方红"grade(0) = 92.5: grade(1) = 73 : grade(2) = 84For i = 0 To 2List1.AddItem student(i)Next iList1.ListIndex = 0End SubPrivate Sub List1_Click()。