10vb模拟测试卷1(答案)
全国计算机等级考试二级VB模拟试题1
⼀、选择题（每题2分，共计70分）1.数据的存储结构是指____。
A、存储在外存中的数据B、数据所占的存储空间C、数据在计算机中的顺序存储⽅式D、数据的逻辑结构在计算机中的表⽰A B C D2.下列关于栈的描述中错误的是：____。
A、栈是先进后出的线性表B、栈只能顺序存储C、栈具有记忆作⽤D、对栈的插⼊与删除操作中，不需要改变栈底指针A B C D3.对于长度为n的线性表，在最坏情况下，下列各排序法所对应的⽐较次数中正确的是____。
A、冒泡排序为n/2B、冒泡排序为nC、快速排序为nD、快速排序为n(n-1)/2A B C D4.对长度为n的线性表进⾏顺序查找，在最坏情况下所需要的⽐较次数为____。
A、log2nB、n/2C、nD、n+1A B C D5.下列对于线性链表的描述中正确的是____。
A、存储空间不⼀定是连续，且各元素的存储顺序是任意的B、存储空间不⼀定是连续，且前件元素⼀定存储在后件元素的前⾯C、存储空间必须连续，且前件元素⼀定存储在后件元素的前⾯D、存储空间必须连续，且各元素的存储顺序是任意的A B C D6.下列对于软件测试的描述中正确的是____。
A、软件测试的⽬的是证明程序是否正确B、软件测试的⽬的是使程序运⾏结果正确C、软件测试的⽬的是尽可能多地发现程序中的错误D、软件测试的⽬的是使程序符合结构化原则A B C D7.为了使模块尽可能独⽴，要求____。
A、模块的内聚程度要尽量⾼，且各模块间的耦合程度要尽量强B、模块的内聚程度要尽量⾼，且各模块间的耦合程度要尽量弱C、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强A B C D8.下列描述中正确的是____。
A、程序就是软件B、软件开发不受计算机系统的限制C、软件既是逻辑实体，⼜是物理实体D、软件是程序、数据与相关⽂档的集合A B C D9.数据独⽴性是数据技术的重要特点之⼀。
中职计算机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分，共50分）1．以下不属于Visual Basic系统的文件类型是（）A、.frmB、.batC、.vbgD、.vbp2．Visual Basic中可以用类型说明符来标识变量的类型，其中表示货币型的是_____。
A. %B. #C. @D. $3.与传统的程序设计语言相比较，Visual Basic最突出的特点是（）A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术4．下列标识符不能作为Visual Basic变量的是（）A、Print_n1B、abc%C、ConstD、x1_x2_x35．表达式25 Mod 3+23\5*2的值是（）A、0B、2C、3D、66．将数学表达式Cos2(a+b)+5e2写成Visual Basic表达式正确的是（）A、Cos(a+b)^2+5*exp(2)B、Cos^2(a+b)+5*exp(2)C、Cos(a+b)^2+5*ln(2)D、Cos^2(a+b) +5*ln(2)7．下列程序段的输出结果为（）A=0Print A+1A=3A、1B、-1C、3D、0 8．设a=6,则执行x=IIF(a>5,-1,0)，X的值为（）A、5B、6C、0D、-1 9．关于多行结构条件语句的执行过程，正确的说法是（）A、各个条件所对应的语句中，一定有一个语句块被执行B、找到条件为True的第一个入口，便从此开始执行其后的所有语句块C、若有多个条件为True，则它们对应的语句块都被执行D、多行选择结构中的语句块，有可能任何一个语句块都不被执行10．下列程序段的运行结果为（）For i=3 To 1 Step -1Print Space(5-i);For j=1 To 2*i-1Print "*";Next jPrintNext iA. *B. *****C. *****D. ******** *** *** ******** * * *11.VB应用程序中，下列关于过程的说法正确的是（）A.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套C.过程的定义和调用都可以嵌套D.过程的定义和调用都不能嵌套12.在程序运行期间，当滚动条的滑块被拖动时，则立即触发滚动条的( )事件。
VB模拟试题一
VB模拟试题一一、选择题1．工程文件的扩展名是（）A．.vbg B．。
vbp C．.vbw D．。
vbl2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（）A．窗体文件（。
frm)、项目文件（.vbp/vbw）B．窗体文件（。
frm）、项目文件（。
vbp/vbw）和代码文件（。
bas)C．窗体文件（.frm)、项目文件（。
vbp/vbw)和模块文件(。
bas）D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（。
frx）3．以下关于窗体描述正确的是（）A．只有用于启动的窗体可以有菜单B．窗体事件和其中所有控件事件的代码都放在窗体文件中C．窗体的名字和存盘的窗体文件名必须相同D．开始运行时窗体的位置只能是设计阶段时显示的位置4．VB中控件主要分为3类,下面哪一种不是VB中的控件类（)A．标准控件B．ActiveX C．可插入控件D．外部控件5．在VB的基本数据类型中,通用类型(Variant)可以表示任何类型的变量,如果有定义Dim a,则以下变量赋值中正确的是（）A．a=”OK”B．A＄=OK C．a=04/01/2001 D．a＄=”OK”6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：Private Sub Command1_Click( )A=1。
2C=Len(Str＄（A)+Space（10))Text1.text=CEnd Sub程序运行后，单击命令按钮，在文本框中显示（）A．3 B．8 C．14 D．107．在MsgBox函数中哪一个参数是必须的（）A．prompt B．buttons C．title D．context8．以下语句的输出结果是（）Print Format＄（1234.5,”00,000。
00”)A．1234。
5 B．01，234.50 C．01,234.5 D．1,234.509．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu。
VB计算机测试卷附答案
VB计算机测试卷一、选择题1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术2、赋值语句：a=123 & MID("123456",3,2)执行后，a变量中的值是（）。
A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件，这两个文件分别是（）。
A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（）。
A、="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、下面正确的赋值语句是（）。
A、x+y=30B、y=π*r*rC、y=x+30D、3y=x6、Visual Basic 6.0集成环境的主窗口中不包括（）。
A、标题栏B、菜单栏C、状态栏D、工具栏7．在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是________。
A．B．C．D．8．在Visual Basic集成环境中，要结束一个正在运行的工程,可单击工具栏上的一个按钮,这个按钮是________。
A．B．C．D．9．在设计窗体时双击窗体的任何地方，可以打开的窗口是________。
A．代码窗口B．属性窗口C．工程资源管理器窗口D．工具箱窗口10．以下关系表达式中，其值为True的是______。
A．"XYZ">"XYz" B．"VisualBasic"<>"visualbasic"C．"the"="there" D．"Integer"<"Int"11．若变量a未事先定义而直接使用，则变量a的类型是_______。
VB--2010考题---答案的__南医大(1)(1)
南方医科大学2009学年（春）季学期考试临床医学, 预防医学, 公共事业管理(医院管理), 经济学,《计算机二》试卷（A卷）一、A1型题(答题说明：单句型最佳选择题。
每一道考题下面均有五个备选答案。
在答题时，只需从中选择一个最合适的答案，并在显示器选择相应的答案或在答题卡上相应位置涂黑，以示正确回答。
每题1.5分，合计60分。
)1. Sub过程与Function过程最根本的区别是c 。
A. Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以B. Function过程可以有形参，Sub过程不可以C. Sub过程不能返回值，而Function过程能返回值D. 两种过程参数的传递方式不同2. 执行下面的语句后,所产生的信息框的标题是Ca=MsgBox（"AAAA",5,"BBBB"）A.AAAAB.5C.BBBBD.没有标题3. 下列符号中哪个是VB程序中合法的变量名 AA. ab7B. 7abC. IfD. a*bc4. 设置属性的语句格式为 AA. “对象名．属性名＝属性值”B. “对象名．属性名属性值”C. “窗体名．属性名＝属性值”D. “窗体名．属性名属性值”5. 若用户在键盘上按下一个键，则会产生一个____事件BA. clickB. KeyDownC. DbClickD. Load6. 在密码文本框中，要使从键盘上输入的字符在文本框上显示为“*”，则应用到文本框的______属性。
AA PasswordCharB CaptionC ValueD word7. 标准控件不包括（）控件。
DA. 驱动器列表框B. 目录列表框C. 文件列表框D. 通用对话框8. 下列叙述错误的是（）。
AA 不允许使用行号与标号B 单条语句可分行书写C 同一行上可以书写多条语句D VB代码不区分字母的大小写9. 下列叙述正确的是_____ BA 窗体的Name属性可以为空B 窗体的Name属性定义窗体的名称C 可以在运行期间改变窗体的Name属性D 窗体的Name属性的值显示在窗体标题栏中10. 下列叙述错误的是_____AA 标签和文本框都有Caption属性B 标签和文本框的主要区别在于能否编辑其内容C 标签具有AutoSize属性，而文本框没有D 文本框具有ScrollBar属性，而标签没有11. 能清除文本框Text1中内容的语句是____B _A Text = ""B Text1.Text = ""C Text1.clearD Text1.Cls12. 复选框的Value属性为0表示_____AA 复选框未被选中B 复选框被选中C 复选框内有灰色的钩D 操作出错13. 下列____语句设置单选按钮Option1为选中状态。
国家二级VB机试数据的输入与输出多重窗体与环境应用-试卷1_真题(含答案与解析)-交互
国家二级VB机试（数据的输入与输出、多重窗体与环境应用）-试卷1(总分50, 做题时间90分钟)1. 选择题1.PrintFormat(1234.56,"###.#")语句的输出结果是SSS_SINGLE_SELA 123.4B 1234.6C 1234.5D 1234.56分值: 2答案:B解析：Format函数可以使参数按照指定的格式输出，其格式为：Format$(数值表达式,格式字符串)，该函数的功能是按“格式字符串”指定的格式输出“数值表达式”的值。
其中#代表任意数值，小数部分多余的将进行四舍五入处理。
2.以下不能用Print方法输出数据的对象或窗口是SSS_SINGLE_SELA 窗体B 立即窗口C 图片框D 代码窗口分值: 2答案:D解析：Print方法可以在窗体上显示文本字符串和表达式的值，并且可以在图片框、立即窗口或打印机上输出这些信息。
3.下列程序段的输出结果是x=5 Print x+1;x+1SSS_SINGLE_SELA 6 6B 5 5C 6 7D 5 6分值: 2答案:A解析：Print方法可以在窗体上显示文本字符串和表达式的值，本题中两次输出x+1的值，但是x没有任何变化，因此两次均输出6。
4.语句PrintFormat$(23846.5,"000,000.00")的输出结果是SSS_SINGLE_SELA 23846.5B 23,846.5C 23,846.50D 023,846.50分值: 2答案:D解析：Format函数可以使参数按照指定的格式输出，其格式为：Format$(数值表达式,格式字符串)，该函数的功能是按“格式字符串”指定的格式输出“数值表达式”的值。
其中#代表任意数值，小数部分多余的将进行四舍五入处理，左边不够的位数补0。
5.假定Picture1和Text1分别为图片框和文本框的名称，则下列错误的语句是SSS_SINGLE_SELA Print25B Picture1.Print25C Text1.Print25D Debug.Print25分值: 2答案:C解析：Print方法可以在窗体上显示文本字符串和表达式的值，并且可以在图片框、立即窗口或打印机上输出这些信息，但是不能在文本框中输出。
计算机vb语言模拟试题一含答案
模拟试题一一、单选题1. VB6.0是一种面向的编程环境。
(A) 机器(B) 对象欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(C) 过程(D) 应用2. 以下关于窗体的Name属性的叙述正确的是。
欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(A) 窗体的Name属性可以为空(B) 窗体的Name属性是显示在窗体标题栏中的文本(C) 可以在运行期间改变窗体的Name属性欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(D) 窗体的Name属性指定窗体的名称，用来标识一个窗体3. 若要使命令按钮不可操作，要对属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过事件获得输入键值的ASCII码。
(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面是合法的变量名。
(A) pi (B)π(C) print (D) a+k6. 表达式Int(10*Rnd)产生的随机数的范围是。
(A) [1,9] (B) [1,10](C) [0,10] (D) [0,9]7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 当VB执行下面语句后，变量a的值为。
vb复习题1及答案
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程序设计试题及答案（一）-vb程序设计答案
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分，共15分）1、以下不是VB特点的是。
(A)可视编程 (B)算法设计(C)事件驱动 (D)面向对象2、VB6.0集成开发环境可以。
(A)编辑、调试、运行程序，但不能生成可执行程序(B)编辑、生成可执行程序、运行程序，但不能调试程序(C)编辑、调试、生成可执行程序，但不能运行程序(D)编辑、调试、运行程序，也能生成可执行程序3、窗体文件的扩展名是。
(A).frm (B).vbp (C).bas (D).frx4、双击“窗体设计器”的任意部分，可以打开 _______窗口。
(A)“属性窗口” (B)“代码窗口”(C)“立即窗口” (D)“窗体布局窗口”5、在VB 中最基本的对象是，它是应用程序的基石，是其他控件的容器。
(A)文本框 (B)命令按钮 (C)窗体(D)标签6、下面变量名不合法的是。
(A)a (B)abcd_1 (C)a$x (D)CE7、下面四个选项中，是数值常量的是。
(A)1E6(B)1,E6(C)1*E6(D)1*E-68、合法的长整型常量是。
(A)789% (B)789！ (C)789& D)789#9、表示日期“2012年7月1日”正确的表达式是_________。
（A）{07-01-2012} （B）“07/01/2012”（C）07-01-2012 （D）#07/01/2012#10、以下四类运算符中，优先级最低的是_____。
（A）算术运算符（B）字符运算符（C）关系运算符（D）逻辑运算符11、有如下程序：Private Sub Form_ClickDim a$,b$,s%a=”123456”For i=1 To 6b=Mid(a,i,1)s=s+bNext iPrint sEnd Sub运行时，单击窗体，显示的结果是。
(A) 123456(B) 21(C) 6(D) 错误信息12、数学式[（7.5X+e-3）X-1.5]X-1是。
(A) （(7.5*X+EXP(-3))*X-1.5)）*X-1(B) [(7.5*X+EXP(-3))*X-1.5]*X-1(C) ((7.5*X+e^(-3))*X-1.5)*X-1(D) [(7.5*X+e^(-3))*X-1.5]*X-113、数组声明语句：Dim a(-5 To 5) As integer,则数组a包含的元素个数为。
VB考试1选择题
VB考试1选择题1.以下程序段运⾏的结果是：__35____。
Dim a(-1 To 5) As BooleanDim flag As Booleanflag = FalseDim i As IntegerDim j As IntegerDo Until flag = TrueFor i = -1 To 5j = j + 1If a(i) = False Thena(i) = TrueExit ForEnd IfIf i = 5 Thenflag = TrueEnd IfNextLoopPrint j2.在窗体上画⼀个命令按钮（名称为Command1），编写如下事件过程：Private Sub Command1_Click()b = 5c = 6Print a = b + cEnd Sub程序运⾏后，单击命令按钮，输出的结果是：_false_____。
3.表达式4+5\6*7/8 Mod 9的值是___5___。
4下列可作为Visual Basic变量名的是___contA___。
5.在窗体上画⼀个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分⽀ 1"Case Is >4Print "分⽀ 2"Case ElsePrint "Else 分⽀"End SelectEnd Sub程序运⾏后，如果在输⼊对话框中输⼊2，则窗体上显⽰的是_Else 分⽀_____。
6.执⾏如下语句：a = InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5)将显⽰⼀个对话框，在对话框的输⼊区中a显⽰的信息是__ Yesterday ____。
VB测试题1-2章
VB第一章测试题(1)1、激活主菜单的按键是（）A．F1或Ctrl键 B．Ctrl键或Atl键C．F10或Ctrl键 D．F10或Atl键2．如果设计时在属性窗口将命令按钮的（）属性设置为False，则运行时按钮从窗体上消失．A．Visible B．EnabledC．DisabledPicture D．Default3．退出Visual Basic的快捷键是（）A．Ctrl +Q B．Shift +QC．Alt+Q D．Ctrl+Alt+Q4．除了系统默认的工具箱布局外，在Visual Basic中还可以通过（）方法来定义选项卡组织安排控件．A．在工具箱单击鼠标右键，执行快捷菜单中的“添加选项卡”命令B．执行“文件”菜单中的“添加工程”命令C．执行“工程”菜单中的“添加窗体”命令D．执行“工程”菜单中的“部件”命令5．窗体设计器是用来设计（）A．应用程序的代码段 B．应用程序的界面C．对象的属性 D．对象的事件6．启动Visual Basic后，系统为用户新建的工程起一个名为（）的临时名称．A．工程1 B．窗体1C．工程 D．窗体7．工程资源管理器窗口中包含的文件类型有（）种．A．2 B．3C．4 D．58．Visual Basic的编程机制是（）A．可视化 B．面向对象C．面向图形 D．事件驱动9．Visual Basic集成环境的大部分窗口都可以从主菜单项（）的下拉菜单中找到相应的打开命令．A．编辑 B．视图C．格式 D．调试10．要在窗体上显示图片，需设置窗体的（）属性．A．Caption B．IconC．Picture D．ControlBox11．每个窗体对应一个窗体文件，窗体文件的扩展名是（）A．.bas B．.clsC．.frm D．.vbp12．双击窗体的任何地方，可以打开的窗口是（）A．代码窗口 B．属性窗口 C．工程管理窗口 D．以上3个选项都不对13．工具栏中的“启动”按钮的作用是（）A．运行一个应用程序 B．运行一个窗体C．工程管理窗口 D．打开被选中对象的代码窗口14．运行时，单击窗体将窗体的前景色设置为红色的事件过程是（）A． Private Sub Form_Click( ) B．Private Sub Form_Click( )BackColor=vbRed Form1.ForeColor=vbRedEnd Sub End SubC．Private Sub Form_Click( ) D．Private Sub Form_Click( )Form1.BackColor=vbRed ForeColor=vbRedEnd Sub End Sub15．如果要在命令按钮上显示图形文件，应设置命令按钮的（）A．Style属性和Graphics属性 B．Style属性和Picture属性C．Picture属性D．Graphics属性16．英文缩写OLE的含义是（）A．面向对象程序设计 B．对象链接C．对象嵌入 D．对象链接与嵌入17．在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示（）事件过程模板．A．Form_Click B．Form_Load C．Form1_Click D．Form1_Load18．每建立一个窗体，工程管理器窗口中就会增加一个（）A．工程文件 B．窗体文件C．程序模块文件 D．类模块文件19．激活属性窗口使用的键是（）A．F2 B．F3 C．F4 D．F520．Visual Basic是一种（）程序设计语言．A．过程式 B．非过程式C．机器 D．低级21．不能在运行期间设置窗体的（）属性．A．BorderStyle B．Caption C．Icon D．MaxButton22．设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）A．cmdc B．cmdb C．cmdA D．Command1二、填空题1. 如果要在单击钮时执行一段代码，则应将这段代码写在_______________事件过程中．2. 一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示___________文件；扩展名为.frm的文件表示_____________文件；扩展名为.bas的文件表示_____________文件；包含ActiveX控件的文件扩展名为__________．3. Visual Basic 6.0用于开发__________环境下的应用程序．如果要使用命令按钮表面显示文字“退出（X）”（在字符X之下加下划线），则其Caption属性设置为___________，其括号中的X表示在运行时按下____________键与单击该按钮效果相同．打开“工程窗口”的方法之一是按下______________组合键．Visual Basic的控件通常分为3种类型，即___________、___________、____________．其中，____________不能从工具箱中被删除，_____________单独保存在.OCX文件中，在必要进可以加入到工具箱中．VB第一章测试题(2)一、选择题1. 标准模块文件的扩展名为_________。
VB对口升学模拟试题一
计算机三年级VB对口升学模拟试题一一、选择题（每题2分，共50分）1．以下不属于Visual Basic系统的文件类型是（）A、.frmB、.batC、.vbgD、.vbp2．Visual Basic中可以用类型说明符来标识变量的类型，其中表示货币型的是_____。
A. %B. #C. @D. $3.与传统的程序设计语言相比较，Visual Basic最突出的特点是（）A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术4．下列标识符不能作为Visual Basic变量的是（）A、Print_n1B、abc%C、ConstD、x1_x2_x35．表达式25 Mod 3+23\5*2的值是（）A、0B、2C、3D、66．将数学表达式Cos2(a+b)+5e2写成Visual Basic表达式正确的是（）A、Cos(a+b)^2+5*exp(2)B、Cos^2(a+b)+5*exp(2)C、Cos(a+b)^2+5*ln(2)D、Cos^2(a+b) +5*ln(2)7．下列程序段的输出结果为（）A=0Print A+1A=3A、1B、-1C、3D、0 8．设a=6,则执行x=IIF(a>5,-1,0)，X的值为（）A、5B、6C、0D、-1 9．关于多行结构条件语句的执行过程，正确的说法是（）A、各个条件所对应的语句中，一定有一个语句块被执行B、找到条件为True的第一个入口，便从此开始执行其后的所有语句块C、若有多个条件为True，则它们对应的语句块都被执行D、多行选择结构中的语句块，有可能任何一个语句块都不被执行10．下列程序段的运行结果为（）For i=3 To 1 Step -1Print Space(5-i);For j=1 To 2*i-1Print "*";Next jPrintNext iA. *B. *****C. *****D. ******** *** *** ******** * * *应用程序中，下列关于过程的说法正确的是（）A.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套C.过程的定义和调用都可以嵌套D.过程的定义和调用都不能嵌套12.在程序运行期间，当滚动条的滑块被拖动时，则立即触发滚动条的( )事件。
VB实验教材习题答案 (1)
第1章VB集成环境与VB概述一、选择题第2章常用控件与界面设计一、选择题第3章数据、表达式与简单程序设计一、选择题第4章选择分支与循环一、选择题二、填空题1．5 7 13 12 14 112. 3 1 5 3 4 13. right(a$,i)4. 45. 6-i6. 6 11 10 21 13 347. 5 14 138. Is else end select9. a*(2*i-1)*(-1)*x/(2*i+2) i+110. 0 n-111. 1 t*(-1)*x^2/((2*k-1)*(2*k)) Abs(t)>eps12. count1=count+1 count1>013. sum=0 sum+j st & k & “+”14. 9 x三、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim s As String, i As Integer, ch As String * 1Dim a As Integer, b As Integer, c As Integers = Text1.TextFor i = 1 To Len(s)ch = Mid(s, i, 1)If (ch >= "0" And ch <= "9") Thena = a + 1ElseIf (ch >= "A" And ch <= "Z") Or (ch >= "a" And ch <= "z") Thenb = b + 1Elsec = c + 1End IfNextPrint "数字个数"; aPrint "字符个数"; bPrint "其他字符"; cEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, n As IntegerDim a As Integer, b As Integer, c As IntegerFor i = 1 To 50n = Int(Rnd * 90 + 10)Print n;If i Mod 10 = 0 Then PrintIf n <= 40 Thena = a + 1ElseIf n <= 70 Thenb = b + 1Elsec = c + 1End IfNext iPrint "小于等于40的个数："; aPrint "大于40小于等于70的个数："; bPrint "大于70的个数："; cEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim x As SingleDim t As Long, n As Integerx = 1t = 1n = 1Do While 1 / t >= 0.0001x = x + 1 / tn = n + 1t = t * nLoopPrint xEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim k As Integer, sum As Integer, i As Integerk = InputBox("请输入一个正整数k", "输入框")For i = 1 To Len(CStr(k))sum = sum + Mid(k, i, 1)Next iMsgBox k & "的各位数字之和" & sumEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, iSum As LongFor i = 1 To 20iSum = iSum + i ^ 4NextPrint iSumEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As IntegerDim sum1 As Integer, sum2 As LongDim i As Integer, j As IntegerFor a = 2 To 3000sum1 = 0sum2 = 0For i = 1 To a \ 2If a Mod i = 0 Then sum1 = sum1 + i Next ib = sum1For j = 1 To b \ 2If b Mod j = 0 Then sum2 = sum2 + j Next jIf sum2 = a And a < b Then Print a, bNextEnd Sub7.Private Sub Command1_Click() '打印菱形Dim i As Integer, j As IntegerClsFor i = 1 To 6 '打印菱形上边6行Print Tab(20);Print Spc(6 - i);For j = 1 To 2 * (i - 1) + 1If j = 1 Or j = 2 * (i - 1) + 1 ThenPrint "*";ElsePrint " ";End IfNext jPrintNext iFor i = 5 To 1 Step -1 '打印下半部分Print Tab(20);Print Spc(6 - i);For j = 1 To 2 * (i - 1) + 1If j = 1 Or j = 2 * (i - 1) + 1 ThenPrint "*";ElsePrint " ";End IfNext jPrintNext iEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, j As Integer, iSum As IntegerPrint "连续和为1250的正整数是："For i = 1 To 500iSum = 0For j = i To 500iSum = iSum + jIf iSum >= 1250 Then Exit ForNextIf iSum = 1250 ThenPrint i; " ～"; jEnd IfNextEnd Sub9.Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerFor a = 1 To 50For b = a To 50For c = b To 50If a ^ 2 + b ^ 2 = c ^ 2 ThenPrint a, b, cEnd IfNext cNext bNext aEnd Sub第5章数组一、选择题二、填空题1.Variant2.ReDim A(N)A(1)If M < A(I) Then M = A(I)3.Int(26 * Rnd) + 65Chr(t)i + 1 To 10A(i) > A(j)4.InStr(s, ",")Right(s, Len(s) - n)s5.T – 1I + 16.k = 6 - i – jmax = m7.j = 48j = j-38.i + 1i = i + 19. 23710. 3103511.numi + 1a(j)=temp三、编程题1.Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim i As Integer, max As IntegerFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next iPrinti = 1max = 0Do While i <= 10If a(i) Mod 3 = 0 ThenIf a(i) > max Thenmax = a(i)End IfEnd Ifi = i + 1LoopIf max = 0 ThenPrint "无要找的数"ElsePrint max & "是最大的能被3整除的数"End IfEnd Sub2．Option ExplicitOption Base 1Private Sub Command1_Click()Dim A() As IntegerDim I As Integer, m As IntegerDim K As IntegerReDim A(10)Print "原数组:";For I = 1 To 10A(I) = IPrint A(I);Next IPrintm = InputBox("????m")K = 9 + mReDim Preserve A(K)For I = 11 To KA(I) = A(I - 10)Next IFor I = 1 To 10A(I) = A(I + m - 1)Next IPrint "平移后的数组:";For I = 1 To 10Print A(I);Next IPrintEnd Sub3．Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, J As Integer, K As IntegerDim a() As Integer, n As Integer, p As Integer Dim s As String, Flag As Booleanp = 1For K = 10 To 100I = 1Do While I <= 10 And Not FlagJ = 1Do While J <= 10 And Not Flagn = I ^ 2 + J ^ 2If n = K ThenFlag = TrueReDim Preserve a(p)a(p) = Kp = p + 1s = I & Str(J) & Str(K)List1.AddItem sEnd IfJ = J + 1LoopI = I + 1LoopFlag = FalseNext KEnd Sub4．Option ExplicitPrivate Sub Command1_Click()Dim A(10) As IntegerDim B(10) As Integer, S As StringDim I As Integer, J As Integer, X As IntegerA(1) = Int(90 * Rnd) + 10S = A(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = A(J) Then Exit ForNext JIf J = I ThenA(I) = XS = S & " " & A(I)Exit DoEnd IfLoopNext IText1.Text = SB(1) = Int(90 * Rnd) + 10S = B(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = B(J) Then Exit ForNext JIf J = I ThenB(I) = XS = S & " " & B(I)Exit DoEnd IfLoopNext IText2.Text = SS = ""For I = 1 To 10For J = 1 To 10If A(I) = B(J) ThenS = S & " " & A(I)End IfNext JNext IIf S = "" ThenText3.Text = "没有重复"ElseText3.Text = SEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub5．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As IntegerDim a() As Integer, K As Integer, Sum As Integer K = Val(Text1.Text)I = 1DoJ = K Mod 10ReDim Preserve a(I)a(I) = JSum = Sum + JK = K \ 10I = I + 1Loop Until K = 0Text2.Text = SumEnd Sub6．Option ExplicitPrivate Sub Command1_Click()Dim a(100, 2) As Integer, K As IntegerDim I As Integer, J As IntegerDim M As Integer, N As IntegerK = 1For I = 1 To 99For J = 1 To 99If I > J ThenM = I - JN = I + JIf Sqr(M) = Int(Sqr(M)) And Sqr(N) = Int(Sqr(N)) ThenList1.AddItem I & " " & Ja(K, 1) = Ia(K, 2) = JK = K + 1End IfEnd IfNext JNext IEnd Sub7．Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click() '生成数组并显示Dim i As Integer, j As IntegerPicture1.ClsPicture2.ClsPicture3.ClsRandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(90 * Rnd) + 10Picture1.Print a(i, j);NextPicture1.PrintNextEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, max As IntegerDim b(5) As Integer, c(5) As IntegerFor i = 1 To 5max = a(i, 1)For j = 1 To 5If max < a(i, j) Thenmax = a(i, j)End Ifb(i) = maxIf max = a(i, j) Then c(i) = jNext jNext iFor i = 1 To 5Picture2.Print b(i)Picture3.Print c(i)NextEnd Sub8．Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click() '生成数组并显示Dim i As Integer, j As IntegerPicture1.ClsPicture2.ClsLabel3.Caption = "最大值?"Label4.Caption = "最小值?"RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(90 * Rnd) + 10Picture1.Print a(i, j);NextPicture1.PrintNextEnd SubPrivate Sub Command2_Click() '交换并显示Dim i As Integer, j As Integer, t As IntegerDim maxi As Integer, mini As Integer, max As Integer, min As Integer max = 10: min = 99For i = 1 To 5For j = 1 To 5If max < a(i, j) Thenmax = a(i, j)maxi = iEnd IfIf min > a(i, j) Thenmin = a(i, j)mini = iEnd IfNextNextIf maxi <> mini ThenFor j = 1 To 5t = a(maxi, j)a(maxi, j) = a(mini, j)a(mini, j) = tNext jFor i = 1 To 5For j = 1 To 5Picture2.Print a(i, j);NextPicture2.PrintNextLabel3.Caption = "最大值" & max & "在第" & maxi & "行"Label4.Caption = "最小值" & min & "在第" & mini & "行"ElsePicture2.Print "最小值和最大值在一行"Label3.Caption = "最大值" & max & "在第" & maxi & "行"Label4.Caption = "最小值" & min & "在第" & mini & "行"End IfEnd SubPrivate Sub Form_click()Picture1.ClsPicture2.ClsLabel3.Caption = ""Label4.Caption = ""End Sub9．Option Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, a() As Integern = InputBox("请输入一个奇数N：")If n Mod 2 = 0 ThenMsgBox ("请重新输入奇数！")End IfReDim a(n, n)For i = 1 To nFor j = 1 To nIf i = (n + 1) / 2 And j = (n + 1) / 2 Thena(i, j) = -1ElseIf i = j Or i + j = n + 1 Thena(i, j) = 1Elsea(i, j) = 0End IfNext jFor i = 1 To nFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd Sub10．Option Base 1Dim a(10) As IntegerPrivate Sub Command1_Click()Dim i As IntegerPrint "生成的数组："RandomizeFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);NextPrintEnd SubPrivate Sub Command2_Click()Dim i As Integerx = InputBox("请输入要删除的数组元素下标：") Print "删除第" & x & "个数组元素后："For i = x + 1 To 10a(i - 1) = a(i)NextFor i = 1 To 9Print a(i);NextEnd Sub11．Option ExplicitDim a(20) As Integer, i As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 20a(i) = Int(Rnd * 9) + 1Text1 = Text1 & a(i) & " "If i = 10 Then Text1 = Text1 & vbCrLf NextPrivate Sub Command2_Click()Dim j As Integer, k As Integer, b(20) As Boolean 'b(2)用来记录a(2)是否和前面的数相同，相同记为true，不再统计For i = 1 To 20k = 1If b(i) = False Then '如果b(i)=False，表示a(i)没有被统计过For j = i + 1 To 20If a(i) = a(j) Thenk = k + 1b(j) = TrueEnd IfNext jList1.AddItem a(i) & "出现次数:" & kEnd IfNextEnd SubPrivate Sub Command3_Click()Text1 = ""List1.ClearEnd Sub第6章过程一、选择题二、填空题1. 6 .2. 4 20 1013.第一行是 6 26 、第三行是-2 984.第一行10 6 、第二行 5 -55.第一行 6 5 、第三行8 76.第一行11 、第二行77.Fun(i)Fun=p8.第一行 4 、第二行2079.第一行29 、第二行28.710.J=kb( ) As Integerb( k-1) =b(k)i11.第一行gec 、第二行ge 、第四行 312.p1 = True And p2 = True 或p1 And p2= isp(i)Isp = Truem Mod i = 013.Convert(st)Len(s)"A" To "F"k = k + p * h14.isualVisualVisu15.s + an + 1x As Single, n As Integer 、p * (x + i) / ((2 * i - 1) * i * x)16.27617.Left(s, 1)Mid(s, i - 1, 1) = Mid(s, i, 1)n = 1c & CStr(n)18.chtempTrue19.val(mid(s,i,j))n as longprime=True20.A(2,2)的值是 6 ，A(3,1) 的值是8 ；A(4,2) 的值是 321.Option1(i)X22.1023.第一行7 6 ，第二行16 16 ，第三行，4524.第一行15 1 ，第二行35 3 ，第三行，50三、改错题1、Option Base 1Private Sub Command1_Click()Dim A() As Integer, I As Integer, J As Integer, Logic As Boolean Dim K As IntegerReDim A(1)A(1) = 50————————'K=1For I = 51 To 149K = 1 '位置错Logic = FalseCall Sub1(A, I, Logic)If Logic ThenK = K + 1ReDim A(K) 'ReDim Preserve A(K)A(K) = IEnd IfNext IFor I = 1 To UBound(A)Text1 = Text1 & Str$(A(I))If I Mod 5 = 0 Then Text1 = Text1 & vbCrLfNext IEnd SubPrivate Sub Sub1(A() As Integer, N As Integer, F As Boolean) Dim I As Integer, J As Integer, Ub As IntegerUb = UBound(A)For I = 1 To UbFor J = 2 To A(I)If A(I) Mod J = 0 And N Mod J = 0 ThenExit For 'Exit SubEnd IfNext JF = TrueNext IEnd Sub2、Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, Flg As Boolean, S1 As Integer, S2 As IntegerDim J As Integer, K As Integer, P() As IntegerReDim P(1)P(1) = 2For I = 3 To 150 Step 2For J = 2 To Sqr(I)If I Mod J = 0 Then Exit ForNext JIf J > Sqr(I) ThenReDim Preserve P(UBound(P) + 1)P(UBound(P) + 1) = I 'P(UBound(P)) = IEnd IfNext IFor I = 80 To 125If fun(I, P, S1, S2) Then 'If fun(I, P, S1, S2)Text1 = Text1 & Str$(I) & "=" & Str(S1) & "*" & Str$(S2) & vbCrLf End IfNext IEnd SubPrivate Function fun(N As Integer, P() As Integer, S1 As Integer, S2 As Integer) As Boolean Dim I As Integer, J As IntegerFor I = 1 To UBound(P)For J = 1 To UBound(P) - 1If N = P(I) * P(J) ThenS1 = P(I)S2 = P(J)'fun = TrueExit Functionfun = True '位置错End IfNext JNext IEnd Function3、Option ExplicitPrivate Sub Get_Chess(Chess() As Integer, idx As Integer, Over As Integer) 'ByVal idx As IntegerDim Ub As Integer, Counter As Integer, K As IntegerUb = UBound(Chess)Chess(idx) = 0Counter = 1K = 0 '位置错Do Until Counter = Ub - 1Do Until K = 2idx = idx + 1If idx > Ub Then idx = 1K = K + Chess(idx)LoopChess(idx) = 0Counter = Counter + 1LoopFor Over = 1 To UbIf Chess(Over) <> 0 Then Exit ForNext OverEnd SubPrivate Sub Command1_Click()Dim Chess(32) As Integer, I As Integer, J As IntegerDim K As Integer, idx As IntegerFor I = 1 To 32For J = 1 To 32Chess(J) = 1Next JCall Get_Chess(Chess, I, K)If K = 23 ThenText1 = "从第" & Str$(I) & "号棋子开始取"Exit ForEnd IfNext IEnd Sub4、Option ExplicitPrivate Sub Form_Click()Dim S As String, Flg As BooleanDoS = InputBox("输入一个自然数")If S = "" Or Not IsNumeric(S) ThenMsgBox "请重新输入", 48 + vbOKOnlyElseExit DoEnd IfLoopjudge(S, Flg) ' Call judge(S, Flg) 或judge S, Flg If Flg ThenPrint S; "是回文数"ElsePrint S; "不是回文数"End IfEnd SubPrivate Sub judge(Ch As String, F As Boolean)Dim L As Integer, I As IntegerL = Len(Ch)F = True ' F = FalseFor I = 1 To LIf Mid$(Ch, I, 1) <> Mid$(Ch, L + 1 - I, 1) Then Exit Sub Next IF = False ' F = TrueEnd Sub四、编程题1.Private Function Prime(a As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(a)If a Mod i = 0 Then Exit FunctionNext iPrime = TrueEnd Function'方法一Private Sub Command1_Click()Dim m As Integer, i As Integerm = InputBox("请输入一个大于2 的偶数")If m <= 2 Or m Mod 2 <> 0 Then MsgBox "请输入大于2的偶数": Exit Sub If Prime(2) And Prime(m - 2) ThenPrint m & "=2 +" & m - 2ElseDoi = i + 1If Prime(2 * i + 1) And Prime(m - (2 * i + 1)) ThenPrint m & "=" & 2 * i + 1 & "+" & m - (2 * i + 1)Exit DoEnd IfLoop While 2 * i + 1 < m - (2 * i + 1)End If'方法二Private Sub Command2_Click()Dim m As Integer, i As Integer, p() As Integer, n As IntegerDim flg As Booleanm = InputBox("请输入大于2的偶数")If m <= 2 Or m Mod 2 <> 0 Then MsgBox "请输入大于2的偶数": Exit Sub ReDim p(1)p(1) = 2n = 1For i = 3 To m - 2 Step 2If Prime(i) Thenn = n + 1ReDim Preserve p(n)p(n) = iEnd IfNext iFor i = 1 To nFor j = 1 To nIf p(i) + p(j) = m ThenPrint m & "=" & p(i) & "+" & p(j)flg = TrueExit ForEnd IfNext jIf flg = True Then Exit ForNext iEnd Sub2．Private Function Fact(a As Integer) As LongIf a = 0 Or a = 1 ThenFact = 1ElseFact = a * Fact(a - 1)End IfEnd FunctionPrivate Sub Command1_Click()Dim n As Integer, m As Integer, result As Singlen = Val(Text1.Text)m = Val(Text2.Text)If n >= m Thenresult = Fact(n) / Fact(m) / Fact(n - m)Text3.Text = resultMsgBox "要求n>=m,请重新输入"Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub3．Private Function Istgs(n As Integer) As BooleanDim s As String, L As IntegerL = Len(CStr(n))s = CStr(n ^ 2)If Right(s, L) = n Then Istgs = TrueEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerFor n = 10 To 300If Istgs(n) Then List1.AddItem n & "^2" & "=" & n ^ 2 Next nEnd SubPrivate Sub Command2_Click()EndEnd Sub4．Private Sub Command1_Click()Dim a(3, 4) As Integer, i As Integer, j As IntegerDim m As Integer, mj As IntegerRandomizeFor i = 1 To 3For j = 1 To 4a(i, j) = Int(900 * Rnd + 100)Print a(i, j);Next jPrintNext iFor i = 1 To 3m = 0Call max(a, i, m, mj)Print "第" & i & "行最大值为" & m & ",在第" & mj & "列"Next iEnd SubPrivate Sub max(a() As Integer, i As Integer, m As Integer, maxj As Integer) Dim j As Integerm = a(i, 1): maxj = 1For j = 2 To UBound(a, 2)If a(i, j) > m Thenm = a(i, j)maxj = jEnd IfNext jEnd SubPrivate Sub Command2_Click()EndEnd Sub5．Private Function Judge(n As Integer) As BooleanDim sum As Integersum = yz(n)If yz(sum) = 2 * n Then Judge = TrueEnd FunctionPrivate Function yz(n As Integer) As IntegerDim i As IntegerFor i = 1 To nIf n Mod i = 0 Then yz = yz + iNext iEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 500If Judge(n) Then Print nNext nEnd SubPrivate Sub Command2_Click()EndEnd Sub6．Private Sub Command1_Click()Dim n As Integer, j As Integer, flg As BooleanFor n = 2 To 30flg = FalseFor j = 2 To nIf pfs(j) And n Mod j = 0 Thenflg = TrueExit ForEnd IfNext jIf flg = False Then Print n;Next nEnd SubPrivate Function pfs(n As Integer) As BooleanIf Sqr(n) = Int(Sqr(n)) Then pfs = TrueEnd Function7．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd Function'判断某数是否为回文数Private Function Hws(n As Long) As BooleanDim i As Integer, s As String, L As Integers = CStr(n): L = Len(s)For i = 1 To Len(s) / 2If Mid(s, i, 1) <> Mid(s, L + 1 - i, 1) Then Exit Function Next iHws = TrueEnd FunctionPrivate Sub Command1_Click()Dim x As Long, t As Longx = InputBox("请输入一个正整数：")t = xDo While Hws(t) = FalsePrint t; "+"; fxs(t); "="; t + fxs(t)t = t + fxs(t)LoopEnd Sub8．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd FunctionPrivate Sub Command1_Click()Dim n As Long, t As LongFor n = 1 To 999t = fxs(n)If t ^ 2 = fxs(n ^ 2) And n Mod 10 <> 0 And n < t ThenList1.AddItem n & " " & tList2.AddItem n & "^2" & "=" & n ^ 2 & " " & t & "^2" & "=" & t ^ 2 End IfNext nEnd Sub9．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd FunctionPrivate Function Judge(n As Integer) As BooleanDim i As Integer, L As Integer, a(9) As Integer, t As IntegerIf Sqr(n) = Int(Sqr(n)) ThenL = Len(CStr(n))For i = 1 To Lt = Mid(CStr(n), i, 1)a(t) = 1Next iFor i = 0 To 9Sum = Sum + a(i)Next iIf Sum = L - 1 Then Judge = TrueEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerFor a = 300 To 2000If Judge(a) Then List1.AddItem aNext aEnd Sub10．Private Function F(n As Integer) As BooleanDim i As IntegerFor i = 1 To Len(CStr(n))If i Mod 2 = 1 And Mid(CStr(n), i, 1) Mod 2 <> 1 Then Exit FunctionIf i Mod 2 = 0 And Mid(CStr(n), i, 1) Mod 2 <> 0 Then Exit Function Next iF = TrueEnd FunctionPrivate Sub Command1_Click()Dim a(8) As Integer, i As Integer, j As IntegerRandomizeDot = Int(900 * Rnd + 100)For j = 1 To iIf t = a(j) Then Exit ForNext jIf j = i + 1 Theni = i + 1a(i) = tList1.AddItem a(i)If F(a(i)) Then List2.AddItem a(i)End IfLoop Until i = 8End SubPrivate Sub Command2_Click()List1.ClearList2.ClearEnd SubPrivate Sub CmdEnd_Click()EndEnd Sub11．Private Function prime(a As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(a)If a Mod i = 0 Then Exit FunctionNext iprime = TrueEnd FunctionPrivate Function nx(n As Integer) As IntegerDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext inx = Val(s)End FunctionPrivate Sub Command1_Click()Dim n As Integer, t As IntegerFor n = 100 To 900t = nx(n)If prime(n) And prime(t) And n < t ThenList1.AddItem "(" & n & "," & t & ")"End IfNext nEnd SubPrivate Sub Command2_Click()List1.ClearEnd Sub12．Option Base 1Dim a(4, 5) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As IntegerRandomizeFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 90 + 10)Picture1.Print a(i, j);Next jPicture1.PrintNext iEnd SubPrivate Sub Fp(a() As Integer, i As Integer, maxj As Integer, Flg As Boolean) Dim max As Integer, j As Integer, t As Integermax = a(i, 1): maxj = 1For j = 2 To UBound(a, 2)If a(i, j) > max Thenmax = a(i, j)maxj = jEnd IfNext jFor t = 1 To UBound(a, 1)If a(t, maxj) > max ThenFlg = FalseExit SubEnd IfNextFlg = TrueEnd SubPrivate Sub Command2_Click()Dim i As Integer, m As Integer, mj As Integer, f As BooleanFor i = 1 To 4f = Falsem = 0: mj = 0Call Fp(a, i, mj, f)If f = True ThenText1.Text = Text1.Text & "(" & i & "," & mj & "):" & a(i, mj) & vbCrLf End IfNext iEnd SubPrivate Sub Command3_Click()Picture1.ClsText1 = ""End Sub13．Private Sub Command1_Click()Dim a(30) As Integer, i As Integer, j As IntegerDim Flag As BooleanRandomizeDot = Int(900 * Rnd + 100)For j = 1 To iIf t = a(j) Then Exit ForNext jIf j = i + 1 Theni = i + 1a(i) = tText1.Text = Text1.Text + Str(a(i))If i Mod 10 = 0 Then Text1.Text = Text1.Text + vbCrLfIf IsDown(a(i)) ThenList1.AddItem a(i)Flag = TrueEnd IfEnd IfLoop Until i = 30If Flag = False Then List1.AddItem "无降序数"End SubPrivate Function IsDown(n As Integer) As BooleanDim i As Integer, S As StringS = CStr(n)For i = 1 To Len(S) - 1If Mid(S, i, 1) < Mid(S, i + 1, 1) Then Exit FunctionNext iIsDown = TrueEnd FunctionPrivate Sub Command2_Click()List1.ClearText1 = ""End Sub14．Option ExplicitPrivate Sub CmdFind_Click()Dim i As Integer, p As String, st As String, st1 As StringFor i = 100 To 999st = ""If csum(i) = zyz(i, st) Thenp = CStr(i)st1 = Left(p, 1) & "+" & Mid(p, 2, 1) & "+" & Right(p, 1)List1.AddItem i & ": " & st1 & "=" & Left(st, Len(st) - 1)End IfNext iIf List1.ListCount = 0 ThenList1.AddItem "无满足要求的数!"End IfEnd SubPrivate Function csum(m As Integer) As Integer '求各位数字之和Dim i As Integer, p As Stringp = CStr(m)For i = 1 To Len(p)csum = csum + Val(Mid(p, i, 1))Next iEnd FunctionPrivate Function zyz(ByVal m As Integer, st As String) As Integer '求所有质因子之和Dim i As Integeri = 2DoIf m Mod i = 0 Thenzyz = zyz + ist = st & i & "+"m = m \ iElsei = i + 1End IfLoop Until m = 1End Function15．Private Sub Command1_Click()Dim k As Integer, i As Integerk = InputBox("请输入要求的数列项数：")List1.AddItem "共输出前" & k & "项数列"For i = 0 To kList1.AddItem p(i)NextEnd SubPrivate Function p(n As Integer) As IntegerIf n = 0 Or n = 1 Or n = 2 Thenp = 1Elsep = p(n - 2) + p(n - 3)End IfEnd Function第7章文件一、选择题二、填空题1．顺序文件和随机文件2． EOF3． Write和Print4．返回或设置当前的工作目录5．5116．文件的写语句7．Append8．LOF9．关闭10．Pattern11．【1】For Input 【2】#2 【3】Not EOF(2) 12．【1】”END”【2】Text1.Text 或者Text113．【1】Input 【2】ch 【3】Len(mystr) 14．【1】Number 【2】s15．【1】For Append As #1 【2】"end" 【3】ct,nt 16．【1】For Input 【2】For Output As #2 【3】Not EOF(1) 【4】Line Input #1,str1 【5】Close #1,#2 【6】Kill “C:\old.txt 17．【1】Open "C:StuData．txt" For OutPut As #1 【2】Write 18．【1】"C:\data.txt" 【2】#1, a(i) 【3】k>1 And a(k-1)>b 【4】k = k -1三、综合题1．Option Base 1Dim arr(100) As IntegerPrivate Sub Command1_Click()Dim i As IntegerOpen "c:\in18.txt" For Input As #6For i = 1 To 100Input #6, arr(i)Next iClose #6End SubPrivate Sub Command2_Click()Dim i As IntegerText1.Text = ""Open "c:\out18.txt" For Output As #8For i = 1 To 100If arr(i) Mod 2 <> 0 ThenText1.Text = Text1.Text & Str(arr(i))Write #8, arr(i)End IfNext iClose #8End Sub2．Dim str As StringDim n As LongPrivate Sub Command1_Click()CommonDialog1.Filter = "文本文件(*.txt)|*.txt|All Files(*.*)|*.*"CommonDialog1.FilterIndex = 1CommonDialog1.Action = 1Open CommonDialog1.FileName For Input As #2n = LOF(2)str = Input(n, #2)Text1.Text = strClose #2End SubPrivate Sub Command2_Click()Dim i As IntegerFor i = 1 To Len(str)If Asc(Mid(str, i, 1)) <= Asc("Z") And Asc(Mid(str, i, 1)) >= Asc("A") Then Mid(str, i, 1) = LCase(Mid(str, i, 1))ElseIf Asc(Mid(str, i, 1)) <= Asc("z") And Asc(Mid(str, i, 1)) >= Asc("a") Then Mid(str, i, 1) = UCase(Mid(str, i, 1))End IfNext iText1.Text = strEnd SubPrivate Sub Command3_Click()Open "D:\out.txt" For Output As #3Print #3, strClose #3End Sub第8章程序调试一．选择题二．改错题1.a(i)=int(Rnd*19)+1 →a(i)=int(rnd*20)+1For l=1 to a(i)+1 →for i=2 to a(i)+1If l=a(i) →if l <> a(i)K=k+1 →k=k-1。
VB期末考试试题及答案 (1)
V B期末考试试题及答案(1)------------------------------------------作者------------------------------------------日期第一部分：客观题一、单项选择题、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ）✌、 ♓❍ 、 ◆♌●♓♍ 、 ❒♓❖♋♦♏ 、♦♋♦♓♍、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）✌、工程资源管理器窗口 、工具箱窗口、 属性窗口 、代码窗口、若要使某可见控件获得焦点，可使用（ ）方法来实现。
Ａ、 ♏♐❒♏♦♒ Ｂ、 ♏♦♐☐♍◆♦ Ｃ、☝☐♦♐☐♍◆♦ Ｄ、✞♋●◆♏ 、下列不可作为✞变量名的是（）✌、✌❆ 、✌●☐♒♋ 、✌ 、✉♏●♦♋、表达式 ☐♎ ✉的值是 （）✌、 、 、、 、下列语句中，正确的赋值语句是（ ）✌、 ♓ 、 ♓ 、 ♓ 、 ♓ ✉ 、执行下列程序段后，⌧的值是（ ）。
⏹ ⌧ ♓ ☐⌧ ⌧ ✉ ♓♓ ♓ ☹☐☐☐ ♒♓●♏ ♓ ⏹✌、 、 、 、 、当用户在窗体上单击鼠标时，不会触发的事件是（）Ａ、 ●♓♍ Ｂ、 ☐◆♦♏☐♦⏹ Ｃ、 ☐◆♦♏✞☐ Ｄ、♌●●♓♍、下列为整型变量的是（ ）✌、 ⌧✐ 、 ⌧✁ 、⌧ 、 ⌧、要从☞☐❒循环中直接退出循环，可使用的语句☎ ✆。
✌、☜⌧♓♦ ☐ 、☜⌧♓♦ ☹☐☐☐ 、☜⌧♓♦ ☞☐❒ 、 ♦☐☐、下列逻辑表达式中，能正确表示条件“⌧，⍓都是奇数”的是（）✌、⌧ ☐♎ ❒ ⍓ ☐♎ 、⌧ ☐♎ ❒ ⍓ ☐♎ 、⌧ ☐♎ ✌⏹♎ ⍓ ☐♎ 、⌧ ☐♎ ✌⏹♎ ⍓ ☐♎ 、在通用声明中给出 ☐♦♓☐⏹ ♋♦♏ 语句，则数组♋包含（ ）个数组元素。
VB试卷库1
A. 0
B.1
C. 2
D. 3
第页总页
出卷教师
------金陵科技学院考试卷
11．若要向列表框添加列表项，可使用的方法是（ ）
Ａ．Add
Ｂ．Remove Ｃ．Clear Ｄ．AddItem
12.下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是（ ）。
A.List1.ListCount B.Text1.Index C. Dir1.Path bel1.Visible
７．文本框的（ ）属性用于设置或返回文本框中的文本内容。
Ａ．Text Ｂ．(名称) Ｃ．Caption Ｄ．Name
８．计时器控件的（ ）属性用于设置 Timer 事件发生的时间间隔。
Ａ．Stretch Ｂ．Interval Ｃ．Value Ｄ．Length
９．滚动条的（ ）属性用于返回或设置滚动条的当前值。
事件过程中。
8．表示控件与窗体左侧距离的属性是
。
9．若 A=20，B=80，C=70，D=30，则表达式 A+B>160 Or（B*C>200 And Not D>60）的值是
。
10．设某个程序中要用到一个二维数组，要求数组名为 A，类型为字符串类型，第一维下标从
1 到 5，第二维下标从-2 到 6，则相应的数组声明语句为
Print Fun; N; M
第页总页
教研（实验）室主任
End Function 5．执行下面程序，单击命令按钮 Command1 后，A(1,3)值是＿＿＿＿＿，A(3,2)值是＿＿＿＿。 Private Sub Command1_Click()
Dim I As Integer, J As Integer, K As Integer Dim A(1 To 3, 1 To 3) As Integer, N As Integer
VB程序设计复习模拟试题一及答案
VB程序设计复习模拟试题一及答案一、选择题(1)执行语句Dim X,Y As Integer 后,（）A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量,Y被定义为变体变量D)X被定义为变体类型变量,Y被定义为整型变量(2)以下关系表达式中，其值为True的是A)"XYZ">"XYz" B)"VisualBasic"<>"visualbasic"C)"the"="there" D)"Integer"<"Int"(3)执行以下程序段a$="Visual Basic Programming"b$="C++"C$=UCase(Left$(a$,7)) & b$ & Right$(a$,12)后,变量C$的值为A)Visual BASIC Programming B)VISUAL C++ ProgrammingC)Visual C++ Programming D)VISUAL BASIC Programming(4)下列叙述中正确的是A)MsgBox语句的返回值是一个整数B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作C)MsgBox语句的第一个参数不能省略D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空(5)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实现上述操作的事件过程是A)Private Sub Text1_Change()Label1.Caption=str(Len(Text1.Text))End SubB)Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text))End SubC)Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubD)Private Sub Label1_Change()Label1.Caption=str(Len(Text1.Text))End Sub(6)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为"宋体"和"黑体"),1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为"改变文字字体")，窗体外观如图所示。
VB试题1（4）1
Visual Basic练习题1、当文本框的内容发生变化时，必将触发（ C ）事件。
A、LostFocusB、KeyPressC、ChangeD、Click2、在Visual Basic中，下列（ D ）函数的值只为1，0，-1。
A、INT(X)B、ABS(X)C、SQR(X)D、SGN(X) 即“取正负号函数”3、下列Visual Basic程序段运行后，变量a、b、c的值为（）。
a = 1 :b = 1 :c = 1Do While a + b + c < = 10a = a + 1b = b * 2c = b / 2LoopA、2 2 1B、3 4 2C、4 8 4D、4 4 24、当程序在运行过程中因某种原因中断时，VB进入（ C ）模式。
A、设计B、运行C、中断D、工具5、要改变控件的高度，应改变（A）属性。
A、HeightB、WidthC、TopD、Left6、下列Visual Basic程序段运行后，变量x的值为（ C ）。
x = 3y = 77Dox = x + 2Loop Until x > Sqr (y)A、 7B、8C、9D、107、在Visual Basic中，建立一个文本编辑区域，可采用下列（ C ）。
A、命令按钮B、标签控件C、文本控件D、定时器控件8、下列（ D ）表达式的值不等于4。
A、Int (4.1)B、Int (4.9)C、Abs (int (-3.9))D、Abs (int (-4.5))9、下列Visual Basic程序段运行后，变量m 的值为（ B ）。
a = 2 :b = 1 :c = 5If a < b Then m = a Else m = bIf c < m Then m = cA、2B、1C、5D、三项答案均不是10、窗体模块文件的扩展名是（A）。
A、frmB、basC、vbpD、txt11、对象的三个要素是（A）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
10vb模拟测试卷满分：80分姓名：________1、单项选择题(本题共计40分)1、执行以下程序，在窗体上显示的第一行内容是______,第二行内容是_________。
Private Sub Command1_Click()Dim x%, y%x = 10y = 15Call value(x, y)Print "x="; x, "y="; yEnd SubPrivate Sub value(ByVal m%, n%)m = m * 2n = n - 5Print "m="; m, "n="; nEnd Sub ( )A、m=20 n=10B、x=10 y=15C、x=20 y=102、若整型实参x、y的值分别为48、28，则引用以下function过程的返回值是________。
Private Function f(ByVal m%, ByVal n%) As IntegerDor = m Mod nm = nn = rLoop While r <> 0f = mEnd Function ( )A、1B、2C、4D、都不是3、关于语句If x=1 Then y=1，下列说法正确的是________。
( )A、x=1和y=1均为赋值语句B、x=1和y=l均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=l为关系表达式4、VB也提供了结构化程序设计的三种基本结构，这三种基本结构是________。
( )A、递归结构、选择结构、循环结构B、选择结构、过程结构、顺序结构C、过程结构、输入\输出结构、转向结构D、选择结构、循环结构、顺序结构5、假设boolVar是一个逻辑型变量，则下面的赋值语句正确的是________。
( )A、boolVar='True'B、boolVar=.True.C、boolVar=#True#D、boolVar=3<46、在Cmdl_C1ick事件中有效的地址传递的调用语句是Public Sub Fl(n%)……n =3*n+4……End SubPrivate Sub Cmdl_Click()Dim n%, m%n=3 :m =4'调用F1语句End SubA、.F1 n+m .B、F1 mC、F1 5D、F1 m+57、程序中用“Private Function Fun(X As Integer,Y As Single)”定义了函数Fun。
调用函数Fun 的过程中的变量i、j均定义为Integer型，能正确引用函数Fun的是①Fun(i,j)②Call Fun(i,3.65)③Fun(3.14,234)④Fun("245","231.5")A、①③B、②③④C、①②③D、①②③④8、假定已定义了一个过程Sub Add(a As Single, b As Single)，则正确的调用语句是________。
A、Add (12 , 12)B、Call Add( 2 * x , Sin(1.57) )C、Call Add x , yD、Call Add(12 ,12, x)9、若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton ），可使用控件将它们分隔开。
①TexBox②Picture③Image④FrameA、①②B、②③C、②④D、③④10、执行VB工程时第一次出现的窗体称启动窗体，关于该窗体的叙述不正确的是A、若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体B、启动窗体可进行设置，设置方法是执行“工程”菜单中的“属性”C、启动窗体和其他窗体一样可以隐藏和关闭D、启动窗体一般作为用户工作的界面，不可更改11、以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中，错误的是A、在缺少情况下，设计时的一个窗体被指定为启动窗体B、通过人为设置，可指定任一窗体为启动窗体C、通过人为设置，可指定标准模块中的Main()过程为启动过程D、通过人为设置，可指定窗体模块中的Main()过程为启动过程12、在程序中的不同过程之间，不能通过进行数据传递。
①全局变量②窗体或模块级变量③形参与实参结合④静态变量A、①②④B、①②③C、②④D、④13、Sub过程与Function过程的本质区别是____________。
A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以B、Function过程可以有形参，Sub过程不能有形参C、两种过程参数传递方式不同D、Sub过程没有返回值，Function过程能返回值14、在过程中定义的变量，如果希望在离开该过程后，还能保持过程中局部变量的值，则应该使用_______关键字在过程中定义局部变量。
( )A、DimB、PrivateC、PublicD、Static15、以下有关变量作用域的说明中，错误的是A、只有在标准模块中用Public语句说明的变量才是全局变量B、在过程中不能使用Public语句说明全局变量C、在标准模块的通用声明处可用语句说明模块级变量D、在窗体的通用声明处可用Private语句说明窗体级变量16、下面的过程定义语句中合法的是_______。
A、Sub Procl (ByVal n () )B、Sub Procl ( n ) As IntegerC、Function Procl (Procl )D、Function Procl (ByVal n )17、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为传递。
A、按值B、按地址C、ByRefD、按形参<18、系统默认的参数传递方式是A、按值B、按地址C、ByValD、按实参19、对正实数X的第四位小数四舍五入的VB表达式是________。
( )A、0.001*Int(x+0.0005)B、0.001*(1000*x+0.5)C、0.001*Int(1000*x+5)D、0.001*Int(1000*(x+0.0005))20、设整型变量a、b的当前取值分别为200与20，以下赋值语句中不能正确执行的是________。
( )A、Text1=a/b*aB、Text1=a*a/bC、Text1=“200”*a/bD、Text1=a&b&a21、函数Cint(–3.5)，Int(–3.5)，Fix(–3.5)的值分别是________。
( )A、-3，–4，–3B、-4，–4，–3C、-3，–4，–4D、-4，–3，–322、下面________语句，可以将列表框List1中当前选定的列表项的值替换成“ABC”。
( )A、List1.AddItem“ABC”，List1.ListIndexB、List1.Text=“ABC”C、List1.List(List1.ListIndex)=“ABC”D、前三项均可23、在VB中，下列关于控件的属性或方法中，搭配错误的有________个。
①Timer1.Interval②List1.Cls③Text1.Print④List1.RemoveItem⑤Vscroll1.Value⑥Picture1.Print ( )A、0B、1C、2D、324、运行程序产生死循环时，按________键可以终止程序的运行。
( )A、Ctrl+CB、Ctrl +ZC、Ctrl+BreakD、单击停止运行按钮25、以下有关对象属性的说法中正确的是________。
( )A、对象所有的属性都罗列在属性窗口列表B、不同对象不可能有同名属性C、不同对象的同名属性取值一定相同D、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变。
26、下面的表达试的值为真的是________。
( )A、Mid(“Visual Basic”,1,12)=Right(“Programing Language Visual Basic”,12)B、“ABCRG”> ”abcde”C、Int(134.69) > Cint(134.69)D、78.9/32.77 < = 97.5/43.97 AND –45.4 > 4.9827、若在应用程序中用Private Sub Sub1(Xasinteger,YasSingle)定义了子程序Sub1，调用程序中的变量I、J均为Integer型，则正确调用子程序Sub1的Call语句是________。
①Call Sub1(I,J)②Call Sub1(3.1415,1)③Call Sub1(3.14,234)④Call Sub1(“245”, “231.5”) ( )A、①③B、③④C、①②③D、无28、下列语句中的语句可以用来正确地声明一个动态数组。
( )A、Private A(n) As IntegerB、Dim A() As IntegerC、Dim A(,) As IntegerD、Dim A(1 to n)29、在VisualBasic最基本的对象是________，它是应用程序的基石。
( )A、标签B、窗体C、文本框D、命令按钮30、VisualBasic程序设计时常用的Print、Cls属于________。
( )A、属性B、打印字库C、方法D、事件31、下列程序：Private Sub Form_Click( )For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub运行后输出的结果是__________。
( )A、1B、15C、90D、12032、对窗体编写如下代码：Option Base 1Private Sub Command1_Click( )a=Array(237,126,87,48,498)m1=a(1)m2=1For i=2 To 5If a(i)>m1 Thenm1=a(i)m2=iEnd IfNext iPrint m1;m2End Sub程序运行后，按回车键，输出结果为_________。
( )A、48 4B、237 1C、498 5D、498 433、参数传递有值传递和地址传递，_________关键字表示地址传递。
( )A、ByValB、ByRefC、ValueD、Refrence34、VisualBasic中的工程文件的扩展名是____________。
( )A、.regB、.frmC、.basD、.vbp35、计时器控件每次经历一个固定的时间间隔________。