VB2002-2003学年 第二学期B卷
2003年9月全国计算机等级考试二级VB笔试试题
这学期你的表现一直很出色,在刚开学那一群哭闹的新宝宝中,你的从容就已经表现出了你优秀的能力,而后面的幼儿园生活中你的独立和自理能力得到了充分的体现,自己穿脱衣服叠衣服,帮助他人扣扣子,真是厉害这学期你的表现一直很出色,在刚开学那一群哭闹的新宝宝中,你的从容就已经表现出了你优秀的能力,而后面的幼儿园生活中你的独立和自理能力得到了充分的体现,自己穿脱衣服叠衣服,帮助他人扣扣子,真是厉害,比其他娇生惯养的小公主可爱多了。
还有你的动手能力也体现在美术课上,你能完成一副副好看的涂画作品,老师看了很高兴。
新学期里老师希望你能在众人面前表演的时候更加大方,不会我们可以学到会,会我们就更要表现出来给别人看,你说是不是?老师为你加油!你在这短短半学期的进步是我们有目共睹的,阿姨现在经常向你竖起大拇指呢,确实,刚来幼儿园的时候你很内向,也不敢表达自己的想法,从表情上看就是一副不自然的模样,现在你能大方的向老师问好,课上能高举小手要求回答问题或表演,老师看在眼里可真高兴。
更让老师高兴的是你的能力的提高,如涂色能力、剪纸能力、课堂注意力等,蒙氏课上我们认识动物, 你能多次将动物和其对应的名字卡片配对起来,也给老师带来了惊喜,希望你在新的学期能再接再厉,创造出更多好成绩给老师和爸爸妈妈看。
在经历了每个新入园宝宝必经的不适应甚至哭闹过程后,你已经完全融入到了集体生活中,光这一点就体现了你人际交往能力的进步,现在你能和周围的小伙伴自在的嬉闹玩耍,开心的享受每一天的幼儿园生活了。
另外,你的动手能力也有了进步,以前你在涂画课上总是磨磨蹭蹭的,现在已经能在下课前完成出不错的作品。
新的学期有新的要求,老师希望你在课堂上能更专心更投入,这样才能学到更多本领,更好的体现出你的聪明才智哦!这学期你的表现很好,你喜欢自由的玩玩具,在放松的状态下你能充分发挥你的想象力和创造力,建构出好多种造型,而不像别的男孩子只知道搭枪,在建构出来后你还会给他们取好听的名字,更愿意将你的作品和想法呈现给老师看,而当老师给予肯定和表扬时,你的脸笑得像一朵花,看来你很享受被表扬的感觉哦!在新的学期希望你凭自己的努力得到更多的表扬!你是一个很聪明的宝宝,在这学期,老师看到你身上很多的闪光点,先是对音乐敏感学唱歌特别快,然后是知识比同龄宝宝要广,还有记忆力好,老师教过的有点难度的内容等到复习的时候你能很快回答出来,让老师倍感欣慰。
2003年9月全国计算机等级考试二级VB语言笔试试题及答案
2003年9月全国计算机等级考试二级笔试试卷公共基础知识和Visual Basic语言程序设计（考试时间90分钟，满分100分）一、选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）以下叙述中错误的是。
A）Visual Basic是事件驱动型可视化编程工具B）Visual Basic应用程序不具有明显的开始和结束语句C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D）Visual Basic中控件的某些属性只能在运行时设置（2）以下叙述中错误的是。
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B）以.BAS为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件（3）以下叙述中错误的是。
A）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员确定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定（4）以下不属于Visual Basic系统的文件类型是。
A）.frm B） .bat C）.vbg D）.vbp（5）以下叙述中错误的是。
A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（6）以下能正确定义数据类型TelBook的代码是。
A）Type TelBook B）Type TelBookName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End TelBookC）Type TelBook D）Typedef TelBookName String*10 Name String*10TelNum Integer TelNum IntegerEnd Type TelBook End Type（7）以下声明语句中错误的是。
200209月全国计算机等级考试二级VB试卷(含答案)
2002年9月全国计算机等级考试二级VB 试卷(含答案)一、选择题(每题2分，共70分)二、下列各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
三、(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是四、A) 工程资源管理器窗口B) 工具箱窗口五、C) 代码窗口D) 属性窗口六、(2) 以下叙述中正确的是七、A) 窗体的Name属性指定窗体的名称，用来标识一个窗体八、B) 窗体的Name属性的值是显示在窗体标题栏中的文本九、C) 可以在运行期间改变对象的Name属性的值十、D) 对象的Name属性值可以为空十一、(3) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是十二、A) 单选按钮B) 图片框C) 通用对话框D) 文本框十三、(4) 设有如下变量声明十四、 Dim TestDate As Date十五、为变量TestDate正确赋值的表达方式是十六、A) TextDate=#1/1/2002# B) TestDate=#“1/1/2002”#十七、C) TextDate=date(“1/1/2002”) D) TestDate=Format(“m/d/yy”,“1/1/2002”)十八、(5) 设有如下声明：十九、 Dim X As Integer二十、如果Sgn(X) 的值为-1，则X的值是二十一、A) 整数B) 大于0的整数C) 等于0的整数D) 小于0的数二十二、(6) 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：二十三、Private Sub Command1_Click()二十四、Static X As Integer二十五、Static Y As Integer二十六、Cls二十七、Y=1二十八、Y=Y+5二十九、X=5+X三十、Print X,Y三十一、End Sub三十二、程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为三十三、A) 15 16 B) 15 6 C) 15 15 D) 5 6三十四、(7) 设a=3,b=5，则以下表达式值为真的是三十五、A) a>=b And b>10 B) (a>b)Or(b>0)三十六、C) (a<0)Eqv(b>0) D) (-3+5>a)And(b>0)三十七、(8) 设有语句三十八、x=InputBox(“输入数值”，“0”，“示例”)三十九、程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是四十、A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是“示例”四十一、C) 0是默认值D) 变量X的值是字符串“10”四十二、(9) 从键盘上输入两个字符串，分别保存在变量str1、str2中。
2003年4月全国计算机等级考试二级vb笔试真题附答案-推荐下载
(7)在窗体上画一个命令按钮，名称为 Commandl。单击命令按钮时，执行 如下事件过 程： PrlVate Sub Commandl—C1icko a$="software and hardware" b$＝Right(a$,8) c$=Mid(a$,1，8) Msgbox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是 A)softWare and hardware B)software C)hardwafe D)1
2003 年 4 月全国计算机等级考试二级 VB 语言笔试试题及答案 一、选择题((1)一(20)每小题 2 分，(21)一(30)每小题 3 分，共 30 题，70 分) 下列各题 A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正 确选项涂 在答题卡的相应位置上，答在试卷上不得分。 (1)以下不能在“工程资源管理器”窗口中列出的文件类型是
(8)执行如下语句：
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术关，系电通，力1根保过据护管生高线产中0不工资仅艺料可高试以中卷解资配决料置吊试技顶卷术层要是配求指置，机不对组规电在范气进高设行中备继资进电料行保试空护卷载高问与中题带资2负料2，荷试而下卷且高总可中体保资配障料置2试时32卷，3各调需类控要管试在路验最习；大题对限到设度位备内。进来在行确管调保路整机敷使组设其高过在中程正资1常料中工试，况卷要下安加与全强过，看度并25工且52作尽22下可护都能1关可地于以缩管正小路常故高工障中作高资；中料对资试于料卷继试连电卷接保破管护坏口进范处行围理整，高核或中对者资定对料值某试，些卷审异弯核常扁与高度校中固对资定图料盒纸试位，卷置编工.写况保复进护杂行层设自防备动腐与处跨装理接置，地高尤线中其弯资要曲料避半试免径卷错标调误高试高等方中，案资要，料求编试技5写、卷术重电保交要气护底设设装。备备置管4高调、动线中试电作敷资高气，设料中课并技3试资件且、术卷料中拒管试试调绝路包验卷试动敷含方技作设线案术，技槽以来术、及避管系免架统不等启必多动要项方高方案中式；资，对料为整试解套卷决启突高动然中过停语程机文中。电高因气中此课资，件料电中试力管卷高壁电中薄气资、设料接备试口进卷不行保严调护等试装问工置题作调，并试合且技理进术利行，用过要管关求线运电敷行力设高保技中护术资装。料置线试做缆卷到敷技准设术确原指灵则导活：。。在对对分于于线调差盒试动处过保，程护当中装不高置同中高电资中压料资回试料路卷试交技卷叉术调时问试，题技应，术采作是用为指金调发属试电隔人机板员一进，变行需压隔要器开在组处事在理前发；掌生同握内一图部线纸故槽资障内料时，、，强设需电备要回制进路造行须厂外同家部时出电切具源断高高习中中题资资电料料源试试，卷卷线试切缆验除敷报从设告而完与采毕相用，关高要技中进术资行资料检料试查，卷和并主检且要测了保处解护理现装。场置设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
VFP数据库试卷
课程 数据库(B 卷) 2009~2010学年第二学期注意：请将正确答案写在答题纸上，答在试卷上不给分。
一．选择题：（本大题共20小题，每小题1分，共20分）1． 根据提供的数据独立性、数据共享性、数据完整性、数据存取方式等水平的高低，计算机数据管理技术的发展可以划分为三个阶段，其中不包括下列的________。
A ．人工管理阶段B ．计算机管理阶段C ．文件系统阶段D ．数据库系统阶段 2． Visual FoxPro 是一个 ________ 。
A ．数据库系统 B ． 数据库C ．数据库管理系统D ． 数据库管理员3． 在关系模型中，关系规范化的过程是通过关系中属性的分解和关系模式的分解来实现的。
在设计关系模式时，一般要求满足________。
A ．1NF B ．2NF C ．3NF D ．4NF 4．下列说法中，不正确．．．的是________。
A. 二维表中的每一列均有唯一的字段名； B. 二维表中不允许出现完全相同的两行；C. 二维表中行的顺序、列的顺序均可以任意交换；D. 二维表中行的顺序、列的顺序不可以任意交换。
5． 下列函数中，返回值为字符型的是________。
A ．DOW( )B ．A T( )C ．CHR( )D ．V AL( )6． 在VFP 集成环境下，用户利用do 命令执行一个程序文件时，系统实质上是执行文件________。
A ．.PRG B ．.BAK C ．.FXP D ．.EXE 7． 下列有关名称命名规则的叙述中不正确的是________。
A ．名称中只能包含字母、下划线、数字符号和汉字B．名称的开头只能是字母、汉字或下划线，不能是数字C．各种名称的长度均可以是1~128个字符D．系统预定义的系统变量，其名称均以下划线开头8．在VFP中，用户最多可以同时打开______张表。
A．10 B．100多C．1000多D．3000多9．对于自由表而言，不允许有重复值的索引是_______ 。
2002年(春)VB二级考试笔试卷答案
2002年（春）VB二级考试笔试卷第二部分 Visual Basic 程序设计一、选择题（用答题卡答题，答案依次填在21-30答题号内）21. 下面有关对象属性的叙述中，不正确的是___21___。
A. 一个对象的属性可分位为外观、行为等若干类。
B. 相同属性可能具有不同的数据类型。
C. 一个对象的所有属性都可在属性窗口的列表中进行设置。
D.属性窗口中的属性列表可以按字母序也可按类别排列。
22. 代数式对应的VB表达式是__22___。
A. (12*x+5*y-Sqr(Abs(d^3-m^2)))/Exp(-x)/Sin(x)B. (12*x+5*y-Sqr(Abs(d^3-m^2)))/Exp(-x)*Sin(x)C. (12*x+5*y-Sqr(Abs(d^3-m^2))/Exp(-x)/Sin(x)D. (12*x+5*y-Sqr(Abs(d^3-m^2)))/e^(-x)/Sin(x)23. 对于“X>Y>Z”，正确的VB逻辑表达式是___23___。
A. X>Y AND Y>ZB. X>Y>ZC. X>Y OR Y>ZD. X>Y AND >Z24. 设有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的__24___语句可以使文本框内显示的内容为：5+7=12。
A. text1.text=a+b=cB. text1.text="a+b=c"C. text1.text=a & "+" & b & "=" & cD. text1.text="a"&"+"&"b"&"="&"c"25. 用语句Private Sub Convert(Y As Integer) 定义的Sub过程时，以下不是按值传递的语句是___25___。
国家二级VB机试(综合应用题)模拟试卷2(题后含答案及解析)
国家二级VB机试（综合应用题）模拟试卷2(题后含答案及解析) 题型有：1.1．在考生文件夹下有一个工程文件sjt5．vbp，在其窗体中有一个实心圆。
程序运行时，当用鼠标左键单击窗体任何空白位置时，实心网则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。
窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控仲属性。
最后将修改后的文件按原文件名存盘。
正确答案：【操作步骤】步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案Dim stepy As Integer ‘纵向移动增量Dim Stepx As Integer ‘横向移动增量Const LEFT BUTTON＝1 Private Sub Form_MouseDown(Button As Integer，Shift As Integer，x As Single，y As Single) Dim x0 As Integer，y0 As Integer，a As Single，radius As_Integer radius＝Shapel．Width／2 ‘圆的半径If Button＝LEFT BUTTON Then ‘单击鼠标左键移动x0＝Shapel．Left＋radius’圆心的x坐标y0＝Shapel．Top＋radius’圆心的y坐标If x＝x0 Then’垂直移动stepy＝Sgn(y－y0)*50 stepx＝0 Else’倾斜移动a＝(y－y0)／(x－x0)’斜率stepx＝Sgn(x－x0)*50 stepy＝a*stepx ‘通过stepx确定stepy的值If Abs(stepy)＞Abs(stepx)Then stepy＝Sgn(y－y0)*50 stepx＝stepy／a End If End If Timer1．Enabled＝True’单击鼠标左键则触发Timer事件E1se Timer1．Enabled＝False’单击鼠标右键则停止Timer事件End If End Sub Private Sub Timer1_Timer( ) Shape1．Move Shape1．Left＋stepx，Shapel．Top＋stepy’移动shapel End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
VB期末考试试题(A、B卷)
欢迎共阅VB期末考试试题（A卷）一、选择题1.要改变控件的宽度，应修改该控件的（B）属性。
A、TOPB、widthC、LeftD、Height2.将命令按钮Command1设置为不可见，应修改该命令按钮的（A）属性。
10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（C ）属性决定了该图片的颜色。
A、BackColroB、ForelklorC、FillcolorD、Dlawstyle一、选择题1.要在垂直位置上移动控件，应利用控件的（C）属性。
A、LeftB、WidthC、TopD、Height2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（D）属性为False。
A、TxetB、EnabledC、VisibleD、Multline3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（ C ）的事件。
A、KeyPressB、KeyDownC、ClickD、Keyllp4.一下（D ）对象不具有Clear方法。
y<b 的结果为True。
3．a 和b 中有仅只有一个不为1，相应的Visual Basic逻辑表达式为a<>1 xor b<>1。
4．把条件为1￡x ￡5 写成VB表达式为: x>=1 and x<=5。
5. 语句Line(1000,1000)-Step(2000,1500),vbRed,BF的含义是：在窗体上绘制以角点为（2000，2000）和（4000，3500）的红色实心的矩形。
?6．用随机函数产生10个100～500的整数，其表达可为：for I=1 to 10a(i)=100+int(400*rnd)next I。
7．当x=2时，语句if x=2 then Print x=2 的结果值是True。
8. Static Private Sub cmdSum_Click()Dim Sum as integer?? If rnddat Mod 2 = 0 Then?????? sum = sum + rnddat???? End IfNext iLabel1.Caption = sumEnd Sub2由输入对话框中输入100个数值数据，放入数组a，将其中的整数放入数组b，然后运用选择分类将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
江汉石油学院试卷2002-2003学年 第二学期课程名称： VB 程序设计 适用班级： 生物、建筑2002级 出卷教师： 李新玉 试卷卷别： B 卷 考试时间： 120分钟 考试日期： 2003.6.17注意：请将答案直接做在试卷上，否则无效。
一、选择题（每题2分，共30分） (1) 确定一个控件在窗体上的位置的属性是： A ） Width 和Height B ） Left 和Top C ） Left 和Height D ） Width 和Top (2) 在VB 中刚刚建立了一个新的标准EXE 工程后，不在工具箱中出现的控件是： A) 单选按钮 B) 进度条 C) 图片框 D) 时钟 (3) 以下叙述中正确的是： A) 窗体的Caption 属性的值是显示在窗体标题栏中的文本 B) 窗体的Caption 属性指定窗体的名称，用来标识一个窗体 C) 在程序运行期间不能改变窗体的Caption 属性的值 D) 窗体的Caption 属性值不能为空 (4) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是： A) 工程资源管理器窗口 B) 工具箱窗口 C) 属性窗口 D) 代码窗口(5) 以下能够触发文本框Change 事件的操作是： A) 改变文本框的内容 B) 文本框获得焦点 C) 设置文本框的焦点 D) 文本框失去焦点 (6) 设a=15则以下表达式值为True 的是： A) a>1 And a<10 B) a=1 Or a<10 C) 100>a>1 D) 1<a<100 (7) 设a=“Microsoft V isual Basic”，下面能使b=“Microsoft ”的语句是： A) b=Mid(a,1,9) B) b=Mid(a,0,8) C) b=Left(a,1,9) D) b= Left (a,0,8) (8) 下列可作为V isual Basic 变量名的是： A) A~a B) A!a C) A2a D) A&a (9) 函数Print String(5，“SARS ”)的输出结果是：A) SARSS B) S S S S S C) 5SARS D) 5，SAR(10) 设有语句: Dim a$ : a=V al(InputBox(“输入数值”, “注意赋值语句中的类型转换！”, “20”)) 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是：A) 变量a 的值是数值10B) 变量a 的值是字符串“10”C) 变量a 的值是数值20 D) 变量a 的值是字符串“20”(11) 设有如下变量声明: Dim TestDate As Date不能正确的为变量TestDate赋值的表达方式是：A) TextDate=#3/24/2003# B) TestDate=#2/30/2003#C) TextDate=date( )+8 D) TestDate=358.5(12) 以下叙述中正确的是：A) 一个工程只能有一个窗体B) 在一个窗体文件中用Private定义的通用过程能被其他窗体调用C) 在一个窗体文件的通用段中定义的变量不能被其他窗体调用D) 全局变量最好在标准模块中定义(13) 以下叙述中错误的是：A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C) 程序运行过程中，可以重新设置菜单的V isible属性D) 弹出式菜单也在菜单编辑器中定义(14) 下列叙述中正确的是：A) 在窗体的Form_Load事件过程中定义的变量是全局变量B) 局部变量的作用域可以超出定义该变量的过程C) 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名D) 在调用某个过程时，过程中所有的局部变量被系统初始化为0或空字符串(15) 以下叙述中错误的是：A) 如果过程被定义为Stati c类型，则该过程中的局部变量都是Stati c类型B) Sub过程中不能嵌套定义Sub过程C) Sub过程中可以嵌套调用Sub过程D) 事件过程可以像通用过程一样由用户定义过程名二、基本概念填空题( 每空1分，共20分)(1) 整型数据的类型符为，其所能表示的最大值为，最小值为。
(2) 产生一个在28到98之间的随机整数的表达式为。
(3) 写出下列VB表达式的运算结果：10/3 101 MOD 710+”78”val(“3.14159*100”)5 & 78 3^3Asc(“B”) Round(3.568,2)30+True Trim(“Abc ”)(4) Print Tab(3);”Abcd”;Spc(2);”Bcd”语句的运行结果是：。
(5) VB中有一种控件组合了文本框和列表框的特性，这种控件是____________。
(6) 计时器控件有一个非常重要的属性，其值表示一个以为单位的时间间隔，程序运行时它能规律的以这个时间间隔触发__________事件。
(7) VB对数据文件的三种访问模式为：访问模式、随机访问模式和二进制访问模式。
(1) 在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题依次分别为“+”、“-”、“*”和“/”。
程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击“计算”命令按钮，相应的计算结果显示在Label4中，程序运行情况如下图所示。
请在程序中有下划线的地方填入适当的内容，将程序补充完整。
Private Sub Command1_Click()Dim i%, opt%，Result%For i=0 To 3If Option1.value = thenopt= i+1End IfNext Select CaseCase 1Result=Val(Text1.Text)+Val(Text2.Text) CaseResult=Val(Text1.Text)*Val(Text2.Text)Case 4Result=Val(Text.Text)/Val(Text2.Text) CaseResult=Val(Text1.Text) -Val(Text2.Text)End SelectLabel4.caption=End Sub(2) 以下程序的功能是用辗转相除法求两个自然数m ，n 的最大公约数和最小公倍数。
程序运行后，先从键盘上输入两个自然数，求出并输出这两个数的最大公约数和最小公倍数。
请在程序中有下划线的地方填入适当的内容，将程序补充完整。
Private Sub Form_Click()Dim m%, n%, a%, b%, r%m= InputBox("输入m")n= InputBox("输入n")If m > n Thena = m : b= nElsea = :b = mEnd IfDor =If r = 0 Then Exita=b= rLoopPrint m; ","; n; "的最大公约数为"; bPrint "最小公倍数= ", End Sub 16(1) 在窗体上画一个命令按钮，名称为Command1。
然后编写如下程序：Private Sub Command1_Click()Dim x%, y%For x=0 To 3For y=0 To xPrint Chr$(98+x+y);Next yPrintNext xEnd Sub(2) 在窗体上画一个命令按钮，名称为Command1。
然后编写如下程序：Private Sub Command1_Click()Dim iA%(1 To 10), i%, j%, k%, t%iA(1) = 18: iA(2) = 26: iA(3) = 9: iA(4) = 31: iA(5) = 2iA(6) = 7: iA(7) = 16: iA(8) = 19: iA(9) = 15: iA(10) = 13For i = 1 To 9k = iFor j = i + 1 To 10If iA(j) < iA(k) Then k = jNext jt = iA(i)iA(i) = iA(k)iA(k) = tNext iFor i = 1 To 10Print iA(i);Next iPrintEnd Sub五、编程题( 每题10分，共20分)(1) 编程利用随机函数产生8个60～150之间的整数，输出这8个整数，并求出它们的最小值。
(2) 编程从小到大依次显示出所有的水仙花数。
所谓水仙花数是指一个三位整数，其值等于它的三个数位的值的立方之和，例如：371=33+73+13。
江汉石油学院试卷参考答案与评分标准2002-2003学年第二学期课程名称： VB程序设计适用班级：生物、建筑2002级出卷教师：李新玉试卷卷别：B卷考试时间： 120分钟考试日期： 2003.6.17一、选择题（每题2分，共30分）(1) B(2) B(3) A(4) D(5) A(6) D(7) A(8) C(9) B(10) B(11)B(12)D(13)A(14)C(15) D二、基本概念填空题( 每空1分，共20分)(1) 整型数据的类型符为%，其所能表示的最大值为32767，最小值为-32768。
(2) 产生一个在28到98之间的随机整数的表达式为Int(Rnd*71+28)。
(3) 写出下列VB表达式的运算结果：10/3 答：3.333333101 MOD 7 答：310+”78”答：88val(“3.14159*100”) 答：3.141595 & 78 答：“578”3^3 答：27Asc(“B”) 答：66Round(3.568,2) 答：3.5730+True 答：29Trim(“Abc ”) 答：”Abc”(4) Print Tab(3);”Abcd”;Spc(2);”Bcd”语句的运行结果是：Abcd Bcd。
(5) VB中有一种控件组合了文本框和列表框的特性，这种控件是__组合框__。
(6) 计时器控件有一个非常重要的属性Interval，其值表示一个以ms或毫秒为单位的时间间隔，程序运行时它能规律的以这个时间间隔触发__Timer__事件。