VB程序设计语言模拟试卷一
计算机程序设计-VisualBasic【VB】考试试题(1)
A、 AutoSize B、 Visible C、 Enabled D、 WordWrap 正确答案： A 解析：
42、当文本框的 MaxLength 属性值取________时，该文本框能容纳的字符数最多。
A、 256 B、 512 C、 0 D、 -1 正确答案： C 解析：
43、在一行语句内写多条语句时，每个语句之间用_____ ___符号分隔。
A、 ； B、 : C、 ， D、 、 正确答案： B 解析：
44、结构化程序由三种基本结构组成，下面术语中是三种基本结构之一的是______ _。
A、 递归结构 B、 选择结构 C、 输入输出结构 D、 过程结构 正确答案： B 解析：
45、在默认情况下，InputBox() 函数返回值的类型为______ __。
8、下列关于 VB 编程的说法中，不正确的是（ ）。
A、 事件是能被对象识别的动作 B、 方法指示对象的行为 C、 属性是描述对象特征的数据 D、 VB 程序采用的运行机制是面向对象 正确答案： D 解析：
9、下面所列符号中，_________不是数据类型说明符。
A、 !
B、 % C、 ？ D、 # 正确答案： C 解析：
A、 0.01*Int(100*(x+0.005)) B、 0.01*Int(x+0.005) C、 0.01*Int(100*(x+0.05)) D、 0.01*Int(x+0.05) 正确答案： A 解析：
24、从字符串变量 Cstr 中取左边 4 个字符，应使用________。
A、 Left(Cstr，4) B、 Left(Cstr，1，4) C、 Mid(Cstr，3，4) D、 Mid(Cstr，4，3) 正确答案： A 解析：
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
vb笔试模拟试题(九套)
附录1 Visual Basic笔试模拟试题（1~6套）笔试模拟试题 1第一部分软件技术基础（共15分）一、是非判断题（每小题1分，共10分）（判断下列各题是否正确，如正确，在客观答题纸上对应编号选A，否则选B）1．在操作系统中，作业调度和进程调度没有区别。
（）2．数据类型是具有共同属性的一类变量的抽象。
（）3．瀑布模型中需求分析的主要工作是确定要开发的软件做什么。
（）4．软件设计阶段产生的最重要的文档之一是概要设计说明书。
（）5．在进行插入排序时，其数据比较次数和数据的初始排列无关。
（）6．软件测试不是为了证明软件的正确性，而是立足于软件有错误而进行的。
（）7．线性表若采用链式存储表示时所有结点之间的存储单元地址必须连续。
（）8．中断处理通常是按中断优先级响应和进行中断的。
（）9．缓冲池可作为CPU和I/O设备之间信息传输的集散地。
（）10．进程调度是根据一定的调度算法，从等待队列中挑选出合适的进程。
（）二、选择题（每小题1分，共5分）1．把高级语言的源程序翻译成二进制代码的过程称为：（A ）（A）编译（B）连接（C）运行（D）重定位2．把逻辑地址转变为内存的物理地址的过程称作：（D ）（A）地址分配（B）地址连接（C）地址调用（D）地址变换3．白盒法又称为逻辑覆盖法，主要用于：（D ）（A）功能测试（B）系统测试（C）α测试（D）单元测试4．在操作系统中，进程最基本的特征是：（A ）（A）动态性和并发性（B）顺序性和可再现性（C）和程序的对应性（D）执行过程的封闭性5．以下哪一项不是软件危机的表现形式。
（C ）（A）成本高（B）生产率低（C）技术发展快（D）质量得不到保证第二部分Visual Basic语言程序设计（共85分）一、单项选择题（每小题1分，共10分）1. 数学表达式|（2x+3y）sinz|的VB表达式为（ C ）。
（A）| ( (2*x+3*y)*sin(z) )| （B）Abs( (2x+3y)*sin(z) )（C）Abs( (2*x+3*y)*sin(z) ) （D）Abs( (2*x+3*y)*sinz )2. 在下列VB运算符中，运算优先级最低的是（A ）。
VB考试题模拟卷（参考答案）
VB考试题模拟卷（参考答案）上海交通⼤学基础医学院⼆010年～⼆011学年第⼀学期 10 级专业VB程序设计课程模拟试卷考试⽇期2010.12 ⼤班⼩班姓名学号1、在E盘中的根⽂件夹创建⼀个⼦⽂件夹，新⽂件夹名称为⾃⼰的学号、姓名和“考试”；例如：“5078058001-李⽂海-考试”。
2、要求编程题在上述⽂件夹中保存两个⽂件(窗体⽂件：李⽂海．frm和⼯程⽂件李⽂海．vbp)。
3、将上述⽂件夹上传到⽼师⽹盘上相应班级的⽂件夹中。
⼀、选择题（10分，正式试卷为10题）1、VB是⼀种⾯向对象的可视化程序设计语⾔，采取了____的编程机制。
A、事件驱动B、过程驱动C、函数驱动D、模块驱动2、在VB中____是⼀个特例，它既是类也是对象。
A、命令按钮B、⽂本框C、标签D、窗体3、多窗体程序是由多个窗体组成。
在缺省情况下，VB在应⽤程序执⾏时，总是把____指定为启动窗体。
A、包含控件最多的窗体B、设计时的第⼀个窗体C、含有Form_Load过程的窗体D、命名为Form1的窗体4、VB集成开发环境具有三种⼯作模式，以下____是使⽤最多的VB⼯作模式。
A、编辑B、设计C、运⾏D、中断5、有⼀程序代码：Text1.FontSize = ”宋体”，其中Text1、FontSize和”宋体”分别代表的是____。
A、对象、⽅法、属性B、对象、属性、值C、属性、对象、值D、对象、值、属性6、不具备Caption属性的对象是____。
A、⽂本框B、标签框C、命令按钮D、多选框7、VB是⼀种⾯向对象的程序设计语⾔，____不是⾯向对象系统所包含的三个要素。
A、变量B、事件C、⽅法D、属性8、不具备Text属性的对象是____。
A、⽂本框B、图⽂框C、组合框D、列表框9、当启动程序时，系统⾃动执⾏的是____事件过程。
A、Form_ClickB、Form_LoadC、Command_ClickD、Text1.Change10、表达式Int (19 / 3) +5 ^ 2 * 8 Mod 10 \ 3的值是____。
计算机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的值为。
北航14秋《VB语言程序设计》在线作业一答案
北航《VB语言程序设计》在线作业一单选题一、单选题（共25 道试题，共100 分。
只有一个选项是正确的）V 1. 条件1<x≤2或10≤x<15，在VB语言中应写成条件表达式（）A. x>1 AND x<=2 OR a>=10 AND x<15B. x>1 OR x<=2 OR a>=10 OR x<15C. x>1 OR x<=2 AND a>=10 OR x<15D. x>1 AND x<=2 AND a>=10 AND x<15-----------------选择：A2. 表达式23/5.8、23\5.8、23Mod5.8的运算结果分别是（）A. 3、3.9655、3B. 3.9655、3、5C. 4、4、5D. 3.9655、4、3-----------------选择：B3. ^、/、Mod、*等4个算术运算符中，优先级最低的是（）A. ^B. /C. ModD. *-----------------选择：C4. VB中项目文件的扩展名是什么。
A. VBPB. FRMC. VBWD. FRX-----------------选择：A5. 如果变量a=2，b=3，c=4，d=5，表达式NOT a>b AND NOT d<>c的值是（）A. TrueB. FalseC. 1D. 0-----------------选择：B6. 不管一个对象的属性如何设置，程序运行时始终都能接收焦点的方法是（）A. 用Tab键B. 用鼠标C. 用方向键D. 不能实现-----------------选择：D7. 将任意一个正的两数N的个位数与十位数对换的表达式为（）。
《VB程序设计基础》模拟试题
《VB程序设计》模拟试题●填空题1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、类模块文件的扩展名为______CLS_______ 。
Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。
3. Abs= ；Int= ____-10_______。
4. "程序"& "设计"运算结果为 ___程序设计____ 。
5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。
6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes 表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。
7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。
8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最常用。
9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。
在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。
10. 条件判断语句可以使用___If…then____________语句、____If…Then…Else______语句和 ______If…Then…ElseIf______语句。
Select case 语句11. 声明一个值为的常量Pi的语句为___Const pi = 。
2024年VB语言程序设计试题库
ＶB程序设计一、判断题1．同一Ｆoｒm窗体中的各控件能够相互重叠，其显示的上下层次的次序不能够调整。
（X ）ﻫ2．一个对象的若能识别多个事件,我们只能对其中一个事件编程( )ﻫ3．单项选择按钮与复选框对象的Vａlｕe属性类型不一样，且只能取值Ｔrｕｅ和Falｓe。
（√ )4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。
( )5． 图片框的Move措施不但能够移动图片框,并且还能够变化该图片框的大小，同时也会变化该图片框有关属性的值。
( √ )6. “A=B=C”是一个合法的Vｉsual Bａsic语句。
( )７. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（ )ﻫ8. Visｕal Bａsｉｃ程序的运行能够从 Ｍａiｎ（）过程开启,也能够从某个窗体开启。
( √ ）ﻫ９. 在图片框中放置的控件既能够在该图片框内移动,也能够移出该图片框外。
( ）１0. 对于文献系统控件，当驱动器控件Drivｅl中的驱动器符变化时，文献夹列表控件Dir1中显示的文献夹也作对应的变化,能够在Dｒive1中的Cｈange事件中使用如下命令。
Dｉｒ1. Path＝ Drivｅ1．Ｄrｉve( √）11. 滚动条控件可作为用户输入数据的一个措施。
（ √）ﻫ１２．单项选择按钮控件和复选框控件都具备Vaｌuｅ属性，它们的作用完全相同。
( ）ﻫ13. 静态变量是一个局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
( √ )ﻫ14． Vｉsual Basｉｃ提供的几个标准坐标系统的原点都是在绘图区域的左上角，假如要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√ ）ﻫ15．注释语句ＲＥM可自成一语句。
( √ )ﻫ１6．用鼠标选中某菜单控件时，触发Clｉcｋ事件；而用键盘选中该菜单控件时，触发 KeyPress（ ）17．组合框兼有文本框和列表框二者的功效,用户能够通过键人文本或选择列表中的项目来进行选择。
VB模拟试题(选择题)
8、以下属于程序的基本控制结构的是( B ) A、星型结构 B、分支结构 C、网络结构 D、平 行结构 9、以下哪个是算法的描述方法？（ C ） A、枚举法 B、列表法 C、流程图描述法 D、顺 序法 10、以下属于程序的基本控制结构的是( B ) A、星型结构 B、分支结构 C、网络结构 D、平行 结构 11．Integer类型的变量可存的最大整数为（ C ）。 A、256 B、32768 C、32767 D、65536 12、VB中数据类型Integer表示整型数，存储为（ C ）位？ A、32 B、64 C、16 D、8 13、VB中数据类型integer表示整型数，存储为（ D ）字节 A、8 B、6 C、4 D、2 14、在VB中，表达式21 mod 4的结果是（ B ） A、5 B、1 C、15 D、25 15、设a=2，b=3，在VB中，表达式a>b or b>=3的值是（ B ） A、false B、true C、-1 D、1 16、下面表达式的值是false的有（ A ） A、str(2000)< "1997" B、int(4.99)<>len("basic") C、3>2 D、"969"<"n97" 17、表达式abs(-3.6)*sqr(100)的值是（ D ） A、360 B、-36 C、-360 D、 36 18、在VB中，表达式2^3的结果是（ D ） A、2 B、3 C、6 D、8 19、数字式子2a(7+b)在VB中的正确写法是（ B ） A、2*a(7+b) B、2*a*(7+b) C、2a*(7+b) D、 2*a*7+b 20．代数表达式改成VB表达式后，错误的是（ D ） A、g*t^2/2 B、g*t*t/2 C、1/2*g*t^2 D、 gt^2/2 21、数学式子在VB中的正确写法是：( D ) A、（2*a+b）/4*a*b B、(2*a+b)/(4ab) C、(2a+b)/(4ab) D、(2*a+b)/(4*a*b) 22．对于窗体，click（单击）是它的一个（ C ）
VB全真模拟卷
VB会考试题
VB程序设计语言命题试卷一、选择题（2分／题,共30分）（）1.下列不属于对象的基本特征的是 _A、属性B、方法C、事件D、类（）2．如果要改变窗体的标题，需要设置窗体对象的属性。
A、NameB、CaptionC、BackColorD、BorderStyle（）3A、双击鼠标可以触发DblClick事件B、窗体或控件的事件的名称可以由编程人员确定C、移动鼠标时，会触发MouseMove事件D、控件的名称可以由编程人员设定（）4．在VB中程序注解可以加在下列哪个符号之后A、’B、/C、:D、!（）5. 通过改变单选按钮(OptionButton)控件的 _属性值，可以改变单选按钮的选取状态。
A、ValueB、StyleC、AppearanceD、Caption（）6. 下列 _关键字用于定义常量．．A、DimB、PublicC、ConstD、Private（）7.若A≤B或C≤D，则E=2，写作VB语句应为：If A<=B _C<=D then E=2A、XorB、AndC、<>D、Or（）A、 Width和HeightB、 Width或HeightC、 Top和LeftD、 Top或LeftA．Mid$(S,2,3) B、Middle(S,2,3)C、Right$(S,2,3)D、Left$(S,2,3)（）10．以下关系表达式中，其值为False的是 _A．“ABC”＞“AbC” B．“the”< >“they”C．“9”=“8” D．“Integer”＞“Int”（）11．在VB中，以下控件不能作为其他控件窗口的是A、框架B、图片框C、影像框D、窗体（）12．下列VB程序语句正确的是 _A、If A≥B Then T=A : A=B : B=TB、If A≥B Then T=A ; A=B ; B=TC、If A>=B Then T=A A=B B=TD、If A>=B Then T=A : A=B : B=T（）13．下面程序的循环次数是 _For j=8 To 35 Step 3Print jNext jEndA、10B、9C、27D、28（）14．在窗体中添加一个命令按钮Command1，并编写如下程序：Private Sub Command1_Click( )x=InputBox(x)If x^2=9 Then y=xIf x^2<9 Then y=1/xIf x^2>9 Then y=x^2+1Print yEnd Sub程序运行后，在InputBox中输入3，单击命令按钮，程序的运行结果是 _A．3 B．0.33 C．17 D．0.25（）15．下列程序段：Private Sub Form_Click()Dim i as integer,s As Integers=0：i=0while i>5i=i+1s=s+iwendPrint sEnd Sub程序运行后，窗体上显示的内容是 _A.0B.10C.15D.21二、填空题（2分／空，共20分）1．VB6.0是基于____________环境的程序开发工具。
VB程序设计 模拟试题
VB程序设计(专升本)阶段性作业1总分: 100分考试时间:分钟单选题1. 运算符“\”两边的操作数若类型不同，则先_________再运算。
(5分)(A) 取整为Byte类型(B) 取整为Integer类型(C) 四舍五入为整型(D) 四舍五入为Byte类型参考答案：C2. 将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件_________。
(5分)(A) doc与.txt(B) com与.exe(C) bat与.frm(D) vbp与.frm参考答案：D3. Print语句的一个输出表达式为_________，则输出包括日期．时间信息。
(5分)(A) Date(B) Month(C) Time(D) Now参考答案：D4. 在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是_________。
(5分)(A) 项目（工程）窗口(B) 工具箱(C) 代码窗口(D) 属性窗口参考答案：C5. 语句Print "5*5" 的显示结果是__________。
(5分)(A) 25(B) "5*5"(C) 5*5(D) 出现错误提示参考答案：C6. 语句“Form1.Print Tab(10);"#"”的作用是在窗体当前输出行_________。
(5分)(A) 第10列输出字符“#”(B) 第9列输出字符“#”(C) 第11列输出字符“#”(D) 输出10个字符“#”参考答案：A判断题7. 在Visual Basic中，有一些通用的过程和函数作为方法供用户直接调用。
(5分)正确错误参考答案：正确解题思路：8. 在面向对象的程序设计中，对象是指可以访问的实体。
(5分)正确错误参考答案：正确解题思路：9. 事件是由Visual Basic预先定义的对象能够识别的动作。
(5分)正确错误参考答案：正确解题思路：10. 由Visual Basic语言编写的应用程序有解释和编译两种执行方式。
程序设计语言VB_习题集(含答案)
《程序设计语言VB》课程习题集一、单选题1. Visual Basic是一种面向（D ）的程序设计语言。
A. 用户B. 事件C. 程序D. 对象2.在Visual Basic6.0中规定工程文件的扩展名是（A）。
A. vbpB. forC. frmD. bas3. Visual Basic6.0中规定窗体文件的扩展名是（B ）。
A. forB. frmC. vbpD. bas4.如何使一个标签或按钮控件在运行时不可用（C）。
A. 把它的Visible属性设置成FalseB. 把它的Visible属性设置成TrueC. 把它的Enabled属性设置成FalseD. 把它的Enabled属性设置成True5.控件的字体可在属性窗口的（A）属性中调整？A. FontB. ColorC. TextD. Caption6.若要将某命令按钮设置为默认命令按钮。
则应设置为True的属性是（C ）。
A. ValueB. CancelC. DefaultD. Enabled7.在VB中，记录对象数据的是（C）。
A. 方法B. 事件C. 属性8.在文本框上显示文本的属性是（B）。
A. ValueB. TextC. PrintD. Enabled9. InputBox函数返回值的类型为（A）。
A. 字符串B. 数值C. 变体D. 数值或字符串（视输入的数据而定）10.设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（A）。
A. 字符串"20"B. 字符串"120"C. 默认值100D. 数值12011.下列控件中可用于接受用户输入文本，又可用于显示文本的是（B）。
A. Label控件B. TextBox控件C. Timer控件D. CommandButton控件12.语句PRINT "25*4"的输出结果是（A）。
vb6.0模拟试卷一
第一章复习题一、选择题1、下面不是VB工作模式的是（）。
A．设计模式B．运行模式 C．汇编模式D．中断模式2、可视化编程的最大优点是（）。
A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）。
A．执行“视图”菜单中的“属性窗口”命令 B．按F4键C．单击工具栏上的“属性窗口”按钮 D．按Ctrl+T4、下列可以打开立即窗口的操作是（）。
A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）。
A．可视化 B．面向对象 C．面向图形 D．事件驱动6、运行工程的错误操作是（）。
A．执行“运行”菜单中的“启动”命令 B．单击工具栏中的“启动”按钮C．按功能键“F5” D．按组合键“Alt+F5”7、在正确安装VB6.0后，可以通过多种方式启动VB，以下方式中不能启动VB的是（）。
A．通过“开始”菜单中的“程序”命令B．通过“我的电脑”找到VB6.exe，双击该文件名C．通过“开始”菜单中的“运行”命令D．进入DOS方式，执行VB6.0文件8、为了用键盘打开菜单和执行菜单命令，第一步应按的键是（）。
A．功能键F10和Alt B．Shift+功能键F4C．Alt或功能键F8 D．Ctrl+Alt9、Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（）。
A．属性、事件、事件过程 B．控件、窗体、事件C．属性、过程、方法 D．属性、事件、方法10、下列说法中正确的是（）。
为了装入一个VB应用程序，应当A．只装入窗体模块文件（.frm） B．只装入工程文件（.vbp）C．分别装入工程文件和标准模块文件（.bas）D．分别装入工程文件、窗体文件和标准模块文件11、VB的3种结构化程序设计的3种基本思想是（）。
vb程序设计试题(含答案)
第一套试题一、选择题〔每题 2 分，共 30 分〕1.在 VB环境中，工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、Mod、 * 这 4 个算述运算符中，优先级别最低的是( C )〔 A〕 \〔B〕/〔C〕Mod〔D〕*4.要使 Print 方法在 Form_Load事件中起作用，要对窗体的 ( C ) 属性进行设置〔 A〕 BackColor〔B〕ForeColor〔 C〕 AutoRedraw〔D〕Caption5.不管何控件，共同具有的属性是 ( B )〔 A〕 Text〔B〕Name〔 C〕 ForeColor〔D〕Caption6.要使 Form1窗体的标题栏显示“欢送使用 VB〞，以下语句正确的选项是 ( D )A〕 Form1.Caption= “欢送使用 VB〞〔B〕Form1.Caption= ˊ欢送使用 VBˊ〔 C〕 Form1.Caption= 欢送使用 VB〔D〕Form1.Caption=〞欢送使用VB〞7.VB 提供了结构化程序设计的 3 种根本结构，这 3 种根本结构是 ( D )〔 A〕递归结构，选择结构，循环结构〔B〕选择结构，过程结构，顺序结构（C〕过程结构，输入、输出结构，转向结构〔D〕选择结构，循环结构，顺序结构8. 给变量赋值 a=123+MID(“123456〞 ,3,2) ，a 变量中的值是 ( D )〔 A〕“ 12334〞〔B〕123〔C〕12334〔D〕157 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age＜40 And InStr(duty,“教授〞)＞0 Then n=n+1B〕 If sex= “男〞 And age＜40 And (duty= “教授〞 Or duty= “副教授〞 ) Then n=n+1〔 C〕 If sex= “男〞 And age＜40 And Right(duty,2)=“教授〞Then n=n+1〔 D〕 If sex=“男〞 And age＜ 40 And duty= “教授〞 And duty= “副教授〞 Thenn=n+110. 假设要去除列表框的所有内容，可用来实现的方法是( C )〔 A〕 RemoveItem〔B〕Cls〔 C〕 Clear〔D〕以上均不可以11.要使时钟控件 Timer1 的 Timer 事件不起作用，以下正确的语句是 ( B ) 〔 A〕 Timer1.Visible=False〔B〕Timer1.Enabled=False〔 A〕 Timer1.Interval=1000〔D〕Timer1.Index=0引用列表框 (List1) 最后一个数据项应使用的语 ( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount)(D)List1.List(ListCount-1)13.如下数组声明语句，正确的选项是 ( B )〔 A〕 Dim a[3,4]As Integer 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔D〕Function f1(ByVal n%)15.假定有如下的命令按钮 ( 名称为 Command1)事件过程：Private Sub Command1_Click()x=InputBox(" 输入： " ， " 输入整数 ")MsgBox"输入的数据是：〞，，〞输入数据："+xEnd Sub16. 程序运行后，单击命令按钮，如果从键盘上输入整数10，那么以下表达中错误的是(A)〔 A〕x 的值是数值 10〔B〕输入对话框的标题是“输入整数〞（C〕信息框的标题是“输入数据： 10〞〔 D〕信息框中显示的是“输入的数据是：〞二、填空题〔每题 2 分，共 20 分〕1、当进入 VB集成环境后，发现没有显示“工具箱〞窗口，应选择视图菜单的工具箱选项，使“工具箱〞窗口显示。
高中信息技术 VB程序设计试卷1
卜人入州八九几市潮王学校VB程序设计试卷1一、单项选择题，每一小题2分， 25题一共50分【第1题】金山快译把“你叫什么名字〞翻译成“What'syourname〞，这属于A、语音识别B、机器翻译C、专家系统D、智能代理【第2题】以下文件中不能用音频播放软件翻开的是A、歌唱祖国.mp3B、青花瓷.midC、校园的早晨.wavD、风情.tif【第3题】小明家的电脑运行Photoshop软件时总浮现异常画面。
为理解决问题，他想到了到论坛发帖求助的方法，为此他需要将该程序的异常画面截取下来。
以下方法中，最简便的是A、使用扫描仪B、安装专业屏幕截图软件再截图C、使用数码相机拍摄D、使用“PrintScreen〞键截屏【第4题】利用Excel电子表格存储学生信息，为了输入诸如“******〞格式的学号信息，单元格的属性需要设置成A、数值B、文本C、特殊D、常规【第5题】以下选项里面，不属于视频文件格式的是A、aviB、mpegC、movD、MP3【第6题】信息资源管理非常重要，是因为A、信息资源管理可以进步信息资源的利用效率B、信息资源惟独经过管理后，才干被人们利用C、不经过管理的信息资源是没有利用价值的D、信息资源管理不可以进步信息的使用价值【第7题】以下选项里面，属于制作动画的常用软件是A、PhotoshopB、FlashC、WPSD、ACDSee【第8题】图形符号在算法描绘流程图中表示A、算法的开场或者完毕B、输入输出操作C、处理或者运算的功能D、判断条件是否满足需求【第9题】在VB中，表达式Cos(0)的结果是A、0B、1C、约等于D、出错【第10题】在标签“lblname〞“name〞的值，正确的语句是A、lblname.caption=nameB、lblname.text=nameC、D、name=lblname【第11题】在VB中，以下赋值语句正确的选项是A、x+y=20B、3x=yC、y=x+20D、S=2Л*r*r【第12题】如下VB程序段Fori=1To3Step2Print"VB"Nexti执行后，语句Print"VB"执行的次数是A、1B、2C、3D、4【第13题】a=8、b=6，以下程序段If(aMod3=0)Or(bMod3=0)Thenc=a*bElsec=a+bEndIf执行后变量c的值是A、48B、14C、8D、6【第14题】以下关于解决问题过程的表达，错误的选项是A、计算机解决问题和人类解决问题的过程是彻底一样的B、人类会创造性地解决问题C、计算机解决问题必须针对一定对象，按一定步骤去做D、人类的思维有跳跃性、抽象性、含糊性【第15题】VisualBasic、Java属于A、自然语言B、机器语言C、汇编语言D、高级语言【第16题】在VB中，可以使文本框text1显示“你好〞〔不含引号〕的代码是A、Printtext1.Text="你好"B、text1.Text=你好C、text1.Text="你好"D、text1.Font="你好"【第17题】关于排序，以下表达正确的选项是A、排序就是把数据从小到大排出顺序，反之不行B、对字符型数据排序时，不区分大小写C、对数值型数据和字符串型数据都能发展排序D、字符串型数据要转换成ASCII码才干发展排序【第18题】以下关于因特网开展的表达，错误的选项是A、启用IPv6地址后，挪动、冰箱都能拥有IP地址B、的核心是互动、分享和创新C、云计算是一种网络效劳D、物联网将会取代因特网【第19题】某同学搜索到“智能五笔安装程序.rar〞的链接，要下载这个文件，以下操作中可行的是A、右击该链接，执行“目的另存为〞命令B、右击该链接，执行“保存〞命令C、翻开“文件〞菜单，执行“文件另存为〞命令D、收藏该链接【第20题】以下选项里面属于搜索引擎的是A、CutFTPB、FlashGetC、BaiduD、WinRAR【第21题】为了预防地震等不可预测的灾难对数据安全的影响，普通会A、在保险柜里存一份B、发展异地备份C、安装灾害预测系统D、发展本地备份【第22题】在计算机存储器中，一个字节可以存放A、一个汉字B、一个英文字母C、一个大于255的整数D、一个256-512之间的任意整数【第23题】根据提供的常用字符与ASCII码对照表(局部)，在VB中，表达式Asc("B")+Int(4)的值是A、68B、70C、67D、69【第24题】以下三个图片均是用画图软件生成的24位位图，且尺寸均为60*30像素，其各自占用存储空间情况为A、最小B、最大C、最小D、一样大【第25题】用户可利用Windows的搜索功能查找磁盘上的文件〔如下列图〕，从图中可以知道查找的是D盘中的A、一个文件名为“*.bmp〞的文件B、所有bmp位图文件C、一个文件名为“*〞的bmp位图文件D、所有文件二、操作题，每一小题10分， 5题一共50分【第1题】翻开“Z:\730\工程1.vbp〞发展以下操作后并保存。
VB模拟题
试卷编号：8016所属语言：Visual Basic试卷方案：VB模拟试卷总分：100分共有题型：5种一、填空共10题（共计10分）第1题（1.0分）题号:66VB 6.0的基本表达式包括算术表达式、关系表达式和【1】表达式.答案：=======(答案1)=======逻辑第2题（1.0分）题号:234当x=2时,语句if x=2 then Print x=2 的结果值是【1】.答案：=======(答案1)=======True第3题（1.0分）题号:1286使用Dim CJ(1 To 3, 1 To 4, 2 To 3),声明数组CJ有【1】个数组元素.答案：=======(答案1)=======24第4题（1.0分）题号:1460执行下面的程序段后,a 的值为【1】, b 的值为【2】.a=300b=20a=a+b b=a-ba=a-b答案：=======(答案1)=======20=======(答案2)=======300第5题（1.0分）题号:389Visual Basic中保存工程文件时,若不改变目录名,则系统默认的目录是【1】.答案：=======(答案1)=======VB98第6题（1.0分）题号:57在控件之中,【1】不能从工具箱中被删除.答案：=======(答案1)=======内部控件=========或=========标准控件第7题（1.0分）题号:270将焦点定位于命令按钮Command1之上的语句为【1】.答案：=======(答案1)=======Command1.SetFocus=========或=========SetFocus第8题（1.0分）题号:232表达式93\7 MOD 2^3的值是【1】.答案：=======(答案1)=======5第9题（1.0分）题号:1410两质数的差为2,称此两质数为质数对,下列程序是找出100以内的质数对,并成对显示结果.其中,函数IsP判断参数m是否为质数.请在程序中下划线处填入相应的内容.Public Function IsP(m)As BooleanDim I%【1】For I=2 To Int(Sqr(m))If 【2】Then IsP=FalseNext IEnd FunctionPrivate Sub Command1_Click()Dim I%P1=IsP(3)For I=5 To 100 Step 2P2=IsP(I)If 【3】Then Print I-2,IP1 【4】Next IEnd Sub答案：=======(答案1)=======IsP=True=======(答案2)=======m Mod I=0=======(答案3)=======p1 And p2 =======(答案4)=======p2第10题（1.0分）题号:44一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示【1】文件.答案：=======(答案1)=======工程二、判断共10题（共计10分）第1题（1.0分）题号:300如果一个列表框一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2.答案：Y第2题（1.0分）题号:1122对象的三要素包括:属性、事件、方法.答案：Y第3题（1.0分）题号:250Image 控件不能用作容器使用.答案：Y第4题（1.0分）题号:228Dim i, j as integer 表明i和j都是整型变量.答案：N第5题（1.0分）题号:1134ActiveX部件是可以重复使用的编程代码和数据.答案：Y第6题（1.0分）题号:312通用对话框只能用SHOW方法进行调用.答案：N第7题（1.0分）题号:346在Visual Basic 中Dim a ,b,c as integer 和Dim a as integer, b as integer,c as integer 相同.答案：Y第8题（1.0分）题号:349在程序中Name属性是作为对象的标识而引用,不会显示在窗体上,而控件上显示的内容由Caption属性决定.答案：N第9题（1.0分）题号:341在VB中,可通过函数 Now返回计算机系统的日期和时间.答案：N第10题（1.0分）题号:362属性是用来描述和反映对象特征的参数,不同的对象具有各自不同的属性,对象的所有属性都可以在属性窗口中设置.答案：N三、单项选择共20题（共计20分）第1题（1.0分）题号:855在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中()窗口是用来显示代码中正在调试的语句所产生的信息,或显示直接在该窗口中键入的命令所请求的信息.A:立即B:监视C:本地D:中断答案：A第2题（1.0分）题号:374下列可缩放图片的属性是().A:autosizeB:pictureC:stretchD:OleDrawMode答案：C第3题（1.0分）题号:860组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由()属性决定.A:StyleB:BoderStyleC:FillStyleD:DrawStyle答案：A第4题（1.0分）题号:2257在用菜单编辑器设计菜单时,必须输入的项有().A:快捷键B:标题C:索引D:名称答案：D第5题（1.0分）题号:358下列()是日期型常量.A:"2/1/02"B:37258C:#2/1/02#D:|2/1/02|答案：C第6题（1.0分）题号:349为了防止用户随意将光标置于控件上,应(). A:将控件的TABINDEX属性设置为0B:将控件的TABSTOP属性设置为TRUEC:将控件的TABSTOP属性设置为FALSED:将控件的ENABLED属性设置为FALSE答案：D第7题（1.0分）题号:3243属性窗口只能在使用.A:设计时B:编译时C:运行时D:以上都不对答案：A第8题（1.0分）题号:3412下面关于对象的描述中,错误的是().A:对象就是自定义结构变量B:对象代表正在创建的系统中的一个实体C:对象是一个状态和操作(或方法)的封装体D:对象之间的信息传递是通过消息进行的答案：A第9题（1.0分）题号:3442一句语句要在下一行继续写,续行符是(). A:+B:-C:_D:…答案：C第10题（1.0分）题号:3207设a="Visual Basic",下面使b="Basic"的语句是 .A:b=Left(a,8,12)B:b=Left(a,8,5)C:b=Mid(a,8,5)D:b=Right(a,5,5)答案：C第11题（1.0分）题号:2245结构化程序由三种基本结构组成,下面不属于三种基本结构之一的是().A:顺序结构B:选择结构C:过程结构D:循环结构答案：C第12题（1.0分）题号:377下列哪个变量的取法是不正确的().A:TNameB:T_TempC:T32D:T32#答案：D第13题（1.0分）题号:294改变控件在窗体中的左右位置应修改该控件的()属性.A:TopB:LeftC:WidthD:Right答案：B第14题（1.0分）题号:3538关于键盘事件的说法中,正确的是A:按下键盘任意键都会引发KeyPress事件B:大键盘的"1"键,和数字键盘的"1"键的KeyCode编码相同C:KeyDown 和 KeyUp事件过程中有KeyAscii参数D:大键盘的4的上档符号是$,当同时按下Shift 键和大键盘的4时,KeyPress事件过程KeyAscii参数值是$的Ascii值.答案：D第15题（1.0分）题号:3193下列程序段的运行结果.Private Sub Form_Click()Dim MsgHideMsg="选择'确定'按钮"MsgBox MsgShowEnd SubA:隐藏窗体,按'确定'按钮使窗体重现B:隐藏窗体C:显示窗体,按'确定'按钮使窗体隐藏D:显示窗体答案：A第16题（1.0分）题号:3233执行下面程序段后,变量c$的值为___ ___. a$= "Visual Basic Programming"b$= "Quick"c$=b$ & Ucase(Mid$(a$,7,6)) &Right$(a$,12)A:Visual BASIC ProgrammingB:Quick Basic ProgrammingC:QUICK Basic Programming D:Quick BASIC Programming答案：D第17题（1.0分）题号:2179当在滚动条内拖动滚块时触发()事件. A:KeyUpB:KeyPressC:ChangeD:Scroll答案：D第18题（1.0分）题号:3185函数Int(Rnd*11)+10产生的数值的范围是______.A:(0,10)B:[10,10]C:[10,20]D:(0,20)答案：C第19题（1.0分）题号:3254下面程序段输出的结果是Private Sub Command1_Click()x = 8For i = 0 To 20 Step 5x = x + iNextPrint "X="; xEnd SubA:X=210B:X=218C:X=50D:X=58答案：D第20题（1.0分）题号:3534执行指令"Line(1200,1200)-Step(1000,500),,B"后,CurrentX=A:2200B:1200C:1000D:1700答案：A四、程序设计共5题（共计50分）第1题（10.0分）题号:131'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
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程序设计
《VB程序设计》期末模拟试卷-Ⅰ一、判断正误（对的打√号，错的打X号，每题1分，共10分）（）1. Visual BASIC 是基于Windows环境的一种可视化的程序设计语言，采用了事件驱动的编程机制，因而不同于以往面向过程的程序设计语言，编程效率得到了很大地提高。
（）2. VB可以使用ActiveX控件，但不能开发ActiveX控件。
（）3. 窗体卸载前最后会自动发生UNLOAD事件，通常情况下，我们都是使用该事件停止对窗体的卸载。
（）4. 在VB的过程内只能声明过程级变量。
（）5. VB中双精度数的有效数字位数要比单精度数多，数据的表示范围也比单精度数大。
（）6. 当PictureBox控件的AutoSize属性值为True时，图片会自动伸缩以适应图片框。
（）7. MouseMove事件仅在鼠标按钮被按下时发生，按钮没按下时则不会产生。
（）8. 用鼠标才能产生控件的Click事件，用键盘无法产生。
（）9. 把窗体上定时器控件的Visible属性置为True时，则该窗体上就会出现显示计算机中时间的数字时钟。
（）10. 由于在Circle方法中没有提供专门用于填充的参数，因此，使用该方法不能绘制填充了颜色的圆。
二、单项选择（请将答案填在每题前面的括号内，每题1分，共15分）（）1．_________是对象的一个基本要素，它描述了对象在程序中的外观特点。
A. 事件B. 属性C. 方法D. 事件程序（）2．以下四个VB的变量名中，合法的是_________。
A. SumB. R$eD. 3xy（）3．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是_________。
A. str1是整型，str2是长整型B. str1是长整型，str2变体型C. str1、str2都是长整型D. str1是变体型，str2是长整型（）4．下面各语句中，错误的语句是_________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visual Basic程序设计语言模拟试卷一一、单选题（15分，每小题1分）1. Visual Basic是一种面向对象的程序设计语言，面向对象系统所包含的三要素是。
A. 属性、事件、方法B. 控件、属性、事件C. 窗体、控件、过程D. 窗体、控件、模块2. Visual Basic的一个应用程序通常至少包含一个文件，该文件存贮窗体上使用的所有控件对象和有关的、对象相应的过程和代码。
A. 模块、方法、事件、程序B. 窗体、属性、事件、程序C. 窗体、程序、属性、事件D. 程序、属性、事件、模块3. 表达式"321" & 100 + "200" 的值是。
A. 321300B. 321100200C. "321300"D. 6214. 设CurrentX=200，CurrentY=350，执行指令“Line -Step(300, 600), , B”后，CurrentX = 。
A. 200B. 300C. 500D. 6005. 按照Visual Basic默认规定，数组声明Dim marray(2, 1 to 3, 5)共有个元素。
A. 20B. 30C. 54D. 726. 声明一个长度为20个字节的字符串变量mstr，应使用。
A. Dim mstr=20B. Dim mstr(20) As StringC. Dim mstr As String * 20D. Dim mstr As String(20)7. 数据类型中的数值数据类型可以包括：、Double、Currency和Byte。
A. Integer、Long、SingleB. Integer、Long、DataC. Integer、Object、SingleD. Integer、Long、Variant8. 从循环体Do…Loop中退出并继续执行程序，可使用语句。
A. ExitB. Exit LoopC. Exit SubD.Exit Do9. 下列命令中可实现对二进制文件的写操作。
A. WriteB. GetC. InputD. Put10. 在Visual Basic 中要将一个窗体装载到内存中进行预处理，但不显示，应该使用语句。
A. ShowB. HideC. LoadD. UnLoad11. 设置窗体最小化时的图标可通过属性来实现。
A. IconB. ImageC. MouseIconD. Picture12. 如果列表框List1中已有10项数据，应使用语句将数据“Mydata”插入到列表框的第3项。
A. List1.AddItem "Mydata", 3B. List1.Insert "Mydata", 3C. List1.AddItem "Mydata", 2D. List1.Insert "Mydata", 213. Timer控件可用于后台进程中，要使Timer事件每1秒钟触发一次，则需设置Interval属性为。
A. 1B. 10C. 100D. 100014. 下面子过程语句合法的是。
A. Sub s1(ByVal n%())B. Sub s1(n As Integer ) As IntegerC. Function f1%(f1 As Integer)D. Function f1(ByVal n As Integer)15. 代数式 (a+b)÷(5÷c+d÷2) 的Visual Basic表达式是。
A. (a + b) / 5 / c + d/2B. a + b / (5 / c + d/2)C. (a + b) /( 5 / c + 0.5d)D. (a + b) / (5 / c + d/2)二、填空题（20分，每小题2分）1. 窗体上放置了若干个文本框和列表框，当窗体装入后，要将焦点自动定位到List1上，则在设计时需要将List1控件的属性设置为。
2. 当单击水平滚动条上的空白区域时，要使滑块的移动量为230，则需通过属性来控制。
3. 当焦点进入文本框Text1时，要自动选定文本框第3到第8个位置上的6字符，则需要通过代码Text1.SelStart = 和来实现。
4. 对通用对话框选择方法，可显示字体对话框。
5. 对于窗体上的复选按钮，如果不允许进行操作，应通过属性进行设置。
6. 对于正在使用的动态数组B()，要增加3个单元，则应使用语句。
7. 格式输出函数Format(1234.00, "###.###") 的显示结果。
8. 绘制圆心坐标为 (1000, 1000)，半径为800的圆，其代码为。
9. 若调用过程时，采用值传递方式，则应在形参说明前添加关键字。
10. 为了使目录列表框Dir1和驱动器列表框Drive1之间能产生同步效果，必须在事件过程中加入语句。
三、程序填空（20分，每小格2分）1. 下面的程序按从小到大的顺序随机产生不超过20个介于100到400（包括100、400）的数，每次产生的一个数总大于它前面已产生的数，然后求产生的数的平均值。
数组b(20)用于存放所产生的随机数，运行结果图1所示。
图1Private Sub Command1_Click()Dim b(20) , i As Integer, j As Integer , sum As Singlej = 1Dore:b( j ) = Int( (1) )If b( j ) = 400 Or j = 20 ThenExit DoElseIf b( j ) <= b(j - 1) Then ′控制新产生的数总大于前面已产生的数(2)End If(3)Loopsum = (4)For i = 1 To jPrint b( i );sum = sum + b( i )Next iPrint "aver=", (5)End Sub2. 新的身份证号由18位组成，最低位（右边）为校验位，其算法是：10－（前17位之和关于10的模）。
函数foe用于对18位的身份证号进行校验。
参数mstr存放身份证号，md为产生的校验位，若校验正确，函数返回“True”，否则返回“False”。
Public Function foe(ByVal mstr$ , md%) As BooleanDim mp As String, msum As Integermsum = 0(1)mp = Mid(mstr, i, 1)msum = msum + Val(mp)Next imd = 10 - (2)If md = (3) Thenfoe = TrueElsefoe = FalseEnd IfEnd FunctionCommand1_Click事件用于调用foe函数，对输入到文本框Text1的身份证号进行校验，如果校验正确，显示“True”，否则显示“False”和校验码值。
Private Sub Command1_Click()Dim mm As IntegerIf Len(Text1) <> 18 Or Not IsNumeric(Text1) ThenMsgBox "非法数据，请重新输入！"Text1 = ""(4)Exit SubEnd IfIf foe(Text1, mm) = True ThenPrint TrueElse(5)End IfEnd Sub四、编程题（45分）1. 打开软盘根目录上的b1.vbp工程，补充程序，当单击命令按钮时可在文本框显示出700～800中所有素数的个数，并将统计结果以随机文件形式存入b1.dat文件中。
（10分）2. 编一个完整的程序，要求如下（35分）：（1）参见图2、图3，在Form1窗体上放置组合框Combo1、列表框List1，标签Label1和Label2；用你的准考证号建立一项菜单，包含两个菜单项：分别为“窗体2”和“结束”，之间有分隔线。
在Form2窗体上放置一个时钟控件和图形框，窗体的标题设置为你的准考证号。
（8分）（2）当在Form1窗体的组合框中输入新的课程名按回车后，可使该课程名加入到组合框中；当双击组合框中某课程名，可使该课程加入到List1中。
（7分）图2 图3（3）当单击“窗体2”菜单项时，打开Form2窗体，单击“结束”菜单项时，停止程序的运行。
（5分）（4）在Form2窗体中建立可通过鼠标右键弹出的菜单（快捷菜单）。
含有“装入图”、“移动”和“返回”三个菜单项。
选择“装入图”菜单项，在图形框装入clouds.bmp图形文件；选择“移动”菜单项，图形框按每0.1秒频率在窗体上右向左移动20单位；选择“返回”菜单项关闭Form2窗体，显示Form1窗体。
（10分）（5）在软盘根目录下将工程保存为B2.VBP、Form1窗体为B21.FRM、Form2窗体为B22.FRM，并且通过“文件|生成...exe”命令将工程生成A:＼B2.exe文件。
（5分）Visual Basic程序设计模拟试卷一参考答案一、单选题1. A2. B3. C4. C5. C6. C7. A8. D9. D 10. C 11. A 12. C 13. D 14. A 15. D二、填空题1. Tabindex 02. LargeChange3. 2 Text1.SelLength = 64. ShowFont5. Enabled6. ReDim B(Ubound (B)+3 )7. 12348. Circle (1000, 1000), 8009. ByVal10. Drive1_Change Dir1.path = Drive1.Drive三、程序填空1.（1）Rnd * 301 + 100（2）GoTo re（3）j = j + 1（4）0（5）sum / j2.（1）For i = 1 To Len(mstr$) - 1（2）msum Mod 10（3）Val(Right(mstr, 1))（4）Text1.SetFocus（5）Print False, mm四、编程题1. 参考答案一：（根据试卷提供的程序补充而成）Private Sub Command1_Click()Dim MyRecord As Record ′声明变量′补充程序Dim i, j, k As Integerk = 0For i = 1000 To 2000For j = 2 To i - 1If i Mod j = 0 Then GoTo nextmNext jk = k + 1nextm:Next iText1 = kMyRecord.st = Label1MyRecord.sj = kOpen App.Path + "\b1.dat" For Random As #1 Len = Len(MyRecord)Put #1, , MyRecordClose #1End Sub注：App.Path + "\b1.dat" 以绝对路径的方式表示的文件名"b1.dat" 省略了路径的文件名，表示在当前目录中2. 程序参考答案一：（1）Form1：Private Sub Combo1_DblClick()List1.AddItem Combo1.SelTextCombo1.Text = ""End SubPrivate Sub Combo1_KeyPress(KeyAscii As Integer)If Combo1.Text <> "" And KeyAscii = 13 ThenCombo1.AddItem Combo1.TextCombo1.Text = ""End IfEnd SubPrivate Sub mntExit_Click()EndEnd SubPrivate Sub mntWindows2_Click()Form1.HideLoad Form2Form2.ShowEnd Sub（2）Form2：Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mntMain, 2End IfEnd SubPrivate Sub mntCircle_Click()Timer1.Enabled = TrueEnd SubPrivate Sub mntLoad_Click()Picture1.Picture = LoadPicture("a:＼clouds.bmp")End SubPrivate Sub mntReturn_Click()Timer1.Enabled = FalseUnload MeLoad Form1Form1.ShowEnd SubPrivate Sub Timer1_Timer()Picture1.Move 20End Sub参考答案二：（1）Form1：Private Sub Combo1_DblClick()For i = 0 To List1.ListCount - 1List1.ListIndex = iIf List1.Text = Combo1.Text Then Exit SubNext iList1.AddItem Combo1.TextEnd SubPrivate Sub Combo1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 And Combo1.Text > " " Thenmt = Combo1.TextFor i = 0 To Combo1.ListCount - 1Combo1.ListIndex = iIf Combo1.Text = mt Then Exit SubNext iCombo1.AddItem mtEnd IfEnd SubPrivate Sub menu11_Click()Form2.ShowEnd SubPrivate Sub menu12_Click()EndEnd Sub（2）Form2：Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu menu1End SubPrivate Sub menu11_Click()Picture1 = Picture2End SubPrivate Sub menu12_Click()Timer1.Interval = 100End SubPrivate Sub menu13_Click()Unload MeEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu menu1End SubPrivate Sub Timer1_Timer()Picture1.Left = Picture1.Left - 20End Sub。