vb实验答案（精选7篇）
x 10 mod 10
x100 4-5:
mid(s,i,1)=Lcase(t)实验 5 5-1：
a+b+c+d Sum/4 5-2:(4*h-f)/2
(f-2*h)/2 5-4: sec360024
Sec mod(1& 24*3600)mod 3600 mod 60 5-5: 0.5*g*t*t+v0*t 实验 6 6-1: left(text1,text1.selstart)& text2 & right(text1, len(text1)– text1.selstart)6-2: timer1.enabled=true
Timer1.enabled=false 6-3: shape2.left=shape2.left +d *50 6-5:
a & check2.caption 6-6:
list1.listcount-1 6-7: 1000
List1.list(i)6-8:
text1 实验 7 7-1: n=n-3500
n-y
text1.setfocus 7-2: a=a & c 7-3: sum +j
Sum=1250 7-4: m=n
n=r
r= m mod n 7-5: if a mod i=0 then exit for 7-6: text1
S2 & mid(s1,k,1)S2=””
7-7:
nfactor
factor+1 7-8: n 7-9:
sum=0
s & i & “ +”
list1.clear 7-10: mid(text1, i, 1)实验8 8-1：a(i)=a(16-i)
a(16-i)=temp 8-2: a(i-2)+a(i+1)+1
Text2 & vbcrlf 8-3: picture1.print
i=1 to 5
sum=sum+a(I,j)
next i
sum+a(i,j)+a(i,6-i)
not(i>1 and i<5 or j>1 and j<5)8-4: text1 & str(a(i))
If a(i)< min then min=a(i)8-5:
(a(i)10)*(b(i)10)
“sum=”;sum
8-6: a(i,2)=a(i,4)
A(i,4)=t
8-8:
picture1.print a(i,j);
Sum=sum+a(k,k)8-9:
exit for
num=a(i)8-10:
i+1 to 10
实验教学是培养学生实践和创新能力的一个重要手段,也是教学中的必要环节。随着高校学生人数的不断增加,多数院校在实验教学上都存在实验设备、器材、场地、经费不足等问题,使学生动手的机会少或一些应该开设的教学实验无法进行[1]。这在一定程度上制约和影响了实验教学的效果,也减弱了对学生动手能力培养的力度,更重要的是教学方法缺少人性化特点,使学生学习感到枯燥无助。另外,对于国内众多接受函授、电大、网络教育的学生更难得开展实验,影响了教学质量。在这样的现实背景下,虚拟实验的作用不可忽略,而开发各种专门的虚拟实验也成为非常紧迫的需要。
虚拟实验技术是虚拟现实技术在实验教学中的应用扩展。虚拟现实技术是一种综合应用各种技术制造逼真的人工模拟环境,并能有效地模拟人在自然环境中视、听、触觉等各种感知行为的高级人机交互技术。随着虚拟技术的发展,在计算机上模拟工程及科学实验室已成为可能,互联网联网的发展也为在线虚拟实验及虚拟环境提供了支持[2]。十几年来,国内外在虚拟实验系统的研究和开发方面做了很多研究探索,国内众多高校科研部门也积极投入到虚拟实验的开发中,也开发出了一些较成功的虚拟实验系统[3,4],但受开发技术较复杂的制约,一直没能在教育领域获得广泛的应用。
出于开发低成本、易于实现及可实现较好的实验效果多方面的综合考虑,本文利用Visual Basic6.0(简称VB)软件作为开发平台,结合专业课程进行了桌面型的虚拟实验软件的开发。
1 虚拟实验软件的功能与架构
虚拟实验是一种新兴的计算机教育技术,其既可以用于各类学校的实验教学,也可用于特殊机构和培训领域。因此,虚拟实验的根本是用于学习,是通过对教学场景、实验操作、实验现象等进行模拟再现,通过软件的沉浸性、可交互性、可操作性等优势,充分调动学习兴趣,促进知识的掌握。因此虚拟实验软件应实现四项基本功能:(1)提供逼真的虚拟实验场景;(2)提供良好的人机交互操作功能;(3)对实验过程、现象等能进行真实再现;(4)与教学要求相适应的辅助功能。而这四项基本功能中的开发重点,一是虚拟实验场景的实现,二是完善的人机交互功能。
根据虚拟实验软件的功能,设计的虚拟实验软件的架构如图1所示。
2 虚拟实验场景的实现方法
虚拟实验场景是在计算机上对真实场景的还原。在采用VRML,Java3D等技术来开发虚拟实验场景时,需要基于真实场景进行虚拟现实场景的建模,其开发工作量大,技术难度高。本文在虚拟实验场景的实现上采用了Visio软件绘制实验素材结合实景照片的模式。在开发虚拟实验时,可先对现有实验装置设备等拍照以供设计参考。由于拍照时往往畸变、阴影、脏污等缺陷,不宜直接采用所拍摄图片作为实验背景。
为还原清晰逼真的实验场景,本文在设计中是利用Visio2003软件,对照实验照片,完成了实验场景中各个组件的绘制,如旋钮、端子、仪表等,将其分别保存作为实验素材。采用Visio软件绘制图形,主要是该软件绘制的图形为矢量图形,在后期图像处理中缩放不会产生变形、锯齿等问题,同时该软件具有对图形进行各种丰富的处理功能。如图2所示,是在Visio中绘制的分组件及组合完成的绿色实验状态指示灯,可以看出,通过对简单图形的填充、渲染、着色、组合等操作,能够绘制出非常美观甚至有些立体效果的图形。另外,通过设置绿颜色的深浅,还可以表现灯处于点亮和关闭状态。
将构建虚拟实验场景的各个图形素材完成后,可以把它们按照真实实验景象进行组合、布置、还原。如图3所示,是利用该方法实现并设计的一个虚拟实验软件操作界面。虚拟实验的界面设计应尽量与真实的实验装置相一致,在适当情况下可以适当修改,以使操作界面简洁、便于操作。利用Visio这类图形工具软件,可以较方便快速地构建我们所需的各种虚拟实验场景,其在专业技术方面的要求相比并不高,但在实现真实逼真的虚拟实验场景效果上并不差。
3 人机交互功能设计
人机交互功能的设计应以人为中心,同时在软件的一致性、易用性、简洁美观等方面达到统一[5]。在人机交互功能的实现上,采用VB6.0编程语言来实现。VB由微软公司开发,是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发Windows环境下的各类应用程序。它简单易学、效率高,且功能强大,可以与Windows专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数据连接(ODBC)等技术,可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统[6]。基于VB开发虚拟实验在为实验人员模拟操作、显示实验现象、实验数据处理等方面均可很好地实现。
3.1 虚拟操作的实现
作为桌面型虚拟实验,人机交互主要是利用键盘和鼠标,其中大部分的虚拟操作可通过鼠标的点击、移动等来完成,通过检测鼠标在界面上的位置可以做出不同的处理响应。如以图3为例,点击“送电”和“断电”处按钮事件响应的部分程序为:
'鼠标处于“送电”按钮区域时,若点击鼠标左键,将实验状态的红色指示灯切换为点亮
'鼠标处于“断电”按钮区域时,若点击鼠标左键,将实验状态的红色指示灯切换为关闭
3.2 实验现象的显示
实验现象的再现是虚拟实验软件质量的一个重要体现,为生动形象展示实验中的各种参数变化、器件的运动、姿态改变等,可以采用图像切换方式,也可以利用VB软件的绘图功能实现。一般对于变化比较简单的实验现象,如电源的开闭、灯光的明暗等可以采用切换图片方式实现。上例中,实验状态指示灯的“点亮”和“关闭”就是通过切换图片的形式来模拟实验现象的一种方式。对于变化形式较多,用切换图片来显示实验现象不理想时,可以通过编程利用VB的绘图功能来实现。仍以图3为例,要使模拟电压表的指针随着电压值变化,程序如下:
虚拟实验的人机交互功能的实现需要大量的编程来支持,因此程序设计上区分开主次,强调以实验目的为中心,能充分展示实验重点,不宜追求所有功能都与实际完全一致,否则会造成工作量的大大增加。
4 结论
本文采用基于VB软件平台开发的虚拟实验软件,可以实现逼真的虚拟实验场景、良好的人机交互性能和完善的数据处理功能,在教学实践应用中获得了良好的教学效果。该方法适合于初高中学校的物理、化学实验模拟及理工科各类实验的模拟,软件在开发难度和开发速度方面相比专业虚拟实验软件开发更有优势。
参考文献
[1]胡杰,郑祥明.机电虚拟实验,实验室研究与探索,2008.27(7):80-82
[2]方慕真,虚拟技术在远程教育中的应用探索[J].开放教育研究,2009.15(4):103-106
[3]陈健,孙兰凤,陆达.虚拟现实技术的现状与展望[J].天津纺织工学院学报,1998.17(2):91-96,
[4]http://baike.baidu.com/view/591818.html
[关键词]虚拟实验 PLC Visual Basic6.0
（一）引言
目前，PLC已被广泛地应用到机械、治金、化工、电力、轻纺、煤炭工业等各个领域中。由于可编程控制器在工业自动化领域的重要位置，使得“可编程控制器原理及应用”这门课程在高等院校、高职学院、中职学校电专业中普遍开设。而实验是辅助课堂教学的重要环节，对工程类课程的学习尤为重要。在PLC实验教学过程中，需要让学生了解各种工业场合的控制流程，针对各种工业控制对象，验证学生所编制的PLC程序是否正确。由于受到体积、价格等诸多客观条件的限制，很难在实验室配置较全面的各种工业控制对象，因而制约了实验的数量和质量。
随着虚拟技术和计算机的飞速发展，利用计算机仿真软件来完成实验成为一种全新的实验手段。实验内容不受实验室仪器设备、实验材料的限制，既可以很方便地更新、增加实验内容，又解决了实验经费不足问题，有效地提高了PLC的教学效果。
（二）PLC 虚拟实验系统
虚拟实验是在计算机系统中采用虚拟现实技术实现的各种虚拟实验环境。它是在计算机仿真基础上发展起来的一项应用技术。PLC虚拟实验系统如图1所示。其中虚线框部分为计算机虚拟实验装置，它包括硬件（信号适配器）和软件（由Visual Basic 6.0来完成）两个基本要素。计算机虚拟实验装置与PLC、控制台等一起构成PLC虚拟实验系统。
本虚拟实验系统只与PLC的输入端口、输出端口的点数和电气特性有关，与PLC串口通讯协议无关。其基本思想是：在计算机上用软件Visual Basic 6.0设计虚拟控制对象；根据对控制对象的具体要求，编写PLC程序；当PLC按程序要求动作时，通过信号适配器将PLC的输入端口、输出端口的信号转换为计算机可以接收的串行信息；通过串行口RS-232把相应的动作命令发送到计算机，驱动相应的软件系统，在计算机上就可以观察被控虚拟对象的动作过程。
软件的作用是用计算机仿真技术实现控制对象结构、动作、性能。本软件采用当前流行的面向对象编程工具--Visual Basic6.0来完成。
Visual Basic6.0语句生成器和快速提示帮助，使用户不必记忆成千上万的属性和方法，在较短的时间内就能开发出功能强大的应用程序。种类繁多、功能强大的多媒体控件，能帮助用户在较短时间内用较少的语句编写出图文声像并茂的多媒体程序。因此，我们利用Visual Basic6.0来开发PLC的虚拟控制对象，能丰富教学内容，开阔学生视野，增强教学效果。下面介绍使用Visual Basic 6.0软件，以三层电梯控制系统作为控制对象为例，设计控制对象图形界面的制作过程。
三层电梯控制系统.frm由三部分组成。左侧部分显示电梯在楼中电梯间的运动状态以及所处的位置；中间部分为电梯外部部件和实现电梯门的开门或关门；右侧部分为电梯内部控制面板的各部件。三部分有机地配合，形成了一个完整的三层电梯系统，见图2。
图2中，控制面板楼层呼叫按钮、开门按钮、关门按钮和外部上或下意向呼叫按钮共九个按钮，利用命令按钮控件的“MouseDown”、“MouseUp”事件来实现。按钮在用户按下时，引发“MouseDown”事件，通过MSComm控件输出一控制代码、信号适配器的相应端口接通，给PLC输入端口提供一个“1”信号；用户抬起时，引发“MouseUp”事件，通过MSComm控件输出一控制代码、信号适配器的相应端口断开，给PLC输入端口提供一个“0”信号。
控制面板的楼层呼叫灯和外部各层上或下意向呼叫灯，是通过分别改变其命令按钮控件的BackColor属性实现的。当呼叫灯对应的信号适配器输入端口有信号时，相应的命令按钮控件的背景颜色变为红色；当呼叫灯对应的信号适配器输入端口无信号时，相应的命令按钮控件的背景颜色变为图2中的颜色。
楼层指示灯、上行或下行指示灯利用标签控件的属性ForeColor来实现。当呼叫灯对应的信号适配器输入端口有信号时，相应的标签控件的文字颜色变为红色；当呼叫灯对应的信号适配器输入端口无信号时，相应的标签控件的文字颜色变为图2中的颜色。
电梯、电梯门是用图片框控件来描述的，电梯的上升或下降、电梯门的开门或关门用定时器控件改变图片控件的Top属性、Left属性和Width属性来实现的。电梯的上升、下降、开门、关门各用一个定时器控件，功能的实现只需设置定时器控件的Enabled属性：True、False。
楼层行程开关、开门或关门行程开关分别利用电梯、电梯门图片框控件的Top属性、Left属性与某一定值比较的结果实现的。当图片框控件和Top属性、Left属性等于各自设定的值时，通过MSComm控件输出一控制代码、信号适配器的相应端口接通；当图片框控件的Top属性、Left属性偏离各自设定值一个值时，通过MSComm控件输出一控制代码、信号适配器的相应端口断开。
电梯、电梯门还设置上上行和下行限位、开门和关门限位，以防教学实验中电梯、电梯门图片框控件移出屏幕或程序出现错误。描述电梯上升下降和开门关门过程的控制代码（略）。
（三）虚拟实验系统的应用
在教学过程中，学生除了通过虚拟对象了解实际生产过程，还必须自编PLC程序来验证程序的正确与否。此时，计算机界面上的工作过程则完全由学生编制的程序控制。针对某个控制对象编写PLC程序，当PLC按程序要求动作时，通过信号适配器将PLC的输入端口、输出端口的信号转换为计算机可以接收的串行信息；通过串行口RS-232把相应的动作命令发送到计算机，驱动相应的软件系统，在计算机上就可以观察被控虚拟对象的动作过程。
运用Visual Basic6.0，结合三层电梯控制系统实际运行原理，可以设计出较为美观的虚拟演示画面和以PLC驱动的监视画面，使其能真实的表现三层电梯控制系统的工作过程，同时可以验证学生自编的PLC程序的正确与否。最终使得设计的虚拟实验对象能够用于教学，给学生更多的PLC实际设计机会。
（四）结论
本文的创新点在于将计算机技术应用到教学中来，开发的虚拟实验系统既能真实的表现实际生产系统的工作过程，同时又可以验证学生的实际编程能力。系统具有功能全、成本低、效率高、可扩展性和可开发性强、工程实用性强等优点，可广泛应用于PLC教学中。它可以解决实验教学过程中遇到的各种困难，节约了实验经费，提高了实验的安全性，丰富学生的工程实践经验，使学生在理论和实际动手能力都得到提高，有效地提高学生培养的质量。因此，非常值得推广。
参考文献：
[1]单士源等.一种对虚拟对象进行控制的系统设计[J].微计算机信息,2003,(11).
[2]范逸之,陈立元.Visual Basic 与RS-232 串行通讯控制(最新版)[M].北京:清华大学出版社,2002.
VB练习题一
一、选择题
1．Visual Basic程序设计的主要的步骤是C A、可视性程序设计 B、代码程序设计 C、可视性程序设计和代码程序设计 D、界面设计 2．窗体能响应的事件是C
A、ActiveFrom
B、Drive
C、Load
D、Change 3．获得系统时间的函数是B
A、data$
B.time$
C.date$
D.gettime$ 4．在设计一个计算器时，必须要使用的控件是C A、滚动条
B、图片框
C、文本框
D、单选框 5．下列运算符号中属于关系运算符的是_____。B A、— B、= C、AND D、+ 6.Visual Basic规定工程文件的扩展名是C
A、.for
B、.frm
C、.vbp
D、.bas 7.OOP是面向_______的程序设计的简称。C A、用户 B、问题 C、对象 D、操作者 8.设置对象中的字体应用___属性.C A、Caption B、Name C、Font D、Text 9.设置文本框中显示的内容应用___属性。D A、Caption B、Name C、Font D、Text 10.逻辑型又称_____。C A、数值型 B、字符串型 C、布尔型 D、整型 11.三种逻辑运算符号优先次序为：____。C A、AND、NOT、OR B、NOT、OR、AND C、NOT、AND、OR D、OR、NOT、AND 12.关于高级语言，下列那一项叙述是正确的。(A)A、以类似英文的句子来表示 B、写成的程序执行速度最快 C、不必编译即可直接执行 D、受电脑机种限制大 13.可将高级语言翻译成机器语言的程序为。B A、汇编程序 B、编译程序 C、解释程序
4、以上皆可。14.下列（）属性是每个控件都有的。A A、名称 B、Caption C、Font D、Interval 15.下列运算符号中属于逻辑运算符的是_____。A A、NOT B、<> C、= D、<= 16.如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该等于：B A、5000 B、500 C、50 D、5 17.下列逻辑运算结果为―true‖的是（）C A、flase or not true B、flase and not true C、true or not true D、true and not true 18.已知变量x、y为整数型，且x=4 , y=12 ,s为字符串型，且s=―a‖，Label1为标签控件，下列赋值语句合法的是（）A A、s = Label1.Caption B、Label1.Caption=s=x C、x*3=y D、Y=x*s 19.下列关于CommandButton 控件的叙述正确的是（）A A、CommandButton 控件的Caption 属性决定按钮上显示的内容 B、单击VB应用程序中的按钮,则系统激活按钮控件对应的Change 事件 C、CommandButton 控件的name 属性决定按钮上显示的内容 D、以上都不对
20.一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了是()。D A、对象，属性，事件，方法 B、对象，属性，方法，事件 C、属性，对象，方法，事件 D、属性，对象，事件，方法 21.获得系统时间的函数是B A、data$
B、time$
C、date$
D、gettime$ 22.下列关于添加―控件‖的方法正确的是（）B A、单击控件图标，将指针移到窗体上，双击鼠标 B、双击工具箱中的控件，即在窗体上出现该控件 C、单击工具箱中的控件，将指针移到窗体上，再单击 D、用鼠标左键拖动工具箱中的某控件到窗体的适当位置 23.双击窗体中的对象后，Visual Basic将显示的窗口是C A、项目（工程）窗口
B、工具箱
C、代码窗口
D、属性窗口 24.下列关于For …next 语句的说法正确的是（）A A、循环变量、初值、终值和步长都必须为数值型 B、step后的步长只为正数 C、初值必须小于终值 D、初值必须大于终值
25.存文件时，整个工程以_____（工程文件）储存。C A、*．Prg B、*．Frm C、*．Vbp D、*．Exe 26.清除图片框(Picture1)中内容的方法是_____。B A、Picture1．Clear B、Picture1．Cls C、Picture1．Delete D、Picture1．UnLoad 27.以下变量Test定义语句正确的是：B A、Dim Test，as Integer B、Dim Test as Integer C、Dim Test =Integer D、Dim Test as Integer，28.在Visual Basic中，字符型变量用来_____。B A、存放日期、时间或同时存储以上两种数据。
B、存放人名、地址等文字信息。或电话号码、邮政编码等不需要计算的数字信息。C、存储长文本信息，最多可包含1.2GB字符。D、精确表示货币钱款数值
29.通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowColor , 显示____对话框。D A、保存文件 B、字体 C、打开文件 D、颜色
30.设置通用对话框的文件类型框中所要显示的文件类型选项，可由____属性来设置。C A、Name B、File C、Filter D、Caption 31.VB 的全名是：C A、Violin BASIC B、Very BASIC C、Visual BASIC D、View BASIC 32.下列哪一种运算的优先级最低：C A、Mod B、整数除法 C、减法 D、除法 33.设置窗体的高度用属性_______。D A、Caption B、Font C、BackColor D、Hight 34.设置窗体左上角到屏幕上方距离的属性是______。B A、Left B、Top C、Width D、Name 35.设置窗体宽度的属性是______。C A、Left B、Top C、Width D、名称(Name)36.计算数x的正弦函数值的函数是______。A A、SIN(x)B、ABS(x)C、STR(x)D、SQR(x)37.数学式3abc(d+e)改写为VB表达式为______。D A、3a*b*c(d+e)B、3abc(d+e)C、3abcd +3abce D、3*a*b*c*(d+e)38.不属于程序的三种基本结构的是。C A、顺序结构 B、循环结构 C、直线型结构 D、分支结构 39.在IF语句的条件中，M≠6应写成： C A、M<6 AND M>6 B、M≠6 C、M<>6 D、NOT M<>6 40.在VB中数据类型为长整型的―数据类型保留字‖是。B A、integer B、long C、single D、string 41.在VB中数据类型为字符串型的―数据类型保留字‖是。D A、integer B、double C、single D、string 42.下列变量名正确的是。B A、X-1 B、XX1 C、123 D、A* 43.函数ABS(X)称为。B A、算术平方根函数 B、绝对值函数
C、正弦三角函数 D、字符串转换为数值函数 44.下列说法不正确的是。A A、1 B、关系表达式的判断结果只能是“True”或“False” C、关系运算符共有6个,分别是：<、>、<=、>=、=、<> D、逻辑运算符有NOT、AND、OR 45.为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是C A、Visible B、Timer C、Enabled D、Interval 46.利用对象的方法Setfocus可获得焦点，对于一个对象,只有其visible属性和_____属性为true，才能接受焦点。C A、name B、Timer C、Enabled D、visible 47.使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可画圆。C A、pset B、line C、circle D、move 48.设a=2,b=3,c=4,d=5,下列表达式的值是。C 3>2*b OR a=c AND b <>c OR c>d A、1 B、True C、False D、–1 49．设置标签中显示内容的属性是。C A、Text B、Name C、Caption D、BackStyle 50．通过执行通用对话框的方法，可以将其表示为不同的对话框。显示打开文件对话框方法是。A A．ShowOpen B．ShowSave C．ShowPrinter D．ShowColor vb练习题2 二、程序设计题 51．设计一个程序，输入一个正整数N，求1＋2＋3＋…+N的和。界面如下： 当用户输入N后，单击―计算‖按钮，则输出1＋2＋3＋…+N的和。参考答案： Private Sub Command1_Click()Dim i, a, b As Integer a = Val(Text1.Text)For i = 1 To a b = b + i Next i Label3.Caption = b End Sub Private Sub Command2_Click()End End Sub 52．编一个求圆柱的侧面积的程序： 当用户输入半径与高后，单击―侧面积为‖按钮，输出正确结果。参考答案： Private Sub Command1_Click()Dim r, h, c, s As Single r = Val(Text1.Text)h = Val(Text2.Text)c = 2 * 3.14159 * r s = c * h Label3.Caption = s End Sub 53．设计一个计时程序。该程序用户界面如图所示，由一个文本框（text1），和两个按钮：命令按钮1（command l）、命令按钮2（command 2）组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，接停止按钮，则计时停止。单击窗口则退出。（请阅读下面程序，编写出时钟控件的计时事件中的程序代码。）Dim i, t As Integer Private Sub Command1_Click()Timer1.Interval = 1000 Timer1.Enabled = True t = 0 End Sub Private Sub Command2_Click()Timer1.Enabled = False End Sub Private Sub Form_Click()End End Sub Private Sub Timer1_Timer()End Sub 参考答案： t = t + 1 Text1.Text = t & “秒” 54．编制一个能在窗体中画出由用户指定圆心位置和半径大小的圆的程序,要求单击―绘圆‖按钮时绘圆，单击―清除‖按钮时清除绘图区中的图形及文本框中的内容。运行界面如下： 参考答案： Private Sub Command1_Click()Dim x, y, r As Single x = Val(Text1.Text)y = Val(Text2.Text)r = Val(Text3.Text)Picture1.Circle(x, y), r End Sub Private Sub Command2_Click()Picture1.Cls Text1.Text = “" Text2.Text = ”“ Text3.Text = ”“ End Sub 信息技术教师培训自学部分VB练习题二 一、选择题 1．在 Visual Basic环境下，当写一个新的 Visual Basic程序时，所做的第一件事是B A、编写代码 B、新建一个工程 C、打开属性窗口 D、进入VB环境 2．若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置D A、Text属性值为* B、Caption属性值为* C、password属性值为空 D、Passwordchar属性值为* 3．能够将文本框控件隐藏起来的属性是B A、Clear B、Visible C、Hide D、New 4．获得系统日期的函数是C A、data$ B、time$ C、date$ D、gettime$ 5．下列运算符号中属于算术运算符的是_____。B A、NOT B、^ C、= D、<= 6．Visual Basic属于:A A、高级语言B、汇编语言C、机器语言D、低级语言。7．一个程序可以有_____窗体。C A、1个 B、2个 C、多个D、无穷多个 8．事件是指_____。B A、对象的外部特征。 B、预先设置好的能被对象识别的特定动作。C、对象的属性。 D、对象原来就包含的内部函数或程序。9．VB在运行中使用_______来临时存储数据。B A、常量 B、变量 C、函数 D、方法 10．布尔型又称_____。B A、数值型 B、逻辑型 C、字符串型 D、整型 11．下列运算符号中属于关系运算符的是_____。D A、— B、+ C、AND D、<= 12．关于高级语言，下列叙述正确的是。B A、不必编译即可执行 B、可读性最高 C、难学难记 D、执行速度最快。13．下列各组控件都具有Caption属性的是（）C A、窗体、文本框 B、标签、定时器 C、窗体、标签 D、文本框、定时器 14．下列运算结果中，值最大的是（）D A、34 B、3/4 C、4 mod 3 D、3 mod 4 15．Visual Basic语言中，下列那一项数值运算符号是正确的。(C)A、＠表示加 B、～表示减 C、*表示乘 D、÷表示除。16．下面程序执行的结果是________。C Private Sub Form_Click()A$ = ”123“: B$ = ”456“ C = Val(A$)+ Val(B$)Print C 100 End Sub A、123 B、3 C、5 D、579 17．函数Sqr(9)的值是（）B A、9 B、3 C、―3‖ D、―9‖ 18．下列控件中可用于接受用户输入文本，又可用于显示文本的是（）B A、Label 控件 B、TextBox 控件 C、Timer 控件 D、CommandButton 控件 19．以下程序段执行后整型变量度n 的值为（）B n=0 for L=1 to 20 step 5 n=n+L next L A、50 B、34 C、15 D、210 20．如果要改变窗体的标题,需要设置窗体对象的_____属性。B A、Name B、Caption C、BackColor D、BorderStyle 21．Visual Basic提供的标签控件（LABEL）可具有功能是B A、输入文本 B、显示文本 C、计时 D、取得时间 22．以下选项中，不是 Visual Basic控件的是C A、文本框 B、定时器 C、窗体 D、命令按钮 23．若整型变量a的值为 2、b的值为3，则下列程序段执行后整型变量c的值为（）D if a>5 then c=b-a else c=a + b endif A、2 B、-1 C、1 D、5 24.下列程序执行后，整型变量n的值为（）B n=0 for I=1 to 20 if I mod 4=0 then n=n+1 next I A、5050 B、5 C、6 D、33 25.下面哪些控件是输入控件______。A A、文本框 B、标签 C、列表框 D、滚动条 26．窗体初始化程序应写在_______事件中。A A、Load B、UnLoad C、Active D、GotFocus 27．在Visual Basic中，布尔型变量用来_____。D A、存放需要计算的数字。 B、存放日期、时间或同时存储以上两种数据。C、存储长文本信息，最多可包含1.2GB字符。D、存放性别、婚否等逻辑信息。 28． 通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowOpen , 显示____对话框。C A、保存文件 B、字体 C、打开文件 D、颜色 29． 通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowFont , 显示____对话框。B A、保存文件 B、字体 C、打开文件 D、颜色 30．计时器的Interval属性是用来设置一时间间隔，单位是_____。D A、1秒 B、1毫秒 C、1/100秒 D、1/1000秒 31.VB 在计算三角函数时，所使用的度量单位是：B A、角度制 B、弧度制 C、角度制 D、弧度制都可以 32.设置窗体的背景色用属性_______。C A、Caption B、Font C、BackColor D、Hight 33.设置窗体中显示的文字前景色用属性_______。A A、ForColor B、Font C、BackColor D、Hight 34．设置窗体左上角到屏幕左边距离的属性是______。A A、Left B、Top C、Width D、Name 35．计算数x的算术平方根的函数是___。D A、SIN(x)B、ABS(x)C、STR(x)D、SQR(x)36．计算数x的余弦函数值的函数是______。D A、SIN(x)B、ABS(x)C、STR(x)D、COS(x)37．数学式|xy|+2(d+e)改写为VB表达式为______。C A、|xy|+2(d+e)B、-x*y+2*(d+e)C、ABS(x*y)+2*(d+e)D、|x*y|+2*(d+e)38．在IF语句的条件中，60≤F≤100应写成：D A、60<=F<=100 B、60= C、正弦三角函数 D、字符串转换为数值函数 44．下列说法不正确的是。B A、FOR语句中可省略STEP及步长值,默认步长值为1 B、循环变量只能用数值简单变量 C、步长值可正可负 D、初值、终值、步长值可以是数值表达式 45．为了在运行时把图形文件picfile.jpg装入图片框Picture1,所使用的语句为。A A、Picture1.Picture = LoadPicture(”picfile.jpg“)B、Picture1.Picture =”picfile.jpg“ C、Picture1.image = LoadPicture(”picfile.jpg“)D、Picture1.image =”picfile.jpg“ 46．使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可画点。A A、pset B、line C、circle D、move 47．使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可使图片框移动位置。D A、pset B、line C、circle D、move 48． 双击工具箱中某个控件，该控件将____。C A、被选中 B、出现在窗体左上角 C、出现在窗体中部 D、没变化 49.为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是。D A、ControlBox B、MinButton C、Enabled D、MaxButton 50.执行下面的程序段后，x 的值为。C x=0 For i=1 To 10 x=x+i5 Next i A、5 B、6 C、7 D、8 二、程序设计题 51．编写一个程序，输入任意两个整数，输出其中较大的数。界面如下： 当用户输入两个整数后，单击―输出‖按钮，则输出正确结果。参考答案： Private Sub Command1_Click()Dim a, b As Integer a = Val(Text1.Text)b = Val(Text2.Text)If a >= b Then Label3.Caption = a Else Label3.Caption = b End If End Sub 52.设计一程序，计算1*2+2*3+3*4+4*5+…+N*（N+1）的和。程序界面如下： 当用户输入N后，单击―求1*2+2*3+3*4+4*5+…+N*（N+1）‖按钮后，输出正确结果。参考答案： Private Sub Command1_Click()Dim i, n, s As double n = Val(Text1.Text)s = 0 For i = 1 To n s = s + i *(i + 1)Next i Label1.Caption = s End Sub 53．设计一个从键盘接收三条边的值，测试能否组成三角形，若能，则计算所组成三角形面积，否则，给出相应信息的程序，运行之后界面如下。 参考答案： Private Sub Command1_Click()Dim a, b, c, d As Single a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If(a + b)> c And(a + c)> b And(b + c)> a Then d =(a + b + c)/ 2 Label3.Caption = Sqr(d *(db)*(dc 37．在IF语句的条件中，X≤-10或X>0应写成：B A、X<=-10 AND X>0 B、X<=-10 OR X>0 C、X≤-10 OR X>0 D、X≤-10或X>0 38．在VB中数据类型为整型的―数据类型保留字‖是。A A、integer B、long C、single D、string 39．在VB中数据类型为双精度浮点型的―数据类型保留字‖是。B A、integer B、double C、single D、string 40．在VB中数据类型保留字―boolean‖表示的数据类型是。C A、整型 B、长整型 C、布尔型 D、字符串型 41．函数SQR(X)称为。A A、算术平方根函数 B、绝对值函数 C、正弦三角函数 D、字符串转换为数值函数 42．数值表达式运算的先后顺序为。A A、()→函数→乘方→* /→+ C、函数→乘方→()→* /→+43． 表达式4+5 6 * 7 / 8 Mod 9 的值是。A A、4 B、5 C、6 D、7 44．由语句txtname.text=”AB“,可知txtname一定是_____控件。A A、文本框控件 B、标签控件 C、图象框控件 D、命令按钮 45．使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可画线。B A、pset B、line C、circle D、move 46．使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可清除图片框中的内容。C A、pset B、line C、cls D、move 47．VB中工程文件的扩展名为。A A、.vbp B、.frm C、.ds D、.bas 48.设a=2,b=3,c=4,d=5,下列表达式的值是。B a>b AND c<=d OR 2*a>c A、True B、False C、-1 D、1 49.表达式4+5-6*7/8 Mod 9的值是。A A、4 B、5 C、6 D、7 50.下列控件中，哪一个是外部控件。D A、PictureBox B、CommandButton C、Timer D、CommonDialog 二、程序设计题 51．设计一个程序，输入一个长方体的长宽高，计算并输出其体积V，界面如下： 当用户输入长宽高，后单击―计算‖按钮，则输出结果。参考答案： Private Sub Command1_Click()Dim a, b, c As Single a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)Label5.Caption = a * b * c End Sub Private Sub Command2_Click()End End Sub 52．编写一个程序，输入任意三个整数，输出其中最小的自然数。界面如下： 当用户输入三个自然数后，单击―最小自然数为‖按钮，则输出正确结果，请阅读下面程序，把所缺的代码写出来。Private Sub Command1_Click()Dim a, b, c, d As Integer a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a <= b Then d = a Else d = b End If Label3.Caption = d End Sub 参考答案： If d > c Then d = c End If 53．设计一个求ax2 +bx+c=0解的程序，用户界面如下： 参考答案： Private Sub Command1_Click()Dim a, b, c, d, x1, x2 As Single a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b ^ 2Sqr(d))/(2 * a)Label3.Caption = ”x1=“ & x1 & Chr(13)& ”x2=“ & x2 Else Label3.Caption = ”此方程无实根！“ End If End Sub Private Sub Command2_Click()End End Sub 54．编一程序，将阿拉伯数字0、1、2、……、8、9转换为汉语大写数字零、壹、贰、……、捌、玖，程序界面如下： 三、简答题 1、代码窗口主要包括哪几部分？ 2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ C．设置文本框的焦点 D．改变文本框的内容 2、应用程序设计完成后，应将程序保存，保存的过程是（d） A．只保存窗体文件即可 B．只保存工程文件即可 C．先保存工程文件，之后保存窗体文件 D．先保存窗体文件（或标准模块文件），之后还要保存工程文件 3、VB应用程序的运行模式是（c） A．解释运行模式 B．编译运行模式 C．两者都有 D．汇编模式 4、任何控件都具有的属性是（a） A．TEXT B．CAPTION C．NAME D．FORECOLOR 5、决定控件上文字的字体、字形、大小及效果的属性是（D） A．TEXT B．CAPTION C．NAME D．FONT 6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（B）设置为0 A．INDEX B．TABINDEX C．TABSTOP D．ENABLED 7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（A）事件 A．CLICK B．DBLCLICK C．GOTFOCUS D．CHANGE 8、在运行时，按TAB键跳过了一个可以获得焦点的控件（如文本框），则可能是因为（B） A．该控件的TABSTOP属性值为TRUE B．该控件的TABINDEX属性值为FALSE C．该控件的ENABLED属性值为TRUE D．该控件的ENABLED属性值为FALSE 9、为了防止用户随意将光标置于控件上，应（A） A．将控件的TABINDEX属性设置为0 B．将控件的TABSTOP属性设置为TRUE C．将控件的TABSTOP属性设置为FALSE D．将控件的ENABLED属性设置为FALSE 10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D）属性 A．BACKCOLOR C．FORECOLOR B．BORDERSTYLE D．BACKSTYLE 11、如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B） A．文本框的MULTILINE属性值为TRUE B．文本框的LOCKED属性值为TRUE C．文本框的MULTILINE属性值为FALSE D．文本框的LOCKED属性为FALSE 12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（B） A．Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub B．Private Sub Text1_LostFocus()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub C．Private Sub Text1_Change()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub D．Private Sub Text1_SetFocus()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub 13、Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（D） A．属性、事件、事件过程 C．属性、过程、方法 B．控件、窗体、事件 D．属性、事件、方法 14、决定标签（Label）显示的属性是（C） A．Text B．Name C．Caption D．Alignment 15、命令按钮的标题文字由（B）属性来设置。 A．Text B．Caption C．Name D．(名称) 16、若要设置文本的显示颜色，则可用（A）属性来实现。 A．BackColor B．Forecolor C．FillColor D．Backstyle 17、在运行时，若要调用某命令钮的Click事件过程，则可设置该命令钮对象的（）属性为Ture来实现。 A．Enabled B．Value C．Default D．Cancel 18、在运行时，若要获得用户在文本框中所选择的文本，可通过访问（）属性来实现。 A．SelStart B．SelLenght C．Text D．SelText 三、简答题 1、事件驱动的含意是什么？举例说明。 2、交互式开发方法和传统的应用程序开发过程有什么不同？ 3、文本框在什么情况下使用？ 4、什么是工程？ 5、结构化程序设计的三种基本结构是什么？ 6、对象的三要素是什么？并分别进行简单的解释。 7、为什么要生成可执行文件和制作安装盘？ 8、使用变量前先声明有什么好处？ 9、如何使用帮助功能？ 10、结构化程序设计的特点是什么？ 11、为了把焦点移到某个指定的控件，在代码中应使用的方法是什么？ 12、启动Visua Basic后，只创建了一个窗体，若此时保存，需要保存几个文件？各是什么文件？先保存的是哪一个？ 13、为了防止文本框中的信息运行后被用户修改，应设置什么属性？ 1、一般可以使用__________关键字声明常量。 2、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。 3、变量的声明分为两种方法：__________和____________。 4、在VB中，用___________________语句设定数组的下界，用_____________和__________________语句分别返回数组的上、下界。 5、在代码模块中加入Option Explicit的目的是_____________________。 6、function aa(a1 as date,optional a2 as boolean)as single，写出optional命令的作用__________________。 7、在VB中，我们用一个简单的______语句就能实现退出程序。 8、生成消息框的命令是____________，生成输入框的命令是____________。 9、通用对话框（commondialog）属activex控件，它可以显示多个标准对话框，包括打开/另存为、字体、打印等对话框，若要显示所有文件，则应设置其属性filter=____________，若要使它显示为打印对话框，则应使用什么方法____________。 10、从字符串中任意位置截取字符的函数是__________。 11、语句For j = 3 To 20 Step 3 使循环体执行了______次。 12、对于正在使用的动态数组Arraya()，要增加一个单元，但不能破坏数组内的数据，则应使用语句__________________________________。 13、在Visual Basic中声明静态变量的关键字是_________________。 14、表达式10 Mod 6 4的值为______。 15、表达式chr(Asc(“a”)+ 5)的值为_________。 16、VB中使用注释有2种方法，即________和________。 17、VB中的数据以四种形式存储：常量、_________、_________和记录。 18、为了在VB中存储一个4行5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完整：Dim Juzhen(_ _)as Integer。 19、控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名，但是每个控件都有一个唯一的下标来区分，我们使用属性__ __来设置下标。 20、在过程调用中，实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式：按值传递和__ __。 21、为了保证程序中必须对变量的强制性定义，需要在代码模块的声明部分加入______________语句。 22、分析For……Next循环结构的实例：For i = 5 To 30 Step 2 中，循环体一共执行了______次。 23、表达式Mid(“UniversityOfPetroleum”, 8, 4)的值为_________。 24、常量分为普通常量和__________常量。 25、要将大写字母转换为小写字母，可使用____________函数。 26、不管焦点在哪个控件上，按__________键相当于按了取消按钮。 27、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 28、__________是程序中VB停止执行的地方。 29、逻辑常量为True或__________。 30、使用了__________________的声明后，当程序中使用未经声明的变量时，程序运行时会报错。 31、要将小写字母转换为大写字母，可使用____________函数。 32、自字符串N1位开始向右取N2个字符，要使用_________________函数。 33、日期常量表示时，用符号__________将日期型数据括起来。 34、局部变量只能在__________中声明和使用。 35、模块级变量的声明关键字是Dim或__________。 36、函数Abs(x)的功能是__________。 37、表达式3/6*5的值是__________。 二、选择题 1、以下哪个是合法的变量（） A．right B．abc@123 C．123_abc D．ab123c 2、下列说法错误的是（） A．在同一模块不同过程中的变量可以同名 B．不同模块中定义的全局变量不可以同名 C．引用另一模块中的全局变量时，必须在变量名前加模块名 D．同一模块中不同级的变量可以同名 3、把MsgBox的返回值转换为数值应该使用的函数是（） A．Log B．Str C．Len D．Val 4、语句DIM AA(3,4,5)中定义的数组有（）个元素 A．12 B．60 C．120 D．345 5、下面程序运行后输出的结果是（） A$=“CHINA” B$=STRING$(3,A$) PRINT B$ END A．CHI B．CCC C．INA D．AAA 6、以下语句的输出结果是（） Print Format$(32548.5, “000,000.00”)A．32548.5 B．325,485.00 C．032,548,50 D．32,548,50 7、以下叙述中错误的是（） A．如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B．Sub过程中不能嵌套定义Sub过程 C．Sub过程中可以嵌套调用Sub过程 D．事件过程可以像通用过程一样由用户定义过程名 8、Visual Basic提供的On Error Resume next错误陷阱语句表示（） A．当发生错误时，使程序转跳到语句标号为0的程序块 B．当发生错误时，不使用错误处理程序块 C．当发生错误时，忽略错误行，继续执行下一语句 D．当发生错误时，终止本过程执行，继续执行下一过程 9、在Visual Basic中，若要将控制权交给操作系统则通过（）的语句。 A．End B．Exit Do C．Exit Sub D．DoEvents 10、在Visual Basic 中语句的续行号采用（） A．空格与下划线 B．下划线与空格 C．空格与短线 D．短线与空格 11、假定有以下程序段： For i=1 to 3 For j=5 to 1 Step –1 Print i*j Next j,i 则语句Print i*j的执行次数是（）A．15 B．.16 C．17 D．18 12、从键盘上输入两个字符串，分别保存在变量str1、str2中。确定 18、下列语句中正确的是（） A．txt1.text+txt2.text=txt3.text B．command1.name=cmdok C．12label.caption=1234 D．a=inputbox(“hello”) 19、假设变量BOOLVAR是一个布尔型变量，则下面正确的赋值语句是（） A．BOOLVAR=„TRUE‟ C．BOOLVAR=#TRUE# B．BOOLVAR=.TRUE D．BOOLVAR=3<4 20、以下（）程序段可以实施X、Y变量值的变换（） A．Y=X：X=Y B．Z=X：Y=Z：X=Y C．Z=X：X=Y：Y=Z D．Z=X：W=Y：Y=Z：X=Y 21、语句PRINT “SGN(-26)=”；SGN(-26)的输出结果为（） A．SGN(-26)=26 C．SGN(-26)= +1 B．SGN(-26)=-26 D．SGN(-26)=-1 22、读下面程序段，判断变量Str2的取值是（） Dim Str1, Str2 as String Str1=“University” Str2=STRING$(3,Str1)A．Uni C．ity B．UUU D．yyy 23、VB支持自定义数据类型，在某程序中我们定义了如下类型： Student string As String As Integer Type 针对上述定义，如下几项用法正确的是（） A．Student.name=“张三” B．Dim s As Student s.name＝“张红” C．Dim s As Type Student D．Dim s As Type s.name=“张三” s.name=“张三” 24、一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub frmfunction1()End Sub Form2中定义的过程： Public Sub frmfunction2()End Sub mdlFunc中定义的过程： Public Sub mdlFunction()End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（）A．上述三个过程都可以在工程中的任何窗体或模块中直接被调用 B．只有mdlFunction过程能够被工程中各个窗体或模块直接被调用 C．frmfunction1只能在form1中调用，而frmfunction2 则可以在所有模块或窗体中被直接调用 D．上述三个过程都只能在各自被定义的模块中直接调用 25、VB中Do……Loop结构既可以构成当型循环，也可以构成直到型循环，根据下面的代码： Dim i,n as Integer n = 20 i = 1 Do Print i; i = i + 2 Loop Until i >20 判断循环结构的类型和循环体的执行次数，正确的选项是（）A．当型循环，20次 C．当型循环，10次 B．直到型循环，10次 D．直到型循环，20次 26、在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（） A．Val B．Len C．Str D．Log 27、动态数组因为在程序运行前无法确定数组的大小，所以经常根据程序的运行情况，对数组进行重新定义，以下关于VB中动态数组的叙述中不正确的是（） A．可以用ReDim语句重新定义动态数组，并且可以进行多次重定义 B．首次用Dim进行动态数组声明的时候，必须指明它的类型和上下界 C．Preserve为ReDim语句的可选参数，用于保留动态数组原来的内容 D．当对动态数组使用Erase语句进行释放操作时，将释放其内存 28、VB中的控件也叫做部件或组件，主要包括三类，以下哪一项不属于VB控件的分类（） A．控件 B．可插入对象 D．ActiveX控件 C．ADO控件 29、表达式4+5 6 * 7 / 8 Mod 9 的值是（） A．4 B．5 C．6 D．7 30、可以同时删除字符串前导和尾部空白的函数是（） A．Ltrim B．Rtrim C．Trim D．Mid 三、简答题 1、全局变量声明有哪些限制？ 2、字符串是否可以自动转换为数字类型？ 3、用Format函数格式化后的字符格式在不同区域环境下的输出是否相同？为什么？ 4、在InputBox函数中，哪一个参数是必需的？ 5、在MsgBox函数中哪一个参数是必须的？ 6、在什么情况下使用过程？ 7、为什么要进行程序调试？ 8、调试程序有哪些手段？ 9、用语句Dim A(-3 To 5)As Integer定义的数组的元素个数是多少？ 10、设有如下的Visual Basic表达式：5*x^2-3*x-2*Sin(a)/3，与它对应的数学式是什么？ 11、数学式(2xa)(3yb)对应的VB表达式是什么？ 12、表达式2>3 And 4<=5 Or 4>4的值是什么？ 13、怎样在程序中设置断点？ 14、在什么情况下可以设置断点？ 15、程序出错的类型有哪几种？ 16、在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量？为什么？ 17、什么情况下会出现“数组下标越界错误”？ 18、逐语句和逐过程有什么区别？ 19、表达式2.75 * 2 3.45的值是什么？ 20、在程序设计中为什么尽量不用GoTo语句？ 四、读程序题 1、分析以下程序，写出运行结果。 Private Sub Form_Click() score = Int(Rnd * 10)+ 80 Select Case score Case Is < 60 A$ = “F” Case 60 To 69 A$ = “D” Case 70 To 79 A$ = “C” Case 80 To 89 A$ = “B” Case Else A$ = “A” End Select Print A$ End Sub 2、读下面的程序，分析其功能，写出运行结果。 在窗体上有一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click()For I = 1 To 4 For J = 0 To I Print Chr$(65 + I);Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？ 3、阅读下面的程序，分析并写出其功能。 Sub insert(a()As Single,ByVal x As Single)Dim m as integer,n as integer n=1 Do While n<20 And x>a(n)n=n+1 Loop For m=20-1 To n Step –1 a(m+1)=a(m)Next m a(n)=x End Sub 4、分析以下程序，写出运行结果。 Sub subP(b()As Integer)For i =1 To 4 b(i)=2*i Next i End Sub Private Sub Commandl_Click()Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a()For i =1 To 4 Print a(i)Next i End Sub 运行上面的程序，单击命令按钮，输出结果是什么？ 5、分析以下程序，写出运行结果。 Sub sele()Dim n as Integer i=21:n=3 Do While i>n i=i－n Loop Print i End Sub 6、分析以下程序，写出运行结果。 Sub selectPrint()Dim a as Integer Dim b as Integer Dim c as Integer a=2:b=5:c=2 If(a>=b)and(a>=c)or(b>c)Then Print a a=a+2 Else Print b EndIf Print a;b;c End Sub 7、分析以下程序，写出运行结果。 Sub swap()Dim x as Integer Dim y as Integer Dim z as Integer x=1:y=2:z=0 Print x;y;z x=x+y x=x*z Print x,y,z End Sub 8、分析以下程序，写出运行结果。 Sub selectPrint()Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2 If(a>=b)and(a>c)Then Print a Print a,b,c End Sub 五、编程题 1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能被400整除或者不能被400除尽，也不能被100除尽，但能被4整除，则它是闰年；否则，不是闰年。 2、输入两个正整数m、n，求m和n的最大公约数。要求建立如下图所示的窗体，其中主要的控件包括：两个标签（Lable1、Lable2）、两个文本框（Text1、Text2）和一个按钮（Command1）。 3、输入某学生成绩（百分制），若是100≥成绩≥90输出优秀；若是90＞成绩≥80输出良好；若是80＞成绩≥70输出中等；若是70＞成绩≥60输出及格；若是60＞成绩≥0，输出不及格；若是其他数则输出error信息。 4、在窗体中显示从9号字型到16号字型。 5、在有序序列中插入一个数，使插入后的数列仍然有序（设按由小到大排列）。 6、编程实现二维数组转置。 7、随机输入10个100以内的整型数，计算其和及平均值。 8、找出所有的水仙花数。水仙花数是个三位数，它的各位数字的立方和等于这个三位数本身。例如371＝33+73+13，则371是水仙花数。 9、从键盘输入一个大于2的正整数，判断该数是否是素数。 10、求二维数组中的最小值及其所在行号、列号。 11、求一元二次方程ax2+bx+c=0的根（包括实根和复根）。 12、输入一个正整数n，计算出n!并输出。 13、Faibonacci数列为0，1，1，2，3，5，8，13 „，计算并输出 Print List1.______________ End Sub（2）单击列表框某一项时立即将该项打印在窗体上： Private Sub List1_Click()Print_______________ End Sub（3）按下命令按钮Command1时在窗体上删除 Label1.Caption = Hscroll1.__________________ End Sub 14、列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中__ __属性存放了列表框中所有项目的值。 15、菜单项一般由标题、访问键、快捷键和复选标志等构成，通过对相应的属性进行设置可以改变这些项目的状态，其中与复选标志相对应的属性是__ __。 16、keydown与keypress事件各有其参数，若需获得用户按下 “a” 还是 “A” 需用____________事件。 17、控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。 18、若需要将窗体Form2以模态窗口的形式显示出来，可通过执行代码_________________来实现。 19、菜单中的分隔条是一种菜单控件，不响应__________事件，不能被选中。 二、选择题 1、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到（）A．MouseDown B．MouseUp C．Load D．Click 2、窗体Form1的Name属性是Frm1，它的单击事件过程名是（） A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click 3、用于设置通用对话框控件显示文件类型的属性是（） A．Filter B．Path C．Partern D．FoleName 4、用于从内存删除窗体的命令是（） A．Move B．Hide C．Unload D．Delete 5、用于返回窗体可用区域宽度的属性是（） A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop 6、下列关于属性设置的叙述错误的是：（） A．一个控件具有什么属性是VB预先设计好的，用户不能改变 B．一个控件具有什么属性是VB预先设计好的，用户可以改变 C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置 D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值 7、下列说法正确的是（） A．对象属性只能在“属性窗口”中设置 B．一个新的工程可以在“工程窗口”中建立 C．必须先建立一个工程，才能开始设计应用程序 D．只能在“代码窗口”中编写程序代码 8、下列关于窗体上控件的基本操作错误的是（） A．按下一次DEL键只能删除一个控件 B．按下一次DEL键可以同时删除多个控件 C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件 D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件 9、下列关于设置控件属性的叙述正确的是（） A．用户必须设置属性值 B．所有的属性值都可以由用户随意设定 C．属性值不必一一重新设置 D．不同控件的属性项都完全一样 10、不可以通过下列（）操作将焦点赋给对象 A．运行时使用TAB键 B．在代码中用CALL语句调用 D．用访问键或用鼠标单击选择对象 C．在代码中用SETFOCUS方法 11、要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应（） A．设置窗体的VISIBLE属性 C．调用窗体的SHOW方法 B．设置窗体的CAPTION D．设置窗体ENABLED属性 12、下面（）对象无CAPTION属性 A．FORM B．COMMANDBUTTON C．TEXTBOX D．LABEL 13、通用对话框控件和文件列表框控件中，都能根据文件的类型对要显示的文件进行筛选过滤，后者使用（）属性进行该项设置。 A．Pattern B．Path C．Filter D．FileName 14、对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（） A．chkBoy.Checked = true C．chkBoy.Selected = true B．chkBoy.Value = true D．chkBoy.Value = 1 15、计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（） A．Interval B．SmallChange D．Max C．LargeChange 16、以下关于VB中窗体（Form）的说法中，不正确的描述为（） A．执行Unload Form语句后，窗体Form消失，但仍在内存中 B．当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 C．窗体的Height、width属性用于设置窗体的高和宽 D．窗体的load事件在加载窗体时发生 17、关于滚动条控件，下面说法错误的是（） A．点击滚动条的箭头，可以改变它的value值，从而引发Change事件 B．拖动滚动框，可以触发Scroll事件 C．通常，水平滚动条的值从左向右递增，垂直滚动条的值自上而下递增 D．拖动滚动框，可以触发Change事件，而且是连续触发的 18、在窗体上放置一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： PriVate Sub Command1_C1ick()a$=“software and hardware” b$＝Right(a$,8)c$=Mid(a$,1,8)Msgbox a$,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是（）A．softWare and hardware C．hardwafe B．software D．出现错误 19、在多重窗体程序设计中，关键的问题是要解决不同窗体之间的衔接和窗体的显示、关闭等问题，以下关于窗体的相关语句和方法的叙述中，错误的是（） A．Load语句用于加载指定窗体，即在内存中创建该窗体 B．Show方法兼具Load语句的功能，可以将窗体显示出来 C．Hide方法用于将窗体隐藏起来 D．Unload语句用来释放窗体，但窗体并没从内存中消 20、滚动条控件的属性中，表示取值范围最大值的属性是（） A．Max C．Min B．LargeChange D．Value 21、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（） A．DragDrop C．MouseUp B．MouseDown D．MouseMove 22、为了使用通用对话框进行打开文件的操作，应将通用对话框的Action属性设定为（）。 A．0 B．1 C．2 D．3 三、简答题 1、什么是单选按钮？什么是复选框？在使用上有什么不同？ 2、滚动条的change事件和scroll事件有什么不同？ 3、快捷键和访问键有什么区别？ 4、在程序运行期间，如果拖动滚动条上的滚动块（即滑块），则触发滚动条的什么事件？ 5、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用什么语句？ 6、为了暂时关闭计时器（即时钟控件），应把该计时器的什么属性设置为False？ 7、单选按钮和复选框（即检查框）各用于什么情况？ 8、如何为一个菜单项设置热键和快捷键？ 9、菜单的形式有哪两种？ 10、在KeyPress事件中，如何取消用户刚输入的字符？ 11、框架的作用是什么？ 12、如果要计时器每秒钟发生4个Timer事件，则Interval属性值应设多少？ 13、在一个窗体的程序代码中能否访问另一个窗体上控件的属性？若不行则请说明理由；若行则请说明如何访问。 14、如何在框架中建立控件？ 15、组合框有哪几种类型？ 四、读程序题 1、对窗体编写如下代码： Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1 If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(j)m2 =i End If Next i End If Print m1 Print m2 End Sub 程序运行后，按回车键，输出结果是什么？ 2、阅读下面的程序，写出执行结果。 Private Sub Form_load() Form1.show d = 0 For a = 1 To 2 For b = 1 To a For c = b To 5 d = d + 1 Next c Next b Next a Print d End Sub 五、编程题 1、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间，请编程实现。 2、在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值，如下图所示。 Text1 Command1 Text2 3、编写一个程序，能够实现任意个整数的排序。 4、编程实现以下功能：用户首先分别在两个文本框中输入两个数，然后在具有“加、减、乘、除”等四个菜单项的“计算”菜单中单击某一项，即可在标签中显示出相应的结果或者错误提示。 5、编程实现任意两个数的“加、减、乘、除”。 6、编写一个程序，能够求任意个正整数的最大值和最小值。 7、编程求任意两个正整数的最大公约数。 六、程序分析填空题 1、建立一个如图所示的简单编辑器。用户在文本框（text1）中输入正文后，选中某些文本时可进行“剪切”、“复制”和“粘贴”操作。假设在窗体声明部分定义了一个变量str1，用于保存复制和剪切的内容，请把剪切按钮(btnCut)的Click事件补充完整。 程序运行界面： Private Sub btnCut_Click() „请补充 End Sub 2、计算1 + 2 + 3 + …… + 100的和并输出。请把下面用Do While ……Loop循环结构实现这一功能的代码补充完整。 Private Sub Form_Load()Dim sum,count as Integer „请补充 Do while count <=100 „请补充 Loop Text1.Text = sum End Sub 3、列表框控件（ListBox）支持多项选择，这项功能在对用户的兴趣爱好进行调查的时候显得非常好用，在下图所示的界面中列表框List1用于列出爱好选项，供用户进行多项选择。 请把下列代码补充完整，能够取得用户的所选爱好选项： Private Sub Command1_Click() Dim i As Integer Dim s As String s = txtname.Text & “爱好” For i = 0 To List1.ListCount-1 „请补充 Next Label3.Caption = s End Sub 4、要求利用计时器Timer1，在窗体Form1上每隔1秒钟打印一个1到10的随机整数，请把下列代码补充完整： Private Sub Form_Load() Show „请补充 End Sub Private Sub Timer1_Timer()„请补充 End Sub 5、请说明PRINT #和WRITE #语句的区别 6、EOF函数的功能是什么？ 四、编程题 1、实现二进制方式文件的复制。 2、如下图所示，实现一个简单的文件管理器。 件 C．双击工具箱中的控件图标，所画控件的大小和位置是固定的 D．不使用工具箱中的控件工具，不可以在窗体上画出图形对象，但可以写入文字字符 2、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（）事件来完成图形的重画工作 A．Paint B．Load C．Click D．Active 三、简答题 1、在什么情况下使用Image控件而不使用PictureBox控件？ 2、在程序运行时怎样在图形框中装入和删除图形？ 3、颜色函数主要有哪些？ 四、编程题 第一部分：书上例题运行结果展示 例6-1求组合数Cnmn!的值，设m=6,n=10。 m!(nm)! 例6-2一个数组有10个整数元素，将第一个元素与最后一个元素对调，第二个与倒数第二个对调……，输出对调前后数组各元素的值。 例6-3编写求两个整数的最大公约数过程，在主程序中调用该过程求两个数的最大公约数，并根据最大公约数求最小公倍数。 例6-4分别用传地址方式和传值方式编写交换两个整数的过程并调用。 例6-5编写求一组整数平均值的过程，并在主程序中调用。 例6-6编写能获得一组整数的平均值、最大值和最小值的过程并调用。 例6-7求组合数Cnmn!的值，设m=6,n=10。 m!(nm)! 例6-8窗体级变量的作用范围示例 例6-9变量的作用范围综合示例。 例6-10编程对键盘上输入的任意个数排序。 例6-11判断一个整数是否是回文数。所谓回文数是这样的数，将这个数从左向右读和从右向左读值相等。如121就是回文数，345就不是回文数。 例6-12设计一个数值转换函数，能够将十进制整数转换成16进制以内的任意进制数。 例6-13利用递归调用计算n! 第二部分：课后习题 1． 自定义一个与VB内部函数Abs功能完全相同的函数过程MyAbs，要求函数过程中不能调用VB内部函数Abs。运行结果如下所示： 代码录入如下： Private Sub Command1_Click() Dim a! a = InputBox(“请输入函数值”) Print myabs(a)End Sub Function myabs!(ByVal x!) If x >= 0 Then x = x Else x =-x End If myabs = x End Function 3．编写函数过程Gdc求两个数的最大公约数。调用此函数试求1260、198、72三个数的最大公约数。 运行结果如下所示： 代码录入如下： Private Sub Command1_Click() Dim x%, y%, z% x = Val(InputBox(“输入第一个数x为：”)) y = Val(InputBox(“输入第二个数y为：”)) z = Val(InputBox(“输入第三个数z为：”)) z = gys(gys(x, y), z) Print “三个数的最大公约数为：” & z End Sub Function gys%(ByVal m%, ByVal n%) Dim r% Do r = m Mod n If r = 0 Then Exit Do Else m = n: n = r End If Loop gys = n End Function 7．编程输出10000～99999之间的全部回文式素数。运行结果如下： 代码录入如下： Private Sub Command1_Click() Dim i&, n&, x# x = Timer For i = 10000 To 99999 If hws(i)= True Then If ss(i)= True Then Print i; n = n + 1 If n Mod 5 = 0 Then Print End If End If Next i Print x = Timer1)Mod 5)* 6);dg(i); Next i Print Print “第20个数是” & dg(20)End Sub Function dg#(ByVal m%) If m >= 3 Then dg = dg(m2) Else dg = 1 End If End Function 第三部分:简答题 1.Sub过程和Function过程的异同点是什么？ 答：过程是一个具有某种功能的独立程序段，可供程序多次调用。对于一个具体问题，既可以使用Function过程，也可以使用Sub过程。但Sub过程与Function过程还是有区别的，Sub过程的过程名仅标识过程本身；Function过程的过程名除了标识过程本身以外，还有返回值的作用，因此，若过程有一个返回值时，则习惯使用Function过程，并通过函数名返回函数值；若过程不需要返回值或返回多个值时，则使用Sub过程；返回值通过实参与形参的结合带回，当然也可通过Function过程名带回一个结果，其余通过实参与形参的结合带回。 2.值传递与地址传递特点是什么？如何选择？ 答：VB中形参与实参的结合有传值和传地址两种方式。数据传递按照地址方式传递。传值方式只能从调用程序向过程传入初值，但不能将结果传出；而地址传递即可传入又可传出。实现传值和传地址对形参和实参的要求。在定义过程时在形参前加ByVal关键字或过程调用时变量加圆括号，数据传递按照传值方式；如果在形参前加ByRef关键字或省略（默认）或实参是数组、自定义类型、对象变量等，参数传递只能是地址传递。 3.在VB中，形参若是数组，问在过程体内如何表示其数组的上、下界？ 答：传地址是VB默认的参数传递方式。在这种方式下，实参传给形参的是存储地址，使得形参与实参共用同一存储单元，因此，在过程中对形参的任何操作实质都是对相应实参的操作。参数传递时，当实参为变量时，把实参的地址传递给形参，使实参与形参共享同一存储单元段；当实参为数组时，把实参数组的存储地址传递给形参数组，使实参数组与形参数组共享同一存储区域。 4.在Form1窗体通用声明部分声明的变量，可否在Form2窗体中的过程被访问？ 答：不可以。窗体（模块）级变量的作用域限制在声明它的窗体（模块）中，该窗体（模块）中的所有过程均可访问该变量，其它窗体（模块）则不能。 5.为了使某变量在所有的窗体中都能使用，应在何处声明该变量？ 答：public 6.在同一模块、不同过程中声明的相同变量名，两者是否表示一个变量？有没有联系？ 答：不表示。当变量名相同而作用域不同时，将优先访问作用域小的变量。 三．实习中遇到的问题 传值与传地址的区别及各种情况下的选择。 四．信心指数 21世纪的高校教育, 实验教学已经成为培养学生实践能力、创新意识的重要途径, 其建设与管理与高校的教学、科研以及人才的培养息息相关, 传统的实验室仪器设备、管理模式已经无法满足当前的需要。随着计算机技术的飞速发展, 网络化的实验室管理系统已经成为一项重要的课题。目前, 我国高校的实验室管理信息系统研究与开发还处于萌芽期。 二、设计开发实验室管理系统的意义 实验室管理系统是针对实验室的实际需要而进行设计的, 可供实验人员使用。 (1) 实验室管理系统的建设, 可以使实验室管理变得方便快捷, 大幅度提高工作效率, 实现无纸化办公。 (2) 实验室管理系统的建设, 能将数据查询和统计结合, 解脱手工统计的繁琐工作。 (3) 实验室管理系统的建设, 能促进高校的信息化管理, 并提供给学生自主学习的试验环境。鉴于此, 以实验室管理员、教师、学生作为主要服务对象, 采用Visual Basic和Access数据库构建了一个界面友好、操作方便的实验室综合信息管理系统。该系统能灵活、便捷地整合实验室日常教学管理与课程安排、人员管理和设备管理, 在完善实验教学、提高工作效率、优化资源配置上起着重要作用。 三、数据库的设计 数据库是一个专用名词, 它是以一定格式构成的数据集合, 这些数据可以被访问、检索以使用。Access就是这样一种功能强大的数据库管理系统 (Data Base Management System, DBMS) 。, 具有强大的数据库引擎, 安全性可靠, 是利用安装普遍的Windows系统自带的Microsoft Office软件设计的, 操作界面友好, 二次开发支持性良好, 且具有便捷的代码编写环境。在Ac ce s s系统中, 数据库是表的集合, 其数据表或查询结果生成后可以与Excel共享, 一起作为Web的信息源, 更可以进行文档的批量处理。Access数据库文件后缀单一便于归类和管理, 且提供多种事后生成模式。选用Access作为桌面数据库十分强大方便。而VB (Visual Basic) 软件可在开发图形用户界面时通过可视化操作, 避免编写大量代码。同时VB可以访问所有主流数据库, 包括各种桌面数据库和大型网络数据库。 四、系统分析与设计 1. 系统功能模块设计 实验室管理系统由实验室设备管理, 实验教学管理, 综合查询管理三个模块组成。 (1) 实验室设备管理包括设备信息管理、设备查询管理、设备维修管理和实验室信息。管理员可以对仪器设备信息进行管理:建立设备信息和设备附件信息并进行查询。设备信息包括设备名称、规格型号、出厂日期、出产厂家、价格、使用单位等。可以登记设备损坏、故障、报废情况, 并能查询到有关仪器的编号。 (2) 实验室教学管理包括教师管理模块、学生预约模块、实验评分系统。教师可以通过系统添加实验目的、实验要求、实验内容、课程时间等, 学生可以自主选择实验项目并进行预约, 而评分系统可以根据每一项目的完成度和实验报告的提交情况进行打分。 (3) 综合查询管理:信息汇总。记录各个实验室编号、名称和管理制度及可进行的实验。管理员可以查询仪器信息并进行实验准备, 教师查询教学进度, 学生查询实验得分。 2. 用户管理 根据实验室管理的情况, 该系统设计了四类用户, 即管理员用户、教师用户、学生用户和游客。用户层采用人机交互的友好界面, 可以直接进行查询和页面浏览。用户首先在系统界面选择相应的用户类别并登陆, 获取权限后进行相关操作。逻辑层将用户命令转化为数据, 到达数据层即数据库管理系统。 管理员用户可以录入教师、学生用户并对其进行权限管理;可以进行设备信息录入、使用维修记录录入;可以实验教学管理。教师用户可以对实验室信息进行查询;可以对实验信息录入;可以管理学生成绩。学生用户可以进行课程查询;可以预约实验;可以提交实验报考;可以查询成绩。游客可以访问实验室信息和查看实验安排, 但不能修改。 3. 系统实现 目前, 通过Vi s u a l Ba s i c直接访问数据库的控件有Data数据控件和ADO数据控件两种。Data控件只能用来连接数据库, 而不能建立新表和索引。所以目前ADO (Ac t i v e X数据对象, Aetive X Data Object) 数据访问方式是访问数据库的主流技术, 它是VB数据访问技术的发展方向。ADO是基于对象的数据访问接口, 通过OLE DB所提供的方法对各种数据源进行操作和访问。用ADO访问数据库有两种方式:ADO数据控件 (ADODC和ADo对象编程模型 (AD0代码) 。ADO数据控件功能简单, 不够灵活, 不能编制较复杂的数据库, 因此选用ADO编程模型。 添加ADO控件的方法是:选择“工程”|“部件’’菜单命令, 打开“部件’’对话框, 在其中选择“Microsoft ADO Data Control6.0 (SP6) (OLE DB) ”复选框命令, 即将ADO控件添加到结语控件工具箱。然后在有ADO控件的窗口Form—Load事件中编写代码来与数据库建立连接。打开数据库后即可以存取数据, 并显示在适当的控件中。对数据库的操作可以使用记录集对象来进行。结构化查询语言 (S t r u c t u r e Qu e r y L a n g u a g e, S QL) 可以用来生成记录集, 并且可在用户和数据库引擎进行通信。 五、结束语 为了满足培养高素质人才的要求, 提高实验室管理的工作效率, 利用VB直接访问Access数据库功能, 开发设计出适合便捷、科学的实验室管理系统。该系统建立的数据库及友好的运行界面满足了多种信息的需求。然而该系统还有不尽如人意的地方, 尚待进一步的探索和完善。 参考文献 [1]肖鹏博, 卢艳青.高效开放性实验室管理系统的设计与实现[J].实验科学与技术, 2011 (5) . [2]王妍, 孙德兵.高校智能实验室管理系统开发与实践[J].实验技术与管理, 2010, 27 (6) :105-106. 【vb实验答案】推荐阅读： vb实验指导书答案06-10 java实验报告实验2答案06-10 电力电子实验报告答案07-08 化学实验学案答案06-25 实验室试题参考答案07-04 实验一电器控制实验06-08 实验44实验报告图文06-16 大物实验实验报告06-26 自控实验二实验报告07-16 模电综合实验实验报告05-25VB程序设计练习题附加答案 篇5
VB第六章实验报告 篇6
vb实验答案 篇7
