下载文档原格式
程序之外的是注释说明，程序本身不需要。
第一套VB'完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click()Dim x As LongDim n As Integer, i As Integer, s As LongDim a(1 To 5) As SingleFor i = 1 To 5a(i) = Val(InputBox("请在输入第" + Str(i) + "/5个数"))Print a(i);Next iPrintFor i = 1 To 4 （排序数的个数减1，5-1=4）Min = a(i): m = iFor x = i + 1 To 5If Min > a(x) Then Min = a(x): m = x （求最小值min ，min比其他值大则min要新值，保持最小）Next xk = a(i): a( I ) = a(m): a(m) = k （两变量交换数值）Next iPrint "从小到大排序后的数据为："For i = 1 To 5Print a(i);Next iEnd Sub第二套'完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第'三边），如可以，则计算并输出该三角形的面积；否则输出"不能构成三角形"。
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click()Dim a, b, c, q, s As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)q = (a + b + c) / 2Print "不能构成三角形"Elses = Sqr(q * (q - a) * (q - b) * (q - c)) （Sqr 平方根函数，Abs 绝对值函数）Print "三角形的面积是" & sEnd IfEnd Sub第三套'删除①②③及下划线，填上正确的代码，画出如下所示的图形，请不要更改原程序结构。
北京语言大学网络教育学院《VB 〉模拟试卷一1. 试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。
请监考老师负责监督。
2. 请各位考生注意考试纪律，考试作弊全部成绩以零分计算。
3. 本试卷满分100分，答题时间为90分钟。
4. 本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。
一、【单项选择题】（本大题共20小题，每小题2分，共40分）在每小题列出的四个选 项中只有一个选项是符合题目要求的，请将正确选项前的字母填在 答题卷相应题号处1、关于VB 的特点描述错误的是（ ）。
[A] VB 编程是可视化编程 [C]不可以访问数据库2、下面关于鼠标的指针设置说法不正确的是（ [A] 可以使用Mouselcon 设置鼠标的形状 [B] 可以使用MousePo in ter 设置鼠标的形状[B]是面向对象的程序设计 [D]采用事件驱动编程机制）。
[C] MousePointer 设为 99 时，可用 [D] MouseIcon 只能通过属性窗口选择鼠标形状3、 Dim Snow （ 1 to 12 ， 1），As Integer [A]13*2 [B] 13*14、 在工具箱里的都是（）。
[A]标准控件 [C] ActiveX 控件5、 一个窗体大小改变时被触发的事件是（ [A] Click 事件 [C] Initialize 事件6、 下列关于控件说法不正确的是（ [A] Age nt 控件用于设置动画行为[B] TextBox 用于接收用户输入的信息 MouseIcon 设置鼠标的形状是大小为（）的二维数组。
[C] 12*2 [D] 12*1[B]外部控件[D] 可插入对象（OLE ））。
[B] Resize 事件 [D] Un load 事件）。
组，当框架移动时，其中的控件不移动 [D] ListBox 向列表中添加一个新的项目 7、关于CheckBox 控件描述错误的是（ [A] 是复选框按钮，用"表示选中 [C] Value 为1表示选中该框 &关于Shape 控件描述正确的是（ [A] 用于向窗体添加矩形、圆形等图形 [C] Arial 用于设置显示控件的形状9、下面不属于循环控制语句的是（ ）。
6.1 笔试模拟卷6.1.1 笔试模拟试卷一一、选择题（每小题2分，共70分）1.在下列选项中，哪个不是一个算法一般应该具有的基本特征______。
A. 确定性B. 可行性C. 无穷性D. 拥有足够的情报2.在单链表中，增加头结点的目的是______。
A.方便运算的实现B.使单链表至少有一个结点C.标识表结点中首结点的位置D.说明单链表是线性表的链式存储实现3. 下列关于队列的叙述中正确的是______。
A. 在队列中只能插入数据B. 在队列中只能删除数据C. 队列是先进先出的线性表D. 队列是先进后出的线性表4. 对长度为N的线性表进行顺序查找，在最坏情况下所需要的比较次数为______。
A. N+1B. NC. (N+1)/2D. N/25. 信息隐蔽的概念与下述哪一种概念直接相关______。
A. 软件结构定义B. 模块独立性C. 模块类型划分D. 模拟耦合度6.面向对象的设计方法与传统的的面向过程的方法有本质不同，它的基本原理是______。
A. 模拟现实世界中不同事物之间的联系B. 强调模拟现实世界中的算法而不强调概念C. 使用现实世界的概念抽象地思考问题从而自然地解决问题D. 鼓励开发者在软件开发的绝大部分中都用实际领域的概念去思考7. 在结构化方法中，软件功能分解属于下列软件开发中的阶段是______。
A. 详细设计B. 需求分析C. 总体设计D. 编程调试8. 软件调试的目的是______。
A. 发现错误B. 改正错误C. 改善软件的性能D. 挖掘软件的潜能9. 按条件f对关系R进行选择，其关系代数表达式为______。
A. R|X|RB. R|X|RC. бf(R)D. ∏f(R)10. 数据库概念设计的过程中，视图设计一般有三种设计次序，以下各项中不对的是______。
A. 自顶向下B. 由底向上C. 由内向外D. 由整体到局部11.在VB中可以作为容器的是：______。
A.Form、TextBox、PictureBoxB.Form、PictureBox、FrameC.Form、TextBoX、LabelD.PictureBox、TextBox、ListBox12.VB中除窗体能显示图片外，下面列控件中可以显示图片的控件有:__ __。
附录2 Visual Basic上机模拟试题（1～10套）上机模拟试题 1一、调试程序（程序存盘文件名Test11.frm、Test11.vbp）（40分）在磁盘上有一名为“test11.vbp”的文件（程序界面如图1所示）。
其功能为：单击图片框后，则在图片框Picture1中输出如下所示的图形。
图1该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test12.frm、Test12.vbp）（60分）建立一个窗体，界面如图2所示。
程序功能要求如下：1、单击“查找”按钮后，查找所有四位数中满足条件“奇数位之和与偶数位之和均为素数”的数，并显示列表框list1中。
2、统计找到的满足条件的数的个数。
3、单击“存盘”按钮，将找到的数据存入数据文件“test12out.txt”中。
4、要求编写函数来判断是否是素数。
图2上机模拟试题2一、调试程序（程序存盘文件Test21.frm、Test21.vbp）（40分）在磁盘上有一名为“test21.vbp”的文件（程序界面如图1所示）。
其功能为：当在text1中输入行数和在text2中输入起始字母后，单击命令按钮command1，则在picture1中输出图形如图1所示。
要求：在text2中只能输入一个英文字母字符（大小写均可以），否则，提示错误信息，如图2所示。
图1 图2 该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test22.frm、Test22.vbp）（60分）建立一个成绩查询窗体，界面如图3所示。
程序功能要求如下：图31、在Form1_Load时，打开磁盘文件“test22in.txt”读取数据，并将读入的学号和姓名分别添加进两个列表框中，同时将三门课程的考试成绩读入c，d，e三个数组中（每个数组可定义为200个元素）；并默认选中第一名学生。
模拟试题一一、单选题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丸习越一一、判断(4小题1分，共20分。
请将答案涂在答瓯卡上，正确的涂A,措误的涂B)1.Visual Basic 6.0工作模式有3种：它们是没计、运行和调试。
()2.标签支持Dblclick事件。
(2 )3.窗体中控件的位置由Height和Top,同性确定。
(3 )4.滚动条的SmallChangeW性设置为5时.表示单击滚动条两端的箭头时变化为5.(4 )5.当把定时器控件的Visible属性设置为True时.运行时定时器在窗体上就可见了•( 5 )6.Vbred 是Visual Basic 6.0 允许的常量•( 6 )7.#25/6/2018#是Visual Basic 6.0合法的日期型常信书写。
(7 )8.逻辑运算符Not的优先级比Or高。
(8 )9.Visual Basic 6.0 中可■以用print 做变量名。
(9 )10.表达式5 mod 4与5\4的结果相同。
(10 )11.诏句if x>=60 and x<70 then print 格”是正确的。
(11 )12.select case语句必须有End select ifi句与之相匹配。
(12 >13.Exit for 是Do 循环的一个出口。
( 13 )14.选择结构与循环结构可以相互散套，并且允许交叉嵌套•( 14 )15.Visual Basic 6.0 中，Dim a(-5 to 5) as single 是正确的数组定义.(15 )16.可以用Ubound。
函数返回数组卜,标的卜界M 16 )17.过程体内可以再定义另外一个过程。
< 17 )18.实参是变量，旦过程定义时与其对应的形参用Byval关键字加以PU制是地址(引用)传递。
(18 )19.用Output模式打开文件.如果指定的路径不存在，则会自动先创建指定的路径，然后再创建文件。
< 19 )20.Visual Basic 6.0中，文件号最大可取的但是511. ( 20 )二、单项选择题：(每小超1分，共30分。
VisualBasic程序设计模拟试题⼀Visual Basic程序设计模拟试题⼀⼀、单项选择题（每⼩题2分，共30分）1．Visual Basic是⼀种⾯向对象的可视化编程语⾔，采取了（）的编程机制。
A．按过程顺序执⾏ B．从主程序开始执⾏C．事件驱动 D．按模块顺序执⾏2．要设置命令按钮的背景图形，必须设置的两个属性是（）A．Caption和Picture B．、Style和PictureC．Style和Icon D、Value和Icon3．⼯程⽂件的扩展名是（）。
A．.vbp B．.frmC．.bas D．.frx4．有程序代码如下：Text1.Text = "欢迎学习VB程序设计"则Text1，Text ，和"欢迎学习VB程序设计"分别代表（）。
A．对象，值，属性 B．对象，属性，值C．对象，⽅法，属性 D．属性，对象，值5. Visual Basic6.0集成开发环境有三种⼯作模式，下列不属于三种⼯作模式之⼀的是（）。
A．设计模式B．编写代码模式C．执⾏模式D．中断模式6．下列控件中，不能改变⼤⼩的是（）。
A．TextBox B．LabelC．Timer D．PictureBox7．多窗体程序是由多个窗体组成，在缺省情况下，VB在应⽤程序执⾏时，总是把（）指定为启动窗体。
A．不包含任何控件的窗体B．命名为Frm1的窗体C．包含控件最多的窗体D．设计时的第⼀个窗体8．Dim A(1 To 4,0 To 3)定义的数组包含的元素的个数是（）。
A．12 B．16C．15 D．动态变化9．如果创建了命令按纽控件数组，则Cilick事件的参数是（）。
A．Caption B．Index C．Tag D．没有参数10．不属于VB数据库引擎的是（）A．ODBC B．Jet引擎C．OLE DB D．BDE11．要向图⽚框P1中加载“d:\hainan\zhiwu.bmp”图像⽂件，应使⽤语句（）。
PPID49 2016~2017第一学期期末大基VB模拟试卷试卷预览单选题1.(2分)在集成环境创建应用程序时，除了工具箱窗口、设计窗口、属性窗口外，必不可少的窗口是_________。
1.窗体布局窗口2.立即窗口3.代码窗口√4.监视窗口2.(2分)在Label1.Text="程序设计" 语句中，Label1、Text和" 程序设计"分别属于_____。
1.对象、值、属性2.对象、方法、属性3.对象、属性、值√4.属性、对象、值3.(2分)当输入焦点离开文本框的时，发生的事件是______ 。
1. GotFocus2. Active3.LostFocus √4. DblClick4.(2分)若要使命令按钮不可操作，则应对其_______属性进行设置。
1.Enabled √2. Visible3. Style4. Disable5.(2分)以下正确的变量名是______。
1. 4Answer2._name √3. Integer4. SHU JU6.(2分)表示“X是能被3整除的数”的逻辑表达式是______。
1.x mod 3=0 √2. x mod 3 <> 03. x \ 3=04. x \ 3 <>07.(2分)已知 a=2,b=2，复合赋值语句： a *=b+10 执行后，a的值是__________。
1. 122.24 √3. 24. 148.(2分)下面正确的赋值语句是______ 。
1.xy=30 √2. sin(x)=r*r3. 2y=x+304. 30=x*y9.(2分)以下哪个语句可以使程序结束当前循环，而进入下一次循环______ 。
1. Close2. Exit3.Continue √4. End10.(2分)Dim s%Do While s<=3s=s+1Loop执行加法操作的次数为______。
1. 02. 33. 4 √4. 5程序填空题1.(12分)在文本框中分别输入身高和体重，回车后，根据计算公式将相应的提示信息显示在标签中。
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。
2017年本科技能测试考题整理--VB部分第一场考试1.单击系统时间按钮，在标签框中显示当前系统时间。
单击退出按钮，退出程序。
Private Sub Command1_Click()Label1.Caption = TimeEnd SubPrivate Sub Command2_Click()EndEnd Sub2.单击判断按钮，判断文本框输入的是否小于等于60，若是则标签框显示“合格，可以参赛”，若大于60，则显示“超重，不能参赛”。
3.如图所示，设计好控件。
通过按钮修改文本款的字体类型和样式。
4.在窗体上输出玫瑰花数。
提示：玫瑰花数是各位数的4次方相加等于它本身。
如：1648=1^4+6^4+4^4+8^4第2场考试1.设置一个“显示日期”按钮、一个退出按钮和一个标签框，单击“显示日期”按钮则标签框显示当前日期，单击退出按钮，则退出程序。
Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()EndEnd Sub2.在文本框中输入三角形三边a、b、c的数值，单击判断三角形按钮，判断数值a、b、c能否组成三角形，如果可以就输出“可以构成三角形”，不可以则输出“不能构成三角形”，单击退出按钮则退出程序。
3.建立一个标签框，单击“倒计时”按钮，使计时器从10开始倒计时，并把结果动态显示在标签框上，当倒计时到0结束时，弹出“时间到！”。
4. 取零巧数：要求百位数为0例如：2025 去掉0 为225， 225*9=2025 方为零巧数单击“取零巧数”按钮，将符合条件的零巧数输出到窗体上。
第3场考试1.输出当前年份在label1，点击end按钮结束程序。
Private Sub Command1_Click()Label1.Caption = Month(Time)End SubPrivate Sub Command2_Click()EndEnd Sub2.算运费（重量超过20公斤，收费车费1.5%，未超过不收费）。
2017年1月广东省高等教育自学考试Visual Basic程序设计试题（课程代码07759）一、单项选择题（本大题共16小题,每小题1分，共16分）在每小题列出的四个备选项中只有一个是符合题目要求的，请将其选出并将“答题卡”的相应代码涂黑。
错涂、多涂或未涂均无分。
1. 变量定义语句Dim A%，说明A是A. 整型B. 长整型C. 单精度浮点数D. 双精度浮点数2. Len("12345678")+ Len("1234")的结果是A. 4B. 8C. 12D. 163. 为了给变量x, y赋初值1，下列正确的赋值语句是A. x=1,y=1B. x=y=1C. x=1=y=1D. x=1；y=14. MsgBox函数的返回类型是A. 整型B. 单精度C. 双精度D. 字符串5. 当在文本框内输入新的内容，会发生_________事件。
A. ClickB. DblClickC. ChangeD. TextChange6. 要判断复选框Check是否选中，需要用_________属性A. TextB. EnabledC. ValueD. Checked7. 要把当前列表框List1选中要内容增加到列表框List2，可适用下列________语句。
A. List1. Add List2.TextB. List2. Add List1.TextC. List1. AddItem List2.TextD. List2. AddItem List1.Text8. 滚动条的当前位置，可通过________属性获得。
A. TextB. ValueC. MaxD. Min9. 下列数组定义中，_________的元素个数最少。
A. Dim A(3,2)B. Dim A(2,3)C. Dim A(-1 To 2,3)D. Dim A(1 To 2,3)10. Sub过程的定义：Sub PrintOut(x As Integer)，下列调用正确的是A. PrintOut3B. CallPrintOut3C. PrintOut"A3"D. CallPrintOut"A3"11.________属性决定组合框Combo的类型。
VB习题集（2017版）第一章习题一、选择题1. 以下不能在"工程资源管理器"窗口中列出的文件类型是（）。
（A）.bas （B）.res （C）.frm （D）.ocx2. 以下不属于Visual Basic系统的文件类型是（）。
（A）.frm （B）.bat C）.vbg D）.vbp3. 以下叙述中错误的是（）。
（A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件（B）保存Visual Basic程序时，应分别保存窗体文件及工程文件（C）Visual Basic应用程序只能以解释方式执行（D）事件可以由用户引发，也可以由系统引发4. 以下叙述中错误的是（）。
（A）Visual Basic 是事件驱动型可视化编程工具（B）Visual Basic应用程序不具有明显的开始和结束语句（C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性（D）Visual Basic中控件的某些属性只能在运行时设置5.下列不能打开属性窗口的操作是（）。
（A）执行“视图”菜单中的“属性窗口”命令（B) 按F4键（C）按Ctrl+T（D）单击工具栏上的“属性窗口”按钮6. 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序，以下正确的操作是（）。
（A）只保存窗体模块文件（B）分别保存窗体模块、标准模块和工程文件（C）只保存窗体模块和标准模块文件（D）只保存工程文件7. 以下叙述中错误的是（）。
（A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件（B）以.BAS为扩展名的文件是标准模块文件（C）窗体文件包含该窗体及其控件的属性（D）一个工程中可以含有多个标准模块文件8. 下列可以打开立即窗口的操作是（）。
（A）Ctrl+D （B） Ctrl+E （C） Ctrl+F （D） Ctrl+G9. 在VB开发集成环境中，如果工具箱不可见，应在（）主菜单中操作而使它可见。
VB模拟试卷1一、单项选择题（每小题1分，共25分）(1)以下能在“工程资源管理器”窗口中列出的文件类型是：（）A)*.txt B)*.frm C)*.doc D)*.jpg(2)下列可作为Visual Basic变量名的是：（）A)A#A B)4A C)?xY D)constA(3) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是：（）A)="VisualBasic窗体"B)Form1.Title="VisualBasic窗体"C)Form1.Caption="VisualBasic窗体"D)Form1.Text="VisualBasic窗体”(4)将数学表达式2×(a+b)+5÷2写成Visual Basic的表达式，其正确的形式是：（）A) 2*(a+b)十5/2 B) 2^(a+b)+5\2C)(a+b)^2十5*2 D) 2^(a+b)+5*2(5)窗体上只有命令按钮Command1，代码中有如下过程：Private Sub Command2_Click()a="software and hardware"Msgbox aEnd Sub则该过程是：（）A)事件过程B)通用过程C)函数D)设计过程(6)在窗体上添加一个名称为List1的列表框，一个名称为Label1的标签。
当单击列表框中的某个选项时，在标签中显示该选项名称。
下列能正确实现此功能的程序是：（）A) Private Sub List1_Click()Label1．Caption＝List1.ListIndexEnd SubB) Private Sub List1_Click()Label1．Name＝List1．ListIndexEnd SubC) Private Sub List1_Click()Label1．Caption＝List1.TextEnd SubD) Private Sub List1_Click()Label1．Name＝List1.TextEnd Sub(7)如下事件过程:Private Sub Command1_Click()x=0For i= 1 To 5x = x +1Next iLabel1.Caption= xEnd Sub程序运行后,单击命令按钮Command1,则Label1显示：（）_A) 3 B) 4 C) 5 D) 6(8)窗体上一个名为command1(1)的按钮，正确调用其Name属性的方法是：（）A) B)command1*nameC) command1(1).name D) command1(1)*name(9)可以同时删除字符串前导和尾部空白的函数是：( )A、LtrimB、 RtrimC、 TrimD、Mid(10)以下关于文件的叙述中，错误的是：（）A）顺序文件中的记录一个接一个地顺序存放B）随机文件中记录的长度是随机的C）执行打开文件的命令后，自动生成一个文件指针D）LOF函数返回给文件分配的字节数(11)以下关于过程及过程参数的描述中，错误的是( )A) 事件过程不能被其他过程调用B)ByVal关键字声明按值传递参数C)ByRef关键字声明按地址传递参数D)事件过程是基于对象的事件而建立的(12)设a=5，b=3，则以下表达式值为真的是A) a＞=b And b＞10 B)(a＞b)Or(b＞0) C) a＜0 And(b＞0) D)( 5＞a) And (b＞0)(13)在窗体上一个名称为TxtA的文本框有如下的事件过程：Private Sub TxtA_KeyPress(keyascii as integer)End Sub则能够触发KeyPress事件的操作是：（）A)单击鼠标B)双击文本框C)鼠标滑过文本框 D)按下键盘上的某个键(14)DirListBox目录列表框的Path属性的作用是：（）A)显示当前驱动器或指定驱动器上的路径B)显示当前驱动器或指定驱动器上的某目录下的文件名C)显示根目录下的文件名D)只显示当前路径下的文件(15)为了暂时停止计时器，应把计时器的某个属性设置为False，这个属性是：（）A) Visible B) TimerC) Enabled D) Interval（16）设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是（）：A)text1.maxlength=0 B)text1.enabled=flaseC)text1.visible=flase D)text1.width=0（17）对声明语句String * size ,以下说法正确的是：（）A、size为定长的字符串B、size为变长的字符串C、size为指针D、size为定长的字符串的长度（18）Load事件的理解正确的是( )A此事件是在一个窗体被装载时发生B 当窗体从屏幕上删除时发生C 可以用于释放窗体资源D 以上均不正确（19）在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。
11.在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End SubA B C D a12.设a=5，b=4，c=3，d=2，下列表达式的值是3>2*b Or a=c And b<>c Or c>dA、1B、TrueC、FalseD、2A B C D b13.设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)A B C D b14.假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft VisualBasic"b$ = Right(a$, 5)c$ = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是A、Microsoft VisualB、MicrosoftC、BasicD、5A B C D c15.设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为A、"a"B、"b"C、"B"D、"A"A B C D16.为了使命令按钮（名称为Command1）右移200，应使用的语句是A、Command1.Move -200B、Command1.Move 200C、Command1.Left = Command1.Left + 200D、Command1.Left = Command1.Left - 200A B C D d17.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输入一个整数")Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为A、123B、456C、579D、123456A B C D c18.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。
VB机试模拟试卷1(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．注意：下面出现的“考生文件夹”均为c;\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”(名称分别为vbFile和vbHelp)两个主菜单项，其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项(名称分别为vbOpen、vbClose和vbExit)，如图1-1所示。
只建立菜单，不必定义其事件过程。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。
(2)在名为Form1的窗体上画一个框架，名称为Frm1，标题为“框架”，高度为2500，宽度为4000，框架内建立一文本框，距左边框600，距框架的上边框1200，文本框中的初始内容设置为“文本框”。
如图1-2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。
正确答案：(1)在Visual Basic中，菜单项通过菜单编辑器来建立。
解题步骤：第一步：打开“菜单编辑器”窗口，建立菜单项。
用到的菜单项及其属性见表1-1。
第二步：调试并运行程序。
第三步：按题目要求存盘。
(2)在窗体上建立好控件后，再按题目要求设置各自的属性即可。
需要指出的是在框架里的控件需要画出框架后，单击工具箱里的控件然后在框架里拖动画出所需控件，不可以用双击的方法，否则所需的控件放不到框架里。
窗体中的控件的具体位置由控件的Top、Left属性设置，大小由属性Height Width设置。
解题步骤：第一步：设置框架的Height、Width属性分别为2500，4000；文本框的Left、Top 属性值分别为600，1200。
(以上均可在属性栏里没置) 第二步：调试并运行程序。
文案大全 【HNCE 网上考试系统 v9.6】 本套软件使用权属于：郑州大学考试课程:VB-程序设计-练习 考试时间:90分钟 考场:第一考场 考试日期:2017.04.10剩余时间： 88:09 保存交卷退出帮助本卷共有2道大题:一、单项选择题（50道小题，共50分）1、与传统的程序设计语言相比较，Visual Basic 最突出的特点是______。
（1分）A 、结构化的程序设计B 、数据处理C 、面向对象的可视化编程D 、中文支持2、任何控件都具有的属性是______。
（1分）A 、PictureB 、CaptionC 、NameD 、AutoSize3、保存一个Visual Basic 应用程序，正确的是______。
（1分）A 、只保存工程文件(.vbp)B 、只保存窗体文件（.frm ）C 、只保存标准模块文件（.bas ）D 、分别保存窗体文件和工程文件4、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是______。
（1分）文案大全A 、LoadB 、ClickC 、DblClickD 、MouseDown5、启动Visual Basic 后，VB 为用户建立的第一个窗体是______。
（1分）A 、FormB 、Form1C 、窗体1D 、窗体6、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4，执行后s 的值是______（1分）A 、10B 、11C 、12D 、157、表示年龄(age)在20岁和30岁之间的表达式是______。
（1分）A 、age>=20 And age<=30B 、age>=20 0r age<=30C 、age<=20 And age>=30D 、age<=20 0r age>=308、文本框中的ScrollBars 属性已设置为 3-Both ，但却没有水平和垂直滚动条的效果，原因可能是______。
（1分）A 、文本框中没有内容B 、文本框的MultiLine 属性为False文案大全C 、文本框的MaxLength 属性为0D 、文本框的Locked 属性是True9、决定窗体标题栏显示内容的属性是______。
（1分）A 、TextB 、NameC 、CaptionD 、BackStyle10、找出两个数中较大的数的程序段，错误的是______。
（1分）A 、IF x >y Then max=x Else max=yB 、max=IIF(x>y , x, y)C 、IF x >y Then max=x : max=yD 、max=x: If x< y Then max=y11、若要选择Text 对象的Text1_KeyPress 事件，可以______。
（1分）A 、在属性窗口中选择B 、在工程资源管理器窗口中选择C 、在代码设计窗口中利用对象列表框、过程列表框选择D 、在窗体设计窗口中双击Text1对象12、在下列语句中，正确的是______。
（1分）A 、Text1.Text+Text2.Text=Text3.TextB 、="cmdok"C 、Label1.Caption=4567D 、x=InputBox(please input)文案大全13、Select Case 语句中的“表达式列表”不能是______。
（1分）A 、变量名的列表，例如 Case x ,y ,zB 、值的列表，例如 Case "a ","b","c"C 、To 表达式，例如 Case 1 to 10D 、Is 关系表达式，例如 Case Is <814、下列关于窗体的Name 属性的叙述，正确的是______。
（1分）A 、它的值在程序运行中可以重新改写B 、它是显示在窗体标题栏中的文本C 、它是指窗体的名称，在程序中用来标识一个窗体对象D 、它的值可以为空15、在Form_Load()中，如果想用Print 方法将计算结果显示在窗体上，则必须保证窗体的______属性值为True 。
（1分）A 、EnabledB 、ApperanceC 、AutoRedrawD 、Moveable16、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd ”，则文本框中显示的是______。
（1分）A 、1个“$”B 、4个“$”C 、不显示内容D 、“*”17、Visual Basic 的编程机制是______。
（1分）文案大全A 、面向过程B 、面向对象C 、事件驱动D 、可视化18、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。
下面正确的事件过程为______。
（1分）A 、Private Sub Command1_Click(): Command1.Caption = "计算机考试": End SubB 、Private Sub Command1_Click(): Text1 = "计算机考试": End SubC 、Private Sub Text1_Change(): Command1.Caption = "计算机考试": End Sub D 、Private Sub Text1_Click(): Text1.Caption = "计算机考试": End Sub19、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是______。
（1分）A 、0B 、1C 、随机数D 、显示出错信息20、有一个命令：Text1= "欢迎您！"，表达方式中省略了对象的______。
（1分）A 、方法B 、属性名C 、对象名D 、标题21、以下不合法的常量是______。
（1分）文案大全A 、10^2B 、100C 、100.0D 、10E+0122、语句Print "int(-23.4)= "; ; Int(-23.4)的输出结果为（1分）A 、Int(-23.4)=-23.4B 、(-23.4)=23.4C 、Int(-23.4)=-23D 、Int(-23.4)=-2423、启动Visual Basic 后，VB 为用户新建立的第一个工程的名字是______。
（1分）A 、窗体1B 、工程C 、窗体D 、工程124、Cls 方法可以清除窗体或图片框中的______。
（1分）A 、在设计阶段使用Picture 设置的背景位图B 、在设计阶段放置的控件C 、在运行阶段产生的图形和文字D 、以上全部内容25、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右(→)移动一定距离。
在Command1_Click()中能完成这个功能的命令为______。
（1分）文案大全A 、Label1.Left = 100B 、Label1.Left = Label1.Left - 100C 、Label1.Move 100D 、Label1.Move Label1.Left + 10026、执行语句Print Format(32548.5, "###,##0.00")，输出结果是______。
（1分）A 、32548.5B 、32,548.5C 、032,548.50D 、32,548.5027、Print DateDiff("m", #1/28/2004#, #1/31/2004#)的输出结果是______。
（1分）A 、OB 、1C 、-1D 、228、执行语句：Print Format(32548.5, "000,000.00")，输出结果是______。
（1分）A 、32548.5B 、32,548.5C 、032,548.50D 、32,548.5029、下列表达式中，表示"X 和Y 之中有一个是奇数"的表达式是______。
（1分）A 、X Mod 2 = 1 And Y Mod 2 = 1B 、X Mod 2 = 1 Or Y Mod 2 = 1文案大全C 、(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mod2 = 1) D 、(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mod 2 = 1)30、表达式"Turbo" + "C" > "True" + "Basic"的值是______。
（1分）A 、TrueB 、FalseC 、NullD 、出错信息31、程序段Print -15;: Print -16， 输出的结果是______。
（1分）A 、-15 -16B 、-31C 、-15-16D 、出错32、以下声明语句中，错误的是______。
（1分）A 、Const varl=123B 、Const var2="ABC"C 、Public const="计算机等级考试"D 、Static var3 as Integer33、Single （单精度）型数据占______个字节。
（1分）A 、2B 、4文案大全C 、8D 、1034、已知下列程序段：a = 3: b = 4: Print b > a ，输出的结果是______。
（1分）A 、TrueB 、FalseC 、4>3D 、显示出错信息35、在下列逻辑表达式中，逻辑值为"真"的是______。
（1分）A 、Not (1 > 2)B 、Not (3 + 4 < 4 + 6)C 、1 > 2 Or 2 > 3D 、2 > 1 And 3 < 236、如果将布尔常量值True 赋给一个整型变量，则整型变量的值为______。
（1分）A 、OB 、-1C 、TrueD 、False37、执行程序段：Dim axs As Integer: axs% = 232: axs = 132.32: Print axs%; axs ，输出的结果是______。
