vb程序设计实验答案

vb程序设计实验答案（精选6篇）

vb程序设计实验答案 第1篇

VB实验指导与练习题实验部分的参考答案： 实验 4 4-1： 2*pi*r Pi*r*r 4-3: chr(64+n)4-4: x mod 10

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

a(i)>a(j)

vb程序设计实验答案 第2篇

要求学生在学习该课程中，应用每个相对独立的、完整的单元知识解决一个实际项目，设计编写一个小作品;学完整个课程后，完成一个综合性比较强的编程项目，使学生对整个课程内容进行全面的总结、梳理，以项目完成为手段，全面锻炼学生分析问题和解决问题的能力。

vb程序设计实验心得4篇vb程序设计实验心得4篇

一.目的

1.为使学生掌握编程、面向对象程序设计思想和组建编程的知识实际技能，除了系统地讲授必要的知识，上机练习，做作业外，还应该对学生作较全面的编程技能和分析问题解决问题的能力训练，即作课程设计，以达到如下目的：具体应用和巩固本课程及有关先修课的基础理论和专业知识，了解面向对象程序设计思想，掌握应用编程和组建编程程序设计方法，培养学生初步的项目设计能力。

2.独立地根据一定的项目要求，查阅资料，写出项目开发目标，分析开发过程中所用到的课程知识，提出解决方案，编码并上机调试完成系统，培养学生分析问题和解决问题的能力。课程设计是教学过程中的一个重要环节，必须认真对待。

二.要求

在课程设计中要求学生注意培养认真负责，踏实细致的工作作风和保质保量，按时完成任务的习惯。在设计过程中必须做到：

1.在某个教学单元结束后，完成一个教师布置的、或学生自己拟定的、知识覆盖整个章节的，有一定综合性和难度的项目，要求学生描述出要达到的目标、围绕目标，收集资料和素材，复习所需的课程知识，描述问题解决方案、编写程序上机调试，直到项目的完成。最后的成果要有完成的作品和相应的文档。

2.在课程结束后，完成一个大的编程项目，其要求与课程单元的项目差不多，只是综合性更强、难度更大、知识覆盖面更广，工作量更大，以全面促进学生复习和梳理学科教学内容，提升学生分析问题、解决问题和文档的书写和编制。

三、采取的措施

为了保证课程设计能够按照预定的目标和计划进行，我们还采取了以下措施来加强对学生监督和管理。

1.首先讲清楚课程设计的意义，让学生能够自觉积极主动地进行课程设计，发挥学生的主观能动性;

2.在课程设计过程中，教师随时巡视和监督，了解把握和控制课程设计的进展;

3.将学生的作品集中展示、评价、打分，可以让学生在展示的过程中获得成就感、自豪感，学生之间可以相互学习、取长补短，同时在此过程中可以明确标准，自觉地按照标准来调整自己地学习;

4.将课程设计作为学期成绩的一部分记载，大约占10%，必须完成课程设计后才能参加考试，课程设计不过关，即使考得再好，也不能过。

四、取得的效果

vb程序设计实验答案 第3篇

关键词：医药专业,VB程序设计,实验教学

程序设计课是国内大多数高等院校非计算机专业的公共必修课, 其目的是培养学生计算机应用能力和综合素质[1,2], 在课程体系中占有十分重要的位置。医院及医药行业信息化建设的进一步推进, 对医药从业人员计算机应用能力及素养要求越来越高。

我校是一所以医药类为主的高等院校, 根据医药类人才培养的目标, 针对非计算机专业的医药类学生开设了VB程序设计课程 (以下简称VB) 。VB是一门理论与实践并重的课程, 其实验教学效果直接决定课程教学的质量, 积极探索适合医药类学生的实验教学思路及方法意义重大。

1 VB实验教学存在的主要问题

我校在近几年的计算机公共基础实验教学中取得了很大的进步, 但也存在不少问题, 积极探索解决这些问题的思路及方法, 对于计算机公共课的教学相当重要。

1.1 学习的动机不强, 积极性不高

我校VB程序设计的授课对象主要是医药专业的学生, 而医药类专业的学生对VB的学习普遍兴趣不高[3], 多数学生认为学习程序设计没有用, 只是为了拿学分, 应付考试而不得不学, 学习的内在动机严重缺乏。实验课变成了聊天课、上网课, 学习自由散漫。在编程过程中, 一遇到问题就会气馁, 不主动思考, 造成学习效果不佳。

1.2 医药类学生缺乏程序设计课程必要的知识结 构及学习倾向

医药类学生在数学、信息技术、物理电子等方面的基础相对薄弱, 而程序设计语言是由数学和电子技术逐渐发展并分离出来的, 其思维习惯、学习策略与医药类专业课程有较大差异。因此, 学生在学习过程中普遍有畏难情绪, 学习积极性不高、缺乏兴趣。

1.3 实验教学内容陈旧, 教学模式单一

目前, 医药类学生使用的VB教材千篇一律, 具有通用性, 缺乏针对性, 教材中的内容与医学实际没有关联, 让学生感觉与自己专业关系不大[4]。而实验教学内容的设置同样缺乏针对性, 未能根据医药类学生的特点设计专门的实验, 没能做到因材施教, 90%的实验内容是有关计算的, 实验内容缺乏趣味性、多样性、丰富性, 与医药专业的耦合度也非常低, 学生普遍认为程序设计语言枯燥、乏味、无用。而在实验课上采用的教学方法也是程序设计专业教学的策略和方法, 比较单一、缺乏吸引力。这对于入门课程的教学相当不利。

1.4 对VB实验教学缺乏足够的重视

VB作为一门公共基础必修课, 可以培养学生严密的逻辑思维能力、创新能力以及塑造学生求真、务实、坚韧不拔的优秀品质。而这些能力的培养和品质的形成离不开实验教学这一重要环节。在理论课中讲 解的原理、概念、案例等, 只有通过上机实践才能真正被学生掌握[5], 但在组织教学时并未给予足够的重视。 (1) 在任课教师的选择上不够严格规范, 认为课程比较基础, 而且授课对象是非计算机专业学生, 教学要求并不高, 教师只要有一定的计算机基础或者专业相近就可以。 (2) 多数实验指导教师不备课, 只是解答学生编程中遇到的问题, 重知识传授轻能力培养, 因此, 对于实验内容、实验要求、实验步骤以及要达到的实验目的, 都缺乏精心组织。 (3) 在实验过程中, 有些教师不重视实验课, 对学生缺乏应有的组织和引导, 因此, 学生自由散漫, 实验效果极差。

1.5 对实验教学缺乏有效的考核

目前对VB实验教学的考核不够重视, 也缺乏行之有效的考核方式与方法, 直接影响了实验教学质量。例如:实验考核的主要内容是平时考勤、实验报告。平时考勤只能反映学生是否按时出勤, 并不能直接、准确反映学生对实验掌握的情况;对于实验报告, 相互抄袭现象严重, 有的甚至不做实验直接写实验报告。这种流于形式、不够客观、缺乏全面的考核方式无法真正检验学生学习情况, 也无法真正发挥“以考促学、以考促教”的考核功能;影响了实验指导教师及学生对实验课的积极态度, 极大地挫伤了学生的学习积极性和主动性。

2 提出“两优先、一目标”的教学思路

目前, 在医药行业, 缺的不是计算机人才, 也不是医药专门人才, 而是既有医药背景又对计算机感兴趣的复合型人才。在教学中, 鼓励有兴趣的学生进一步深造时, 可以选择医药信息专业, 因此, 在医药队伍中培养和发现信息人才也是该课程教学的重要任务之一。

根据以上人才培养目标及VB实验教学存在的问题, 我们提出“两优先、一目标”的实验教学原则及目标, 即基础知识教学优先于技巧教学, 学习兴趣培养优先于知识技能培养, 思维能力和素质培养为实验教学的根本目标。培养和发现医药信息人才, 将有兴趣和有潜力的医药人才吸引到急需的医药信息人才队伍中。实验教师在此原则及教学目标的指导下, 设计实验项目, 组织开展实验教学活动, 并将学生基础知识的掌握情况、计算机思维能力的变化、学习兴趣的强弱变化纳入实验效果考核的范畴。

3 在实验教学中的六个“注重”

3.1 注重学习兴趣的培养, 为持续学习注入永久 动力

在学习中, 兴趣是最好的老师, 对医药类专业学生进行VB实验教学中, 兴趣的培养显得尤为重要。激发并维持学生兴趣是提高教学质量的根本办法[6], 在实验教学中, 开始时学生学习该课程的积极性比较高, 但如果不注意培养, 这种原始的积极性很快就会消失, 可以从四个方面着手培养学生的学习兴趣。

(1) 根据医药类专业背景设计有趣的实验题目, 让“趣味感”激发学习兴趣。

在设计实验项目时, 可以考虑学生的专业背景甚至兴趣爱好, 对同一知识点尽量选择多种背景设计多个实验项目, 这样可以供具有不同兴趣的学生选择, 也可以避免学生相互抄袭实验报告情况的发生。学中有乐, 兴趣自然高涨。

(2) 实验题目的设计尽量做到规划性、系统性、连贯性、渐进性, 让“成就感”促进学习。

在该课程之前的实验项目设计上比较随机, 实验教师往往根据章节的教学要求设计实验项目, 很少考虑前后实验内容的衔接, 缺乏规划性、系统性、连贯性及渐进性。这样不利于实验成果的积累, 实现的只是零散的某个功能。学生很难将这些零散的知识和功能整合起来, 很难有成就感, 实验效果也大打折扣。针对这种情况, 实验教师可以根据学生情况和课程的整体教学目标设计综合实验项目。综合实验项目是每章节实验项目的有机组合, 可以更全面地检查每个学生的实验情况, 而且每次进行新的实验时学生可以看到自己前面的实验成果, 还可以看到自己的“作品”不断丰富和完善, 这样循序渐进、不断积累实验成果, 很容易产生成就感, 从而可以激发学生浓厚的学习兴趣。

(3) 成立“学习成长”小组, 培养团队合作精神, 让“归属感”帮助培养学习兴趣。

归属感是指个人自己感觉被别人或被团体认可与接纳时的一种感受, 马斯洛认为“归属和爱的需要”是人的重要心理需要。缺乏归属感的个人会对自己从事的工作或学习缺乏激情和责任感。在VB实验教学过程中, 可以培养学生对VB实验团队的归属感, 成立VB实验学习成长小组, 使小组成员之间互相影响、互相促进、互相提高, 进而产生积极效应, 为实验课增强凝聚力, 原本对VB实验不感兴趣的成员由于强烈的归属感, 也会在实验中变得积极认真, 学习兴趣也会在实践中得到培养。

(4) 每次实验提供多个实验题目供学生选择, 让“自由感”促进兴趣培养。

由于学生的兴趣点各不相同, 每个学生想解决的问题也各不相同。如果每次实验所有的学生都做同样的实验题目, 对实验题目不能自由选择, 有些学生对问题本身毫无兴趣甚至排斥, 认为问题本身毫无意义, 对VB实验也很难有浓厚的兴趣。因此, 每次实验应提供多个实验题目, 让学生自由选择, 每个学生要解决的都是自己感兴趣的问题, 自然会动力十足, 这也符合学生喜欢自由自律的个性特征。

3.2 注重基础知识的教与学, 为树立信心打下坚 实的基础

基础知识的教与学相当重要, 如果不能扎实掌握, 在实验过程中处处都会遇到拦路虎和绊脚石, 这样不仅会影响VB的学习效果和进度, 更糟糕的是会极大地挫伤师生的积极性和自信心。因此, 在实际教学中, 要特别注重基础知识、基本概念的理解、掌握与训练。针对重要的基础知识, 设计专门的实验项目进行训练, 确保学生切实掌握。针对有余力的学生, 可以设计部分技巧型较强的实验项目供其选择。让学生扎实掌握基础知识, 深刻理解基本概念, 才能很好地解决新问题, 做到举一反三。

3.3 注重实验过程的管理, 以培养医药类学生 “知其然知其所以然”的探索精神

目前VB实验多数是验证型实验, 实验课基本上是学生按照教师理论课上的讲解或演示程序, 根据实验指导书写代码、调试, 课后写实验报告。学生往往敷衍了事, 抄袭现象比较严重, 注重结果的输出及实验报告的撰写, 不重视问题解决的过程及思路。另外, 实验指导教师以辅导答疑的形式进行指导, 学生依赖心理严重, 缺乏独立思考的意识和能力, 而且由于学生人数较多, 教师很难解答所有学生的问题, 影响了实验教学质量的整体提高。

因此, 要改进实验项目, 适当减少验证型实验, 增加综合设计型实验。实验指导教师尽量自己设计实验项目, 这样可以避免学生从网络上复制代码。在实验过程中, 要注重过程的管理, 着重考查学生解决问题的思路, 在解答学生疑问时注重启发、引导思考, 辅助学生自己解决问题, 并将实验过程的考查纳入考核成绩中。由于学生人数较多, 每次实验对所有学生考查不现实, 所以, 每次实验随机抽查1/3左右的学生, 考查其实验情况。这样有效地解决了实验课懒散、应付、抄袭的情况, 促进学生主动思考, 知其然知其所以然, 使学生思维能力得到提高, 思维习惯得以养成, 这对医药类学生相当重要。

3.4 注重鼓励学生提出问题, 以培养医药类学生 勇于解决新问题的创新精神

我们在实验过程中发现, 有不少学生一直不提任何问题。其实, 没有问题才是真正的问题, 它会影响实验教学的效果。一方面, 教师不能很好地了解学生掌握情况以及教学指导情况;另一方面, 学生不能得到应有的帮助, 影响了学习效果。不提问题有多种情况:学生有问题, 不善于提出来;学生学习积极性不高, 没有主动思考, 提不出问题;担心提的问题简单幼稚。

在实验指导过程中, 教师应该主动鼓励学生提出问题, 即使问题非常简单, 也不要取笑学生, 解答时要有耐心, 切忌表现得不耐烦;对于能提出较好问题的学生及时予以表扬甚至给平时成绩加分;在实验过程中, 主动观察学生实验情况, 主动与学生交流, 不要仅仅被动等待学生举手提问。这样有助于形成良好的互动氛围以及积极主动的学习热情, 激发学生深入地探讨问题, 从而培养医药类学生敢于挑战难题的创新思维及精神。

3.5 注重养成良好的编程习惯, 以培养缜密的思 维素养和严谨的工作作风

心理学家威廉·詹姆士曾说, 播下一个行动, 将收获一种习惯, 播下一种习惯, 将收获一种性格, 播下一种性格, 将收获一种命运。在VB实验教学中, 我们应让学生意识到规范编程的重要性, 不能因为暂时不出现问题或者看不到问题, 就认为一直不会出现问题。例如:在刚开始的几次实验中, 如果学生没有养成变量使用前先定义变量的习惯, 在以后的实验中, 往往出现问题而且不容易纠正;对于变量的命名, 过于随意。这些不好的习惯一旦养成, 将为深层次的问题埋下隐患。因此, 实验指导教师应不失时机地利用VB程序设计特点, 引导学生规范编程, 强调其重要性, 使其在实验过程中养成缜密的思维素养和严谨的作风, 这对医药类学生将来的学习、工作都会大有裨益。

3.6 注重加强对实验指导教师的培训与考核, 以 增强其责任感, 传递“爱岗敬业”的职业精神和素养

针对非计算机专业VB实验教学不够重视所带来的一系列问题, 我们加强对实验指导教师的岗前培训、岗中督查和岗后考核。所有实验指导教师在第一次上VB实验课前都要经过系统培训, 培训内容除要求教师规范上课外, 更重要的是增强实验指导教师的责任感, 加深对实验课重要性的认识以及对教学重点的深刻把握。实验指导教师在实验过程中, 要始终把握教书的同时重在育人这一核心要旨。VB实验课对于医药类学生而言, 除了学会必要的计算机基本操作和简单的编程知识外, 还要在实验指导教师爱岗敬业, 干一行爱一行的示范作用下, 认真对待自己所做的事情, 从而培养求真务实、踏实肯干的职业素养。

4 结束语

“教学有法, 教无定法, 贵在得法。”只有在教学过程中, 不断探索与实践才能找到适合有效的教学方法和思路。但不管采用何种教学方法和学习策略, 教师的责任心、爱心和对教学持久而稳定的热情是必不可少的, 学生的学习兴趣、学习品质、学习能力以及良好而稳定的人格培养和形成应该成为教学的核心。在这一核心观念的指导下, 我们积极探讨医药类学生VB实验教学, 以期进一步探讨非计算机专业VB实验教学方法及思路, 充分发挥VB实验教学在人才培养中的作用。

参考文献

[1]辛萍, 张建威.医学生学习《VB程序设计》存在的问题及其对策[J].实验室科学, 2008 (3) :50-51.

[2]杨飞, 倪飞舟.医学院校《VB程序设计》课程教学方法研究[J].电脑知识与技术, 2009, 5 (13) :3450-3451.

[3]王峰, 苏亚菲.“VB程序设计”课程教学实践与探索[J].电脑知识与技术, 2013, 9 (1) :113-115.

[4]汤兰芳.《VB程序设计》学习兴趣培养探索[J].电脑知识与技术, 2009, 5 (19) :5331-5332.

[5]王峰, 苏亚菲.“VB程序设计”课程教学实践与探索[J].电脑知识与技术, 2013, 9 (1) :113-115.

vb程序设计实验答案 第4篇

[关键词]虚拟实验 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程序设计练习题附加答案 第5篇

三、简答题

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、数学式(2xa)(3yb)对应的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、颜色函数主要有哪些？

四、编程题

vb程序设计实验答案 第6篇

1、打开“考生文件夹781”中的文件“test4.vbp”，完善Command1_Click事件代码并保存。

实现功能：回文字符串是指一个字符串从左往右读与从右往左读是一样的，如“ABCBA”，“123321”等等。输入一个字符串，若是回文字符串，则输出“Yes”，否则输出“No”。使用文本框Text1输入字符串，使用文本框Text2输出结果。

Private Sub Command1_Click()Dim s As String Dim ok As String Dim i As Integer s = Text1.Text ok = “Yes” For i = 1 To ①

If Mid(s, i, 1)<> ② Then ok = “No” Next i ③ End Sub ①len(s)2 ②Mid(s, len(s)+1-i, 1)③text2.text=ok

2、打开文件“考生文件夹606工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：当单击“计算1+2+3+…+100”按钮后，文本框Text1显示1+2+3+…+100的值。

Private Sub Command1_Click()Dim s As Integer Dim i As Integer s = ①

For i = 1 To ② s = ③ Next i Text1.Text = Str(④)End Sub ①0 ②100 ③s+i ④s

3、打开“考生文件夹779test2.vbp”，完善Command1_Click事件代码并保存。

实现功能：输入一个正整数，计算并输出它的各位数字之和。如输入123，则输出6。使用文本框Text1输入正整数，使用文本框Text2输出计算结果。

Private Sub Command1_Click()Dim x As Integer Dim s As Integer x = Val(Text1.Text)① Do s = s + ② x = x 10 Loop Until x = 0 ③ End Sub ①s=0 ②x mod 10 ③text2.text=str(s)

4、打开文件“考生文件夹607工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：当单击“显示”按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中，然后在窗体上显示这10个数及其平均值。(注：学生运算结果有可能跟样图中数值不一致)

Private Sub Command1_Click()Dim a(9)As Integer Dim s As Single Dim i As Integer Me.Cls s = 0 Randomize For i = 0 To ① a(i)= Int(Rnd * 100)Print a(i)Next i For i = 0 To 9 s = ②

③

Print “这10个自然数的平均值=”;s / 10 End Sub ①9

②s+a(i)③next i

5、打开文件“考生文件夹609工程1.vbp”，完善Form_Click事件代码并保存。

实现功能：单击窗体时在窗体上打印下面所示的图案。

**** *** ** *

Private Sub Form_Click()Dim i As Integer Dim j As Integer For i = ① To 1 Step-1 For j = 1 To i ② Next j Print ③ End Sub ①4

②print “*”;③next i

6、打开文件“考生文件夹610工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：当单击“显示”按钮后，在窗体上显示下面的图形：

@ @@ @@@ @@@@ @@@@@ @@@@@@

Private Sub Command1_Click()Dim i As Integer Dim j As Integer For i = 1 To 6 For j = 1 To ① Print ② Next ③ Print Next i End Sub ①i