vb程序设计实验心得
vb程序设计实验心得一：数据库VB课程设计心得体会
数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。
首先，让我的记忆追溯到大二暑假，在老大的指引下 ，我接触到Microsoft 公司的.NET产品。那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var 看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.网络是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sql serverXX，以前学asp的时候用的是access，那个时候只是照着人家做，理论是什么也不是很清楚。
通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么用也不是很清楚。但是这为这学期的课程设计打下了铺垫。
来到学校后，随着这学期的数据库课程大赛开始了，我有一个看法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，just do it！我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseUML建模工具。在此之前，我脑袋里面没有软件建模的思想，什么UML建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的powerdesigner也是一样。
开发的时候我想过用什么架构，c/s模式？模式有很多，怎么选择？我就上网搜索现在最流行的架构是什么。结果搜到了MVC架构，就是你啦。我决定用这个架构，不会，没关系，咱学。Just do it！前期工作准备好后，那么我就得把我暑假学的.网络加以实践。这个时候我更加深入的了解了利用ado.Net操纵数据库的知识。并且对数据库里面的存储过程有了比较深入的了解。经过大概2个多星期的奋斗，我完成了我的数据库课程设计--基于.网络数据集的图书馆管理系统。并最后非常荣幸的获得了大赛的一等奖以及以及新技术应用奖。
与其临渊羡鱼，不如退而结网。这次数据库课程设计给我的最大的印象就是如果自己有了兴趣，就动手去做，困难在你的勇气和毅力下是抬不了头的。从做这个数据库开始无论遇到什么困难，我都没有一丝的放弃的念头。出于对知识的渴望，出于对新技术的好奇，出于对一切未知的求知。我完成了这次数据库课程设计，不过这只是我学习路上的驿站，未来十年.NET的核心技术就是XML[至少微软是这么宣传的]，我会继续学习它，包括jave公司的j2ee我也很想试试，语言本来就是相通的，just do it！语言并不重要毕竟它仅仅是工具，用好一个工具并不是一件值得为外人道的事情，主要是了解学习思想。古语说的好：学无止境啊！
我很庆幸我参加了这次数据库大赛，让我确实打开了眼界。
（最后，很感激学校给了我们这次动手实践的机会，让我们学生有了一个共同学习，增长见识，开拓视野的机会。也感谢老师们对我们无私忘我的指导，我会以这次课程设计大赛作为对自己的激励，继续学习。毕竟学习就是一个just do it的过程！）我直接从报告上面复制过来的.....所以这段也不删去了.............呵呵。
题目大概是用可视化编程实现一个简单的数据库管理系统我用的是BCB 题目虽然是简单 但也明白了很多以前以为懂的问题代码到没什么 这种题目用BCB的话已经不用几行代码了关键是了解了这些名词Paradox，ADO，BDE，ODBC 一开始拖控件,写几行代码 很快就完成了编译也通过了 但传到同学机器上就是显示不出数据来折腾了我1天 又是发帖子 又是问群里的达人后来明白了我用的Paradox数据库是用BDE引擎的发布软件的时候要把BDE打包于是又学着打包BDE 却发现不到1m的软件如果打包BDE的话就10＋m了而且BCB6自带的那个打包软件用的我头晕目眩于是又想不用BDE 所以又折腾了我半天答案是要使用ADO控件（ 以前我用的是BDE控件 ）而且要用Access数据库了解了这些之后 作业也就完成了总的看来还是很有收获的 幸亏我下了决心这个作业要自己做没有去网上下载 呵呵
>vb程序设计实验心得二：vb课设心得体会>>（1581字）
VB.NET课程是计算机科学与技术本科专业的专业骨干课。本课程主要通过VB.NET论述了面向对象程序设计和组建编程的机理，涉及到控制台界面程序、Windows窗体程序、图形界面编程、数据库、网络应用系统等多方面的内容。内容量大，程序设计复杂、同时VB.NET程序调试是在VS.NET环境下进行，在编程过程中环境会自动为用户生成一些必要代码，以降低编程难度，降低学生的编程负担，但这也带来了一些问题，如：学生对VB.ENT的程序结构把握和了解不全面，对编程机理了解不透彻，学生容易盲目照搬书上代码，不求甚解，似是而非。为了解决这个问题，我们采取了课程设计的方法来加深学生对知识的理解，将书本知识迁移到新的问题解决中，提高学生分析问题和解决问题的能力。
要求学生在学习该课程中，应用每个相对独立的、完整的单元知识解决一个实际项目，设计编写一个小作品;学完整个课程后，完成一个综合性比较强的编程项目，使学生对整个课程内容进行全面的总结、梳理，以项目完成为手段，全面锻炼学生分析问题和解决问题的能力。
一.目的
1.为使学生掌握VB.NET编程、面向对象程序设计思想和组建编程的知识实际技能，除了系统地讲授必要的VB.NET知识，上机练习，做作业外，还应该对学生作较全面的编程技能和分析问题解决问题的能力训练，即作课程设计，以达到如下目的：具体应用和巩固本课程及有关先修课的基础理论和专业知识，了解面向对象程序设计思想，掌握应用VB.NET编程和组建编程程序设计方法，培养学生初步的项目设计能力。
2.独立地根据一定的项目要求，查阅资料，写出项目开发目标，分析开发过程中所用到的课程知识，提出解决方案，编码并上机调试完成系统，培养学生分析问题和解决问题的能力。课程设计是教学过程中的一个重要环节，必须认真对待。
二.要求
在课程设计中要求学生注意培养认真负责，踏实细致的工作作风和保质保量，按时完成任务的习惯。在设计过程中必须做到：
1.在某个教学单元结束后，完成一个教师布置的、或学生自己拟定的、知识覆盖整个章节的，有一定综合性和难度的项目，要求学生描述出要达到的目标、围绕目标，收集资料和素材，复习所需的课程知识，描述问题解决方案、编写程序上机调试，直到项目的完成。最后的成果要有完成的作品和相应的文档。
2.在课程结束后，完成一个大的编程项目，其要求与课程单元的项目差不多，只是综合性更强、难度更大、知识覆盖面更广，工作量更大，以全面促进学生复习和梳理学科教学内容，提升学生分析问题、解决问题和文档的书写和编制。
三、采取的措施
为了保证课程设计能够按照预定的目标和计划进行，我们还采取了以下措施来加强对学生监督和管理。
1.首先讲清楚课程设计的意义，让学生能够自觉积极主动地进行课程设计，发挥学生的主观能动性;
2.在课程设计过程中，教师随时巡视和监督，了解把握和控制课程设计的进展;
3.将学生的作品集中展示、评价、打分，可以让学生在展示的过程中获得成就感、自豪感，学生之间可以相互学习、取长补短，同时在此过程中可以明确标准，自觉地按照标准来调整自己地学习;
4.将课程设计作为学期成绩的一部分记载，大约占10%，必须完成课程设计后才能参加考试，课程设计不过关，即使考得再好，也不能过。
四、取得的效果
通过以上措施，学生全部都完成了自己的项目、将所有的作品通过超链接网页的方式集成在一个作品集中，所有的学生都完成了4～6个小作品，每个作品都反映了学生应用课程的某部分知识解决某个问题的结果，通过完成这些作品，学生巩固、加深了对相关知识的理解，加强了知识之间的联系，促进了知识的迁移和应用。同时学生看到凝聚着自己的心血、汗水、思维和创新的作品，就像一个母亲看到自己呱呱坠地孩子那样充满了喜悦，激发了学生的创造欲望。通过同学之间作品的对比，提供了一个相互学习交流的平台，激发了学生的竞争意识。总之通过课程设计受到了良好的多方面的效果，从考试成绩来看，2004级本科全部都及格了。
>vb程序设计实验心得三：vb课设心得体会>>（598字）
我们组这次设计的程序是考勤管理系统，主要用于企事业单位的考勤，便于统计员工的出勤情况。
1.通过这一次的程序设计，使我能够进一步掌握用程序设计语言解决实际问题的方法，在操作当中把所学到的用于实际的编程里面去。
2.通过这一次的程序设计，使我能够提高分析问题、查阅资料、吸收新知识的能力，在分析解决问题时比以前有了很大的进步，一些常用的知识和一些常规的错误都能够解决。
3.通过这一次的程序设计和指导教师姜瑶老师的指导使我能够进一步对VB有了熟练的操作，并且在分析，编程方面比以前有了更大的提高。
4.我认为实践周的程序设计是给我们学习的一个大好机会，使我们在这样的机会里学到了一定的知识，毕竟理论要通过实践来锻炼，也只有自己参与了这样的一个锻炼，才能更好的发现自己的不足并加以改进和完善!
在这次的设计过程中，我学到的不仅是知识，我还认识到许多事情。这次设计使我的编程水平提高了一大步，使我充分的认识到合作的可贵。由于这次设计涉及到数据库，我也学到了不少数据库连接的知识，对数据库的操作有了进一步的了解。这次设计对我的综合能力是一次很好的锻炼，但是我必须承认自己的能力和知识还很肤浅。所以今后我的学习道路还是很漫长的。最后，在这里我要衷心的感谢我们的指导老师谢谢她的耐心指导和热心帮助。由于我水平有限，加之时间短暂，故学习数据库系统中还有许多不足之处，请老师批评指正，我会在以后的制作中不断改进，不断完善。
>vb程序设计实验心得四：vb实训心得>>（1108字）
为期两周的实训即将结束，通过这次的实训使我们学到了很多，同时也让我们意识到我们要学的更多。本次实训的项目是 雏鹰 学生成绩管理系统，以小组的形式进行分工合作，我组共9个人，任务是用户模块的程序设计。从程序的需求分析、可行性分析、设计到编写、调试、修改、完善、到最后的实训报告，每个人都付出了时间和精力去做好自己的任务并努力地去完善它。
实训的第一天接到任务时我们都觉得有点难度，很有挑战性，毕竟学生成绩管理系统是一个比较系统、完善、功能相对较齐全的管理系统，即使是用户模块也可以完成各种操作，如对用户的查询、添加.删除以及修改等。因此程序编写也十分复杂，工作量较大，编写一定要认真。一个小小的失误都可能使程序出现大的漏洞。而我们只是学了点简单的vb程序编写，没有尝试过这种相对来说比较系统完善的系统。所以在做项目的时候我们倍感压力、更加的团结协作，可即使如此我们还是出现了错误，我们的程序在编写上存在一些漏洞，导致调试时不能正常运行，后经过老师的指导、我们的调整，终于可以完美的运行，这里也耽误了我们很多宝贵的时间，直接导致了我们在项目调试上速度不够快。
本人很荣幸地担任组长一职，和另一位组长一起进行本小组成员的任务分配以及协调等。我组要做的用户模块分为用户管理和修改密码两块内容。用户管理中又包括用户的查询、添加、修改以及删除功能，它是只有具有管理员权限的情况下才能进入操作、而普通用户就只能修改自己的登录密码。在实训过程中我们也认识了一些新的老师，他们
对我们亲切认真负责，很有耐心地对我们进行讲解并指导我们解决遇到的难题。老师们交会了我们很多简单实用的技巧。也让我们意识到了要想全面完整地完成一个模块，首先要进行程序的设计，全面分析会用到的东西以及考虑可能会出现的情况，理清思绪、写出大致的要点后再上机编写程序以及操作。否则像一开始的我们马上上机编写、想到什么就补什么，不仅浪费时间也乱了之前写好的一些程序。系统分析越准确，设计的系统越精确，可以大大减少后期的修改、维护工作。当然做好做对一个项目固然重要，同时美观程度也是必不可少的，无论是从参观者的角度还是自己看的角度都很重要。
总的来说，这次实训还是比较成功的。最后出来的系统，大家都很有成就感，这是我们一步步设计、一步步完善、辛苦付出后得到的成果。小组合作、帮助队友，无论是团队合作这方面还是个人动手这方面，我们都得到了很好的锻炼。当然实训不仅使我们学到了知识，也帮助我们缩小了实践和理论的差距，通过这次实训让我们更深一步的对vb这门课程的知识有更进一步的渴望，同时对自己的专业，对自己的能力，对自己所学的有正确的认识，并且能在以后的学习工作中不断提高和完善自己。
第二篇：VB程序设计教程(第3版)课后实验答案
习题二
1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。
类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。
VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。 VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。
对象的三要素：属性、事件和方法。 属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。
事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。 事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。
方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。
2.窗体和控件具有的基本属性“
(1) Name属性：名称
所创建的对象名称,在程序中引用。
(2) Caption属性：标题
该属性决定了对象上显示的内容。
(3) Height、Width、Top和Left属性 决定对象的大小和位置。 (4) Enabled 属性：对象是否允许操作
(5) Visible 属性：对象是否可见 (6) Font 属性组：文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体
FontStrikethru 删除线 FontUnderline 下划线 (7) ForeColor属性：前景颜色 (8) BackColor属性：背景颜色 (9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定 。若为99，由用户提供的图形文件定义鼠标指针形状。
(10) MouseIcon属性：在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico或.cur）。图标库在Graphics目录下。
3.窗体的事件：Load事件是在窗体被装入工作区时触发的事件。当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。
窗体的方法:（1）Print方法 用来显示文本内容，格式：[对象.]print 表达式
（2）Cls方法
清除运行时在窗体或图形框中产生的文本或图形, Cls方法不能清除窗体在设计时的文本和图形。
格式：[对象.]cls （3）Move方法
可移动窗体或控件，并可改变其大小。 语法格式如下：
[对象.]Move 左边距离[,上边距离[,宽度[,高度]]]
4.标签作用：用于显示文本(输出)信息，不能作为输入信息的界面。其内容只能通过Caption属性设置或修改，不能直接编辑。
5.文本框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。在VB中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为1。 重要属性(1) Text 显示或输入的正文内容。
(2) Maxlength 设置文本框可输入的文字最大长度。默认值为0，表示可以输入任意长字符串。
(3) MultiLine 多行属性 设置为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，按Enter键可插入一空行。
(4) ScrollBars 滚动条属性 0-None 无滚动条 1-Horizontal 水平滚动条 2-Vertical 垂直滚动条 3-Both 同时加水平和垂直滚动条
注意：当MultiLine为True时，ScrollBars才有效
(5) PassWordChar 设置显示文本的替代符。例如，当设置为“*”，则在文本
框输入的内容均以“*”显示，而存储的值是用户输入的原文。一般用于设置口令的输入。
当MultiLine为True时，该属性不起作用，密码不允许多行。
(6) Locked 指定文本控件是否可被编辑，默认值为False(可编辑)，当设置为True时，文本控件相当于标签控件的作用。
注意：Locked与Enabled的区别。 (7)文本内容进行选择操作的三个属性
SelStart 选定的正文开始位
置
SelLength 选定的正文长度 SelText
选定的正文内容
这3个属性互相关联,例如设置SelStart、SelLength后，SelText 自动存放指定的文本。
注意：属性窗口中没有这三个属性，只能在程序代码中使用。
6.文本框的事件：(1) Change事件：当Text属性值发生改变时引发该事件 (2) KeyPress事件：按下并且释放键盘上的一个键时，引发焦点所在控件的KeyPress事件，所按键的值存放在参数KeyAscii中。对回车的判断 KeyAscii=13 7.文本框最有用的方法是SetFocus，把光标移到指定的文本框中。
8.命令按钮 Picture属性：按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。
10. 启动窗体时将命令按钮定位在窗体中央的代码
Private Sub Form_Load()
Command1.Left = Form1.ScaleWidth / 2 - Command1.Width / 2
Command1.Top = Form1.ScaleHeight / 2 - Command1.Height / 2 End Sub
11．vb图片文件在 C:\Program Files\Microsoft Visual Studio\Common\Graphics 文件夹。 安装VB时可选择是否安装这些图片文件。 习题三
1. 合法常量： (1) Double (2) 错误 (3) Double (4) Double (5) 错误 (6) Integer (7) String (8) String (9) Date (10) Double
(11) 错误（汉字字符） (12)Integer(八进制) (13) 错误（八进制无数码8） (14) Integer (15) Boolean (16) 错误
(17) 错误（十六进制无数码g） (18) Single
说明：浮点型变量默认为Double类
型而非Single。 2. 合法变量名： (1) √
(2) √
(3) 误：数字开头 (4) 误：含空格 (5) 误：关键字 (6) √ (7) 误：关键字 (8) 误：有括号 (9) √ (10) √ (11) √
(12) √（汉字字符可作为变量名，但不常用，且此名称易误解） 变量命名规则见P.41-42。
字母（汉字）开头，字母（汉字）、数字、下划线组成，长度为1-255个字符；关键字不可作为变量名，但可在变量名中嵌入关键字；不区分大小写。
常量、数组、类型、函数、过程、对象命名规则与此相同。常量名通常全用大写。
3. 写VB表达式 (1) Abs(x + y) + z ^ 5 (2) (1 + x * y) ^ 6
(3) (10 * x + Sqr(3 * y)) / (x * y) (4) (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
(5) 1 / (1 / r1 + 1 / r2 + 1 / r3) (6) Sin(45 * 3.14159 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1)
4. 根据条件写表达式
(1) 随机产生大写字母 Chr(Int(Rnd * (Asc("L") - Asc("C") + 1) + Asc("C")))
(2) [100,200]内的随机数 Int(Rnd * 101) + 100
(3) 点(x,y)位于第一或第三象限 x > 0 And y > 0 Or x < 0 And y < 0 或 x * y > 0
(4) x是5或7的整数倍 x Mod 5 = 0 Or Int(x / 7) = x / 7
(5) 将两位整数x的个位与十位对换 x \ 10 + (x Mod 10) * 10
(6) 四舍五入取两位小数 Round(x, 2)
(7) 字符变量C是字母字符（不区分大小写）——准确地说是：字符变量C的第一个字符是字母
C >= "A" And C <= "Z" Or C >= "a" And C < "z"
或 UCase(C) >= "A" And UCase(C) <= "Z"
或 LCase(C) >= "a" And LCase(C) <= "z"
(8) 字符变量S第5个字符起取6个字符 Mid(S, 5, 6)
(9) 10≤x＜20 10 <= x And x < 20
(10) x，y至少有一个小于z
x < z Or y < z
(11)x，y都大于z x > z And
y > z
5. 写表达式的值
(1) 188 ——注意运算的优先级
顺序，以及整除运算“\”的计算
(2) 200100 —— 计算100 + "100"时，由于两个操作数类型不同，在可能的情况下自动采用精度较高的类型，即把字符型转换为数值型，100 +100 得到200；然后进行字符串连接运算200 & 100 ，再自动将两个数值转换为字符串，得200100。 (3) 68.56 ——在四舍五入函数产生之前，这就是四舍五入的计算方法 (4) 876554 ——先进行字符串的“+”运算，再转换成数值。在变量名和函数名后可加上类型符，以强调其类型，但不是必须的。
(5) 2000-2-29 (6) 6
6．Shell函数调用
i = Shell("mspaint.exe", 1) '启动画图
i = Shell("C:\Program Files\Microsoft
Office\OFFICE11\winword.exe", 1) '启动Word
说明：“画图”是Windows本身提供的程序，可以省略路径。
8. 答：单精度浮点型 第7，9题答案在教材中找。 习题四
第1，3，5，8题答案在教材中找。
2. 赋值语句的错误
（1）10x 不能做变量名。
上机验证结果：VB将10识别为行号，x =
Sin(x) + y是为变量x赋值。故无语法错误。
（2）Sqr函数的参数为负数。
上机验证结果：“无效的过程调用或参数”
（3）赋值号左边不是变量名。
上机验证结果：“缺少子程序、函数或属性”
（4）除数为0
上机验证结果：“溢出”。 4. [答案略]
说明：小数位可以使用四舍五入函数Round或输出格式函数Format。例如Round(x, 2)和Format(x, “0.00”)均可使结果只保留两位小数。但如果四舍五入后要进行数值运算，则使用Round函数，例如z=Round(x,2)+Round(y,2)。而Format函数通常只用于输出格式设置。 6．指出错误
（1）“≥”应改为“>=”，前者是中文字符，不具有运算功能。
（2）“10<x<20”应改为“10<x And x<20”，否则运行结果错误。 7．写条件语句 （1）
Dim c As String c = InputBox("c=") If Mid(c, 3, 1) = "C" Then MsgBox "Yes" Else
MsgBox "No" End If （2）
# 使用If语句
Dim x As Single, y As Single x = Val(InputBox("x=")) If x > 20 Then
y = x ^ 2 + 3 * x + 2 ElseIf x >= 10 Then
y = Sqr(3 * x) - 2 ElseIf x > 0 Then y = 1 / x + Abs(x) End If Print "y="; y
# 使用Select Case语句 Dim x As Single, y As Single x = Val(InputBox("x=")) Select Case x Case Is > 20
y = x ^ 2 + 3 * x + 2 Case Is >= 10
y = Sqr(3 * x) - 2 Case Is > 0
y = 1 / x + Abs(x) End Select Print "y="; y （3） # 使用If语句
Dim x As Single, y As Single, z As Single, Max As Single
x = Val(InputBox("x=")) y = Val(InputBox("y=")) z = Val(InputBox("z=")) Max = x
If y > Max Then Max = y If z > Max Then Max = z Print "Max="; Max # 使用IIF函数
x = Val(InputBox("x="))
y = Val(InputBox("y=")) z = Val(InputBox("z=")) Max = IIf(x > y, x, y) Max = IIf(z > Max, z, Max) Print "Max="; Max 9. 计算循环次数 （1） 6 （2）19 （3）0
（4）死循环直至溢出
10. 40号语句执行 4次；第50 号语句执行12次；
执行第90号语句输出的结果是：13，0，2
说明：该程序为嵌套循环，其中外循环由j值变化（1，4，7，10）控制执行4次，当j值为13时结束循环；内循环由k值变化（6，4，2）控制执行3次，当k值为0时结束循环。第40 行是外循环的循环体，故执行4次；第50 行是内循环的循环体，故执行4*3=12次。
11. 可以定一个较大的循环次数，在循环体中根据条件用Exit For退出。
但这种情况通常用Do While循环控制。12. 编程（并非唯一正确答案） （1）
Dim i As Integer, s As Integer For i = 1 To 10
s = s + (i + 1) * (2 * i + 1) Next i Print "s="; s （2）
Dim i As Integer, n3 As Integer, n7 As Integer
For i = 1 To 100
If i Mod 3 = 0 Then n3 = n3 +
1
If Int(i / 7) = i / 7 Then n7 = n7 + 1
Next i
Print "1-100中3的倍数有"; n3; "
个" Print "1-100中7的倍数有"; n7; "
个" （3）
Dim s1 As String, s2 As String, i As Integer
s1 = InputBox("Input String") s2 = ""
For i = 1 To Len(s1) s2 = Mid(s1, i, 1) + s2 Next i
Print "原序："; s1 Print "反序："; s2 或
For i = Len(s1) To 1 Step -1 s2 = s2 + Mid(s1, i, 1) Next i
13. 输出字符串“10100”。该程序功能是将十进制数转化为二进制。
说明：要理解该程序需要了解数制转换的计算方法（有兴趣者参看百度百科/view/1426817.htm）。48是字符"0"的ASCII码。 14. 运行时输出 22 484
该程序功能是求x和y最大公约数和最小公倍数。
说明：此算法称为“辗转相减法”。可对照例4.17的辗转相除（辗转求余）法。 15．[50，100]间的20个随机数，求最大值、最小值、平均值。
Dim x As Integer, sum As Integer, aver As Single
Dim n%, i%, max%, min% Randomize
max = 50: min = 100: n = 20 For i = 1 To n
x = Int(Rnd * 51 + 50) List1.AddItem x sum = sum + x
If x > max Then max = x If x < min Then min = x Next i aver = sum / n
Print "最大值："; max, "最小值："; min, "平均值："; aver
习题五
1. 指定数组的默认下界 Option Base 1
2．合理的数组声明
（1）错。定义数组不可用变量（教材99页）。
（2）正确。该数组下标为0-11。 （3）错。VB中数组下标用圆括号。 （4）正确。三维数组三个下标分别为0-1，0-1，0-2，共12个元素。
（5）错误。非动态数组，不可重定义。
（6）错误。动态数组重定义时不可改
变数据类型。
（7）正确。二维数组两个下标分别为0-2，0-3，共12个元素。
（8）语法错误，二维数组定义中漏写逗号——可能是印刷错误，加上此逗号则正确。
3．当引用数组元素时下标值小于定义的最小下标，或大于最大下标时，会发生“下标越界”错误。
4．数组名：a ；数组类型：Single（单精度浮点型）；维数：二维；
各维的上下界：第一维下界（最小下标）为 -1，上界（最大下标）为2， 第二维下界（最小下标）为 0，上界（最大下标）为3；
数组的大小：4行4列共16个元素 以矩阵的格式输出二维数组： For i = -1 To 2 For j = 0 To 3 Print a(i, j); Next j Print Next i
或写成更加通用的代码形式： For i = LBound(a, 1) To UBound(a, 1)
For j = LBound(a, 2) To UBound(a, 2)
Print Tab(j * 8); a(i, j); Next j Print Next i
6．一维字符数组
Dim a(1 To 20) As String Private Sub Dim i As Integer, imax As Integer
imax = 1 Command1_Click()
'(1)随机产生字符串
Dim i As Integer, j As Integer, n As Integer, c As String * 1
Randomize For i = 1 To 20
a(i) = "" '将第i个元素清空
n = Int(Rnd * 10 + 1) '产生[1,10]的随机数 For j =
1
To
n
'a(i)中有n个字符
c = Chr(Int(Rnd * 26 +
97)) '随机产生字母97是字母a的ASCII码
a(i) = a(i) + c Next j Next i End Sub
Private Sub Command2_Click()
'(2)输出字符串
Dim i As Integer For i = 1 To 20
Print Tab(((i - 1) Mod 5) * 11); a(i);
If i Mod 5 = 0 Then Print Next i End Sub Private Sub Command3_Click() '(3)最长的字符串
For i = 2 To 20
If Len(a(i)) > Len(a(imax)) Then
imax = i End If Next i
Print "最长的字符串："; a(imax)
End Sub
第7，8题答案在教材中找。
第9题“自定义变量”含义不明，暂时无法回答。
第5，10 题 [暂略] 习题六
第1，2，6-8题答案可在教材中找到。 3．指出过程说明中的错误 （1）Sub子过程不应该定义类型 （2）函数与形式参数不应该同名
（3）数组作为形式参数时，应使用传地址方式，不可使用传值（ByVal） （4）形式参数应该是变量或数组名，不可以是一个数组元素
4．指出调用过程语句的错误 （1）无语法错误，但因形参sum所对应的实参是常量3，故计算结果无法传递给主调程序。
（2）实参变量c与形参sum的类型不一致。
（3）类似于（1），形参sum所对应
的实参是表达式a+b，故计算结果无法传递给主调程序。
（4）类似于（1）和（2），形参sum所对应的实参是表达式Sqr(c)，故计算结果无法传递给主调程序。另外srq(a)存在语法错误（拼写错）。
（5）与（2）相同，实参c与形参sum的类型不一致。
5．迭代法求平方根
（1）自定义函数的定义及调用 Function FSqr1(a As Single) As Single
Dim x0 As Single, x As Single x = a Do x0 = x
x = (x0 + a / x0) / 2 Loop While Abs(x - x0) > 0.00001
FSqr1 = x End Function
Private Sub Command1_Click() Dim x!, y!
x = Val(InputBox("x=")) If x >= 0 Then y = FSqr1(x) Print y End If End Sub
（2）自定义子过程的定义及调用 Sub FSqr2(a As Single, x As Single) Dim x0 As Single x = a
Do x0 = x
x = (x0 + a / x0) / 2 Loop While Abs(x - x0) > 0.00001
End Sub
Private Sub Command2_Click() Dim x!, y!
x = Val(InputBox("x=")) If x >= 0 Then Call FSqr2(x, y) Print y End If End Sub
（3）递归函数及调用 [略] 习题七
第1-9题，答案在教材上找；第10，12-14题，略。
11．检测Ctrl和F3同时按下的代码： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 114 Then MsgBox "HAHA" End Sub 习题八
第1，2，6，7，9题答案可阅读教材找到。 3．写Open语句
（1） Open "Seqnew.dat" For Output As #1 '重写
或 Open "Seqnew.dat" For Append As #1 '添加
（2）Open "Seqold.dat" For Input As #2
（3）Open "Seqappend.dat" For Append As FreeFile
4．编程，将文件Text.dat 读入变量strTest。
Dim strTest As String Open "Text.dat" For Input As #2 Do While Not EOF(2)
strTest = strTest + Input(1, #2)
Loop
8．本课程不涉及二进制文件。故此处以顺序文件读写方式编程。另外合并的结果可以是合并到其中某一个文件，也可以是合并到一个新的文件，此处代码是合并到其中一个文件F1.txt。
'方法一，在2号文件一次读一个字符并写入1号文件
Dim strTemp As String * 1 Open "d:\F1.txt" For Append As
#1
Open "d:\F2.txt" For Input As #2 Do While Not EOF(2)
strTemp = Input(1, #2) Print #1, strTemp;
'注意结尾有分号，否则每个字符一行
Loop Close
'方法二，在2号文件一次读一个字符并累加，最后将累加结果写入1号文件 Dim strTemp As String '注意方法一变量定义的区别
Open "d:\F1.txt" For Append As
#1
Open "d:\F2.txt" For Input As #2
strTemp = "" Do While Not EOF(2)
strTemp = strTemp + Input(1, #2)
Loop
Print #1, strTemp Close
A．1
Private Sub Command1_Click() Label3 = Text1 End Sub
A．2
Private Sub Form_Load() Timer1.Interval = 0
End Sub
Private Sub Command1_Click() '自动
Timer1.Interval = 200
End Sub
Private Sub Command2_Click() '手动 Timer1.Interval = 0
Call MyMove
End Sub
Private Sub Timer1_Timer()
Call MyMove
End Sub
Sub MyMove()
Label1.Move Label1.Left - 50
If Label1.Left < 0 Then Label1.Left = Form1.Width
End Sub A．3
Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub
Private Sub Form_Load() Text1 = 0 End Sub
A．4
Private Sub Form_Click()
Caption = "单击窗体，改变图片"
Picture = LoadPicture(App.Path + "\n_015.bmp")
Print "欢迎使用VB" End Sub
Private Sub Form_DblClick() Cls
Caption = "双击窗体，卸去图片" Picture = LoadPicture("") ' End Sub
Private Sub Form_Load() Caption = "装入窗体"
Picture = LoadPicture(App.Path + "\n_016.bmp") Print "装入图" End Sub
Private Sub Form_Resize() ' 该事件的作用窗体始终与图一样大 'Caption = "窗体大小不变"
'Form1.Width = 260 * 16 ' 260是Tongji-2.bmp图的宽度，象素单位
'Form1.Height = 260 * 16 + 200 ' 260是图的高度，象素单位，200是窗体的标题栏高度 End Sub
A．5
Sub Command1_Click()
Text1.FontName = "隶书" Text1.FontSize = 25 End Sub
Sub Command2_Click()
Text2.Text = Text1.SelText
Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub
B．1
Private Sub Command1_Click()
Text2 = Format(5 / 9 * (Val(Text1) - 32), "0.00") End Sub
Private Sub Command2_Click()
Text1 = Format(9 / 5 * Val(Text2) + 32, "0.00") End Sub 或
Private Sub Command1_Click()
Dim f!, c! ' 声明两个变量
f = Val(Text1) c = 5 / 9 * (f - 32)
Text2 = Format(c, "0.00") ' 保留两位小数
End Sub
Private Sub Command2_Click()
Dim ff!, cc! ' 声明两个变量
cc = Val(Text2) ff = 9 / 5 * cc + 32
Text1 = Format(ff, "0.00") ' 保留两位小数 End Sub
B．2
Private Sub Command1_Click()
Label2 = Format(Val(Text1) * Val(Text1) * 3.14, "0.00") End Sub
Private Sub Command2_Click()
Label3 = Format(Val(Text1) * 3.14 * 2, "0.00") End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then
MsgBox "输入有非数字字符，请重新输入", , "警告"
Text1.Text = "" Text1.SetFocus End If End Sub 或
Private Sub Command1_Click()
Label2 = Format(Val(Text1) * Val(Text1) * 3.14, "0.00") End Sub
Private Sub Command2_Click()
Label3 = Format(Val(Text1) * 3.14 * 2, "0.00") End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Not IsNumeric(Text1.Text) Then Text1.Text = "" End If End If End Sub
B．3
Private Sub Command1_Click() n = Int(Log(2) / Log(1.008) + 1) Label1 = n & "年后人数超过26亿" End Sub
B．4
Private Sub Command1_Click() Dim x, dx, cd x = Text1.Text dx = UCase(x) cd = Len(x)
Print "大写字母为:"; dx Print "字符串长度为:"; cd End Sub
B．5
Private Sub Command1_Click() Text1 = Int(Rnd * 900 + 100) End Sub
Private Sub Command2_Click() Dim x%, x1%, x2%, x3% x = Val(Text1)
x1 = x Mod 10 ' 分离出的个位数
x2 = (x Mod 100) \ 10 ' 分离出的十位数
x3 = x \ 100 ' 分离出的百位数
Label1 = x1 * 100 + x2 * 10 + x3 End Sub
B．6
Private Sub Form_Click() Label1 = Left(Text1, 11)
Label2 = Mid(Text1, 12, 6) Label3 = Right(Text1, 5) End Sub
B．7
Private Sub Command1_Click() Print
For i = 1 To 5
Print Tab(15 - i * 2); String(2 * i - 1, "★"); Spc(18 - 4 * (i - 1)); String(2 * i - 1, "★") Next i End Sub
Private Sub Command2_Click() Cls End Sub
进一步要求：
Private Sub Command1_Click() Print
For i = 1 To 5
Print Tab(15 - i * 2); String(2 * i - 1, "★"); String(10 - (2 * i - 1), "☆"); String(2 * i - 1, "★") Next i End Sub
Private Sub Command2_Click() Cls End Sub
B．8
Private Sub Form_Click()
x = Val(InputBox("输入一正实数", "计算", 0))
pf = Format(x * x, "0.000") pfg = Format(Sqr(x), "0.000") lf = Format(x * x * x, "0.000") lfg = Format(x ^ (1 / 3), "0.000")
Print "平方为:"; pf; Space(5); "平方根为:"; pfg; Space(5); "立方为:"; lf; Space(5); "立方根为:"; lfg End Sub
C．1
Print " x y z" Print " 排序前"; x; " "; y; " "; z If x < y Then t = x: x = y: y = t If x < z Then t = x: x = z: z = t If y < z Then t = y: y = z: z = t
Print " 排序后" & x & " " & y & " " Private Sub Form_Click() Dim x!, y!
x = Val(InputBox("输入x的值")) If x < 1000 Then y = x
ElseIf x < 2000 Then y = 0.9 * x
ElseIf x < 3000 Then y = 0.8 * x Else y = 0.7 * x End If Print y End Sub
C．2
Private Sub Form_Click() Dim x!, y!
x = Val(InputBox("输入上网时间")) If x < 10 Then y = 30
ElseIf x < 50 Then y = 30 + 2.5 * (x - 10) Else
y = 30 + 2.5 * 40 + 2 * (x - 50) End If
If y > 150 Then y = 150 End If Print y End Sub
C．3
Private Sub Command1_Click() Dim x!, y!, z!
x = InputBox("input x") y = InputBox("input y") z = InputBox("input z")
& z End Sub
Private Sub Command2_Click() Dim x!, y!, z!
x = InputBox("input x") y = InputBox("input y") z = InputBox("input z")
Print " x y z" Print " 排序前"; x; " "; y; " "; z If x < y Then t = x: x = y: y = t If y < z Then t = y: y = z: z = t If x < y Then
t = x: x = y: y = t End If End If
Print " 排序后" & x & " " & y & " & z End Sub
C．4
Dim a(3) As Integer
Private Sub Command1_Click() Picture1.Cls For i = 0 To 2
a(i) = Int(Rnd * 100 + 200) Picture1.Print a(i) Next i End Sub
Private Sub Command2_Click() Picture2.Cls Dim z As Integer For i = 0 To 1
If a(i) > a(i + 1) Then z = a(i + 1) a(i + 1) = a(i) a(i) = z End If
"
Next i
Picture2.Print a(0) Picture2.Print a(1) Picture2.Print a(2) End Sub
C．5
Private Sub Text2_LostFocus() Dim m%, n%, y% m = Val(Text1) n = Val(Text2)
If n Mod 2 <> 0 Then
MsgBox ("脚数必定为偶数") Text2 = ""
Text2.SetFocus Else
y = n / 2 - m If y < 0 Then
MsgBox ("脚数必须≥2倍的头数，请重新输入")
Text2 = ""
Text2.SetFocus Else
x = n / 2 - m Label2 = y Label3 = m - y End If End If End Sub
C．6
Private Sub Command1_Click() Dim a!, b!, c!, x1!, x2!, de! a = Text1 b = Text2 c = Text3
de = b * b - 4 * a * c t = 2 * a
If de = 0 Then
Text4 = Format(-b / t, "0.00") Text5 = Format(-b / t, "0.00") ElseIf de > 0 Then
Text4 = Format((-b + Sqr(de)) / t, "0.00") Text5 = Format((-b - Sqr(de)) / t, "0.00")
Else
Text4 = Format(-b / t, "0.00") & "+" & Format(Sqr(Abs(de)) / t, "0.00") & "i"
Text5 = Format(-b / t, "0.00") & "-" & Format(Sqr(Abs(de)) / t, "0.00") & "i" End If End Sub
Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" End Sub
C．7
Private Sub Text3_LostFocus() Select Case Trim(Text3) Case "+"
Text4 = Val(Text1) + Val(Text2) Case "-"
Text4 = Val(Text1) - Val(Text2) Case "*"
Text4 = Val(Text1) * Val(Text2) Case "/"
If Val(Text2) = 0 Then
MsgBox "分母为零，重新输入" Text2 = ""
Text2.SetFocus Else
Text4 = Val(Text1) / Val(Text2) End If End Select End Sub
C．8
Private Sub Text1_LostFocus() Select Case Trim(Text1) Case 1
Text2 = "Monday" Case 2
Text2 = "Tuesday" Case 3
Text2 = "Wednesday"
Case 4
Text2 = "Thursday" Case 5
Text2 = "Friday" Case 6
Text2 = "Saturday" Case 7
Text2 = "Sunday" Case Is > 7, Is < 1
MsgBox "数字为1~7，重新输入" Text1 = ""
Text1.SetFocus End Select End Sub 或者
Private Sub Text1_LostFocus() If Text1 > 7 Or Text1 < 1 Then
MsgBox "数字为1~7，重新输入" Text1 = ""
Text1.SetFocus Else
Text2 = Choose(Text1, "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday") End If End Sub
D．1
Private Sub Form_Click() For i = 1 To 9
Print Tab(10 - i); String(2 * i - 1, Trim(Str(i))) Next i End Sub
D．2
Private Sub Form_Click() For i = 1 To 10 Step 1
Print Tab(i); String((20 - 2 * i), Chr(64 + i))
Next i End Sub
D．3
Private Sub Command1_Click() Dim s!, t!, i& s = 1 t = 1
For i = 1 To 100000 t = t + i s = s + 1 / t
If 1 / t < 0.00001 Then Exit For Next i
Print "For结构"; s, i; "项" End Sub
D．4
Private Sub Command1_Click() Dim n&, pi#, i&
n = InputBox("输入n值") pi = 2
For i = 1 To n
pi = pi * (2 * i) / (2 * i - 1) * (2 * i) / (2 * i + 1) Next i
Print "当n=" & n & "时，pi="; pi End Sub
D．5
Private Sub Form_Click() Dim s!, t!, i!, a%, n% a = Int(Rnd * 9 + 1) n = Int(Rnd * 6 + 5) t = 0: s = 0
Print "a="; a, "n="; n For i = 1 To n t = t * 10 + a s = s + t Print t; Next i Print
Print "s="; s End Sub
D．6
Private Sub Command1_Click() Dim s As Integer s = 0
For i = 1 To 9 For j = 0 To 9 For k = 0 To 9
s = i * 100 + j * 10 + k
If s = i ^ 3 + j ^ 3 + k ^ 3 Then Print s End If Next k Next j Next i End Sub
Private Sub Command3_Click() formd6.Hide main.Show End Sub
D．7
Private Sub Command1_Click() Dim a!, x0!, x1! a = 27 x0 = 2 i = 0 Do
i = i + 1
x1 = 2 * x0 / 3 + a / (3 * x0 * x0)
If Abs(x1 - x0) < 0.00001 Then Exit Do x0 = x1 Loop Print x1, i End Sub
D．8
Private Sub Command1_Click() s = 0 x0 = 0.01
For i = 1 To 30 s = s + x0 x0 = x0 * 2 Next i Print s End Sub
D．9
Private Sub Command4_Click()
Picture1.Cls
Picture1.Print "x课安排在 "; "y课安排在 "; "z课安排在 " Picture1.Print "" For z = 5 To 6 For x = 1 To z - 2 For Y = x + 1 To z - 1
X1 = Choose(Weekday(x), "周一", "周二", "周三", "周四", "周五", "周六", "周日")
Y1 = Choose(Weekday(Y), "周一", "周二", "周三", "周四", "周五", "周六", "周日")
z1 = Choose(Weekday(z), "周一", "周二", "周三", "周四", "周五", "周六", "周日")
Picture1.Print " "; X1; " "; Y1; " "; z1 Next Y Next x Next z End Sub
E．1
Private Sub Form_Click() Dim a(1 To 10) As Integer For i = 1 To 10
a(i) = Int(Rnd * 71 + 30) Print a(i); " "; Next i
Max = a(1) Min = a(1) Avg = a(1) For i = 2 To 10
If a(i) > Max Then Max = a(i) If a(i) < Min Then Min = a(i) Avg = Avg + a(i) Next i
Avg = Avg / 10 Print
Print "Max="; Max; " Min="; Min; " Avg="; Avg End Sub
E．2
Private Sub Form_Click()
Dim a
a = Array(56, 78, 98, 88, 76, 78) For i = 0 To 5
Print String(a(i) \ 5, "◆"); a(i) Print Next i End Sub
E．3
Dim a%(19)
Private Sub Command1_Click() Picture1.Cls
For i = 0 To 19
a(i) = Int(Rnd * 101) Picture1.Print a(i); " ";
If (i + 1) Mod 4 = 0 Then Picture1.Print Next i End Sub
Private Sub Command2_Click() Picture2.Cls Dim s(5 To 9) For i = 0 To 19 k = a(i) \ 10 Select Case k Case 0 To 5
s(5) = s(5) + 1
Case 9 To 10 '90～100分的人数
s(9) = s(9) + 1
Case 6 To 8 ' 存放其他三个分数段的下标有规律，根据K获得 s(k) = s(k) + 1 End Select Next i
For i = 5 To 9
If s(i) <> 0 Then Picture2.Print "s("; i; ")的人数有 "; Format(s(i), "0"); "个" Next i End Sub
E．4
Private Sub Command1_Click() Picture1.Cls
Dim d%(1 To 10) For i3 = 1 To 10 Randomize
d(i3) = Int(Rnd * 91 + 10) Next i3
For i = 1 To 10 For j = 1 To 10 - i If d(j) < d(j + 1) Then
t = d(j): d(j) = d(j + 1): d(j + 1) = t End If Next j Next i
For i = 1 To 10: Picture1.Print d(i); If i Mod 5 = 0 Then Picture1.Print Next i End Sub
E．5
Dim a%(3, 3), b%(3, 3) Private Sub Form_Load() For i = 0 To 3 For j = 0 To 3
a(i, j) = Int(Rnd * 36 + 35) b(i, j) = Int(Rnd * 41 + 100) Next j Next i End Sub
Private Sub Command1_Click() Picture1.Cls For i = 0 To 3 For j = 0 To i
Picture1.Print a(i, j); " "; Next j
Picture1.Print Next i End Sub
Private Sub Command2_Click() Picture2.Cls For i = 0 To 3 For j = i To 3
Picture2.Print Tab(j * 6); b(i, j); Next j
Picture2.Print Next i
End Sub
Private Sub Command3_Click() Picture3.Cls sa = 0
For i = 0 To 3 sa = sa + a(i, i) Next i sb = 0
For i = 0 To 3
sb = sb + b(i, 3 - i) Next i
Picture3.Print "A数组主对角线元素和为："; sa
Picture3.Print "B数组副对角线元素和为："; sb End Sub
E．6
Private Sub Form_Click() n = InputBox("输入n值") ReDim a6%(n + 1, n + 1)
a6(0, 0) = 1: a6(1, 1) = 1: a6(1, 0) = 1 For i = 2 To n + 1 For j = 2 To i
a6(i, j) = a6(i - 1, j - 1) + a6(i - 1, j) Picture1.Print a6(i, j); ""; Next j
Picture1.Print Next End Sub
E．7
Private Sub Form_Load() List1.Clear
List1.AddItem "大学计算机基础" List1.AddItem "C/C++程序设计" List1.AddItem "VB程序设计" List1.AddItem "Web程序设计" List1.AddItem "多媒体技术与应用" List1.AddItem "数据库技术与应用" List1.AddItem "网络技术与应用" List1.AddItem "硬件技术基础" List1.AddItem "软件技术技术基础"
End Sub
Private Sub List1_Click()
If List2.ListCount >= 5 Then
MsgBox ("超过5门课程，不能再选") Exit Sub Else
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex End If End Sub
E．8
Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57, 13 Case Else
KeyAscii = 0 End Select
If KeyAscii = 13 Then
Combo1.AddItem Combo1.Text Combo1.Text = "" End If End Sub
Private Sub Command1_Click() Dim min%, max%
min = Val(Combo1.List(0)) max = Val(Combo1.List(0)) imin = 0 imax = 0
For i = 1 To Combo1.ListCount - 1 If Val(Combo1.List(i)) > max Then imax = i
max = Combo1.List(i)
ElseIf Val(Combo1.List(i)) < min Then imin = i
min = Combo1.List(i) End If Next i
t = Combo1.List(0)
Combo1.List(0) = Combo1.List(imin) Combo1.List(imin) = t
t = Combo1.List(Combo1.ListCount - 1)
Combo1.List(Combo1.ListCount - 1) = Combo1.List(imax)
Combo1.List(imax) = t End Sub
E．9
Private Sub Form_Click()
For i = 0 To Screen.FontCount - 1
If Asc(Left(Screen.Fonts(i), 1)) < 0 Then
Picture1.Print Screen.Fonts(i)
Picture2.FontName = Screen.Fonts(i) Picture2.Print "商丘师范学院" End If Next i End Sub
E．10
Private Type clerk
number As String * 3 name As String * 5 salary As Integer End Type
Dim a(0 To 4) As clerk, n%
Private Sub Command1_Click() If n >= 5 Then
MsgBox ("输入人数超过数组声明的个数") Else
With a(n)
.number = Text1 .name = Text2 .salary = Text3
Picture1.Print a(n).number, a(n).name, a(n).salary Print End With n = n + 1 Text1 = "" Text2 = "" Text3 = "" End If End Sub
Private Sub Command2_Click() Dim t As clerk, i%, j% For i = 0 To n - 1 For j = i To n - 1
If a(i).salary < a(j + 1).salary Then t = a(i): a(i) = a(j + 1): a(j + 1) = t End If Next j Next i
Picture1.Cls
Picture1.Print "工号 姓名工资"
For i = 0 To n - 1
Picture1.Print a(i).number, a(i).name, a(i).salary Print Next i End Sub
F．1
Private Sub Form_Click() Dim a(1 To 10), amin, i% For i = 1 To 10
a(i) = -Int(Rnd * 101 + 300) Print a(i); Next i
Call s(a(), amin) Print
Print "min="; amin End Sub
Sub s(b(), min) Dim i%
min = b(LBound(b))
For i = LBound(b) + 1 To UBound(b) If b(i) < min Then min = b(i) Next i End Sub
F．2
Private Sub Command1_Click() Dim mm%, nn% mm = Val(Text1) nn = Val(Text2)
Picture1.Print mm; Tab(6); nn; Tab(12); gcd(mm, nn) End Sub
Function gcd%(ByVal m%, ByVal n%) If m < n Then t = m: m = n: n = t r = m Mod n
Do While (r <> 0)
m = n: n = r: r = m Mod n Loop gcd = n End Function
F．3
Dim x!
Private Sub Command1_Click()
Print "调用标准函数Sin的结果"; Sin(x) End Sub
Private Sub Command2_Click()
Print "调用自定义函数 MySin的结果"; MySin(x) End Sub
Function MySin(x!) As Double Dim i%, t!, s! t = x s = t i = 1
Do While Abs(t) > 0.00001
t = -1 * t * x * x / ((i + 1) * (i + 2)) s = s + t i = i + 2 Loop
MySin = s End Function
Private Sub Command3_Click()
x = InputBox("输入要计算正弦函数的角度值x")
x = x * 3.14 / 180 End Sub
F．4
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Not IsNumeric(Text1) Then
MsgBox "输入非数字串，重新输入" Text1.Text = "" Text1.SetFocus Else
If IsH(Text1) Then
Picture1.Print Text1; " ★ " Else
Picture1.Print Text1 End If Text1 = "" End If End If End Sub
Function IsH(ss As String) As Boolean Dim i%, Ls% IsH = True ss = Trim(ss) Ls = Len(ss)
For i = 1 To Ls \ 2
If Mid(ss, i, 1) <> Mid(ss, Ls + 1 - i, 1) Then
IsH = False Exit Function End If Next i End Function
F．5
Function prime(ByVal m As Integer) As Boolean prime = True Dim i%
For i = 2 To m - 1
If (m Mod i) = 0 Then prime = False: Exit Function '注意冒号和exit的范围 Next i
End Function
Private Sub Command1_Click() n = 0
For i = 6 To 100 Step 2 For j = 3 To i \ 2 If prime(j) Then If prime(i - j) Then
List1.AddItem i & " =" & j & " +" & i - j n = n + 1 End If End If Next j Next i
Picture1.Print " 6和100之间共有"; n; "对素数和" i = InStr(s1, s2) Do While i > 0
s1 = Left(s1, i - 1) + Mid(s1, i + ls2) ' 在s1中去除s2子串 i = InStr(s1, s2) Loop End Sub Private Sub Command1_Click() End Sub
F．6
Dim a%()
Private Sub Form_Click()
Print "1000以内的完数为：" For i = 1 To 1000 If IsWs(i) Then Print i; "=1";
For j = 1 To UBound(a) Print "+"; a(j); Next j Print End If Next i End Sub
Function IsWs(m) As Boolean Dim s% s = 0
For i = 1 To m \ 2
If m Mod i = 0 Then ReDim Preserve a(j) a(j) = i j = j + 1 s = s + i End If Next i
If m = s Then IsWs = True End Function
F．7
Private Sub DeleStr(s1 As String, ByVal s2 As String) Dim i%
ls2 = Len(s2)
' 调用DeleStr子过程 Dim ss1 As String ss1 = Text1
Call DeleStr(ss1, Text2) Text3 = ss1 End Sub
Private Sub Command2_Click()
End Sub
F．8
Private Sub Command1_Click() Dim maxw$
maxlen Text1 & " ", maxw Text2 = maxw End Sub
Sub maxlen(s$, maxw$) Dim word$ maxw = ""
Do While s <> "" i = InStr(s, " ") word = Left(s, i - 1)
If Len(word) > Len(maxw) Then maxw = word
s = Mid(s, i + 1) Loop End Sub
G．1
Private Sub Command1_Click() List1.Clear
List1.AddItem Combo1
If Option1 Then List1.AddItem "Pentium II" If Option2 Then List1.AddItem "Pentium I" If Option3 Then List1.AddItem "Celeron"
List1.AddItem Text1
If Check1 Then List1.AddItem "声卡" If Check2 Then List1.AddItem "Modem" If Check3 Then List1.AddItem "网络适配器"
End Sub
Private Sub Text1_LostFocus() st = UCase(Trim(Text1)) le = Len(st)
If Not IsNumeric(Left(st, le - 2)) Or Right(st, 2) <> "MB" Then
MsgBox "有不合法字符！" Text1 = ""
Text1.SetFocus End If End Sub
G．2
Private Sub Check1_Click()
Picture1.Font.Bold = Not Picture1.Font.Bold End Sub
Private Sub Check2_Click()
Picture1.Font.Italic = Not Picture1.Font.Bold End Sub
Private Sub Command1_Click() Picture1.Cls If Option1 Then
Picture1.Print Sin(Val(Text1)) ElseIf Option2 Then
Picture1.Print Exp(Val(Text1)) ElseIf Option3 Then
Picture1.Print Sqr(Val(Text1)) End If End Sub
Private Sub return_Click(Index As Integer) Form6.Show Unload Form2 End Sub
G．3
Private Sub HScroll1_Change() Text1 = VScroll1.Value Text2 = HScroll1.Value Text3 = HScroll2.Value
Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00")
Text5 = Format(Val(Text4) + Val(Text1), "0.00") End Sub
Private Sub HScroll2_Change() Text1 = VScroll1.Value Text2 = HScroll1.Value Text3 = HScroll2.Value
Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00")
Text5 = Format(Val(Text4) + Val(Text1), "0.00") End Sub
Private Sub VScroll1_Change() Text1 = VScroll1.Value Text2 = HScroll1.Value Text3 = HScroll2.Value
Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00")
Text5 = Format(Val(Text4) + Val(Text1), "0.00") End Sub
G．4
Dim t As Single
Private Sub Command1_Click() t = InputBox("输入倒计时分钟数") t = t * 60
ProgressBar1.Min = 0 ProgressBar1.Max = t ProgressBar1.Value = t End Sub
Private Sub Command2_Click() Timer1.Interval = 1000
ProgressBar1.Visible = True End Sub
Private Sub Timer1_Timer() Dim m%, s% t = t - 1
ProgressBar1.Value = t m = t \ 60 s = t Mod 60
Label1 = m & "分" & s & "秒" If t = 0 Then
MsgBox "时间到！" Timer1.Interval = 0
ProgressBar1.Visible = False End If End Sub
G．5
Private Sub Command1_Click() CommonDialog1.ShowColor
Label1.ForeColor = CommonDialog1.Color End Sub
Private Sub Command2_Click() CommonDialog1.ShowOpen
i = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus) End Sub
G．6
rivate Sub bold_Click()
Text1.FontBold = Not Text1.FontBold bold.Checked = Not bold.Checked End Sub
Private Sub del_Click() Text1 = "" End Sub
Private Sub end_Click() End End Sub
Private Sub font12_Click() Text1.FontSize = 12 End Sub
Private Sub font16_Click() Text1.FontSize = 16 End Sub
Private Sub Form_Load() bold.Checked = False italic.Checked = False End Sub
Private Sub italic_Click()
Text1.FontItalic = Not Text1.FontItalic italic.Checked = Not italic.Checked End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu menu2 End Sub
G．7
Private Sub Command1_Click() CommonDialog1.ShowColor
Label1.ForeColor = CommonDialog1.Color End Sub
Private Sub Command2_Click() CommonDialog1.ShowOpen
i = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus) End Sub
Private Sub return_Click(Index As Integer) Form6.Show Unload Form5 End Sub
G．8 G．9
Private Sub 结束_Click() End End Sub
Private Sub 删除最大值_Click() max = List1.List(0)
For i = 1 To List1.ListCount - 1 If max < List1.List(i) Then max =
List1.List(i): j = i Next i
List1.RemoveItem j End Sub
Private Sub 删除最小值_Click() min = List1.List(0)
For i = 1 To List1.ListCount - 1 If min > List1.List(i) Then min =
List1.List(i): j = i Next i
List1.RemoveItem j End Sub
Private Sub 随机产生_Click() Randomize For i = 0 To 9
List1.List(i) = Int(Rnd * 30 + 70) Next i End Sub
Private Sub 添加数据_Click() List1.AddItem Int(Rnd * 30 + 70) End Sub
Private Sub 统计_Click()
Dim max%, min%, ave!, m%, n% max = List1.List(0) min = List1.List(0) ave = List1.List(0) m = 0 n = 0
For i = 1 To List1.ListCount - 1 If max < List1.List(i) Then max = List1.List(i): m = i
If min > List1.List(i) Then min =
List1.List(i): n = i
ave = ave + List1.List(i) Next i
Form2.Text1 = List1.List(n) Form2.Text2 = List1.List(m)
Form2.Text3 = Format(ave / List1.ListCount, "0.00")
Form2.Show
End Sub
G．10
Private Sub experimentG2_Click() Form2.Show End Sub
Private Sub experimentG3_Click() Form3.Show End Sub
Private Sub experimentG4_Click() Form4.Show End Sub
Private Sub experimentG5_Click() Form5.Show End Sub
Private Sub font_12_Click() Text1.FontSize = 12 End Sub
Private Sub font_16_Click() Text1.FontSize = 16 End Sub
Private Sub rnd10_Click() Randomize For i = 0 To 9
List1.List(i) = Int(Rnd * 30 + 70) Next i End Sub
Private Sub stat_Click()
Dim max%, min%, ave!, m%, n% max = List1.List(0) min = List1.List(0)
ave = List1.List(0) m = 0 n = 0
For i = 1 To List1.ListCount - 1
If max < List1.List(i) Then max = List1.List(i): m = i
If min > List1.List(i) Then min = List1.List(i): n = i
ave = ave + List1.List(i) Next i
stat2.Text1 = List1.List(n) stat2.Text2 = List1.List(m)
stat2.Text3 = Format(ave / List1.ListCount, "0.00") stat2.Show End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu caidan2, vbPopupMenuCenterAlign End Sub
Private Sub xie_Click()
Text1.Font.Italic = Not Text1.Font.Bold End Sub
H．1
Private Sub Command1_Click() Open "c:\score" For Output As #1 Print #1, "051023", "王海涛", 66 Print #1, "052498", "周文英", 88 Print #1, "050992", "陈建东", 77 Open "c:\score1" For Output As #2 Write #2, "051023", "王海涛", 66 Write #2, "052498", "周文英", 88 Write #2, "050992", "陈建东", 77 Close
i1 = Shell("NOTEPAD.exe" + " c:\score", vbNormalNoFocus)
i2 = Shell("NOTEPAD.exe" + " c:\score1", vbNormalNoFocus) End Sub
Private Sub Command2_Click()
Dim no As String, name As String, s As Integer
Open "c:\score" For Input As #1 Do While Not EOF(1) Line Input #1, linedata List1.AddItem linedata Loop
Open "c:\score1" For Input As #2 Do While Not EOF(2) Input #2, no, name, s
List2.AddItem no & name & s Loop Close End Sub
H．2
Private Sub Command1_Click() Dim fib%(0 To 9), i%
Open "c:\fb.dat" For Output As #1 For i = 0 To 9
If i = 0 Or i = 1 Then fib(i) = i Else
fib(i) = fib(i - 1) + fib(i - 2) End If
Print #1, """Fib(" & i & ")""," & fib(i) Next i Close #1
i = Shell("NOTEPAD.exe" + " c:\fb.dat", vbNormalNoFocus) End Sub
Private Sub Command2_Click() Dim st$, n%, sum%
Open "c:\fb.dat" For Input As #1 Do While Not EOF(1) Input #1, st, n sum = sum + n
List1.AddItem st & "=" & n Loop Close #1
List1.AddItem "合计：" & sum
List1.AddItem "平均：" & sum / 10 End Sub
H．3 H．4
Private Type studtype
no As String * 4 name As String * 6 mark As Single End Type
Dim student As studtype, stud(1 To 5) As studtype, t As studtype
Private Sub Command1_Click()
Open "d:\score.dat" For Random As #1 Len = Len(student) With student .no = "0001"
.name = "星期一" .mark = 66 End With
Put #1, 1, student With student .no = "0002"
.name = "星期二" .mark = 99 End With
Put #1, 2, student With student .no = "0003"
.name = "星期三" .mark = 88 End With
Put #1, 3, student With student .no = "0004"
.name = "星期四" .mark = 55 End With
Put #1, 4, student With student .no = "0005"
.name = "星期五"
.mark = 77 End With
Put #1, 5, student Close #1 End Sub
Private Sub Command2_Click()
Open "d:\score.dat" For Random As #1 Len = Len(student) For i = 1 To 5 Get #1, i, student
Print student.no, student.name, student.mark stud(i) = student Next i Close #1 For i = 1 To 5 For j = i + 1 To 5
If stud(i).mark > stud(j).mark Then t = stud(i): stud(i) = stud(j): stud(j) = t Next Next i
Open "d:\random1.dat" For Random As #2 Len = Len(student) For i = 1 To 5 Put #2, i, stud(i) Next i Close #1 End Sub
Private Sub Command3_Click()
Open "d:\random1.dat" For Random As #1 Len = Len(student) For i = 1 To 5 Get #1, i, stud(i)
Print stud(i).no; stud(i).name; stud(i).mark Next i Close #1
End Sub
H．5
Private Type studtype no As Integer
name As String * 20
sex As String * 1 mark As Single End Type
Dim std As studtype Dim record As Integer
Private Sub Command1_Click() With std
.no = Val(Text1.Text) .name = Text2.Text
.sex = IIf(Option1.Value, "1", "0") .mark = Val(Text3.Text) End With
Open "c:\score" For Random As #1 Len = Len(std)
record = LOF(1) / Len(std) + 1 Label1.Caption = record Put #1, record, std Close #1 End Sub
Private Sub Command2_Click()
Open "c:\score" For Random As #1 Len = Len(std)
record = Val(Text4.Text) Get #1, record, std Text1.Text = std.no Text2.Text = std.name If std.sex = "1" Then Option1.Value = True Else
Option2.Value = True End If
Text3.Text = std.mark
record = LOF(1) / Len(std) Close #1 End Sub
Private Sub Command3_Click() With std
.no = Val(Text1.Text) .name = Text2.Text
.sex = IIf(Option1.Value, "1", "0") .mark = Val(Text3.Text) End With
Open "c:\score" For Random As #1 Len = Len(std)
record = Val(Text4.Text) Put #1, record, std Close #1 End Sub
Private Sub Command4_Click()
Open "c:\score" For Random As #1 Len = Len(std) record = 1
Get #1, record, std Text1.Text = std.no Text2.Text = std.name If std.sex = "1" Then Option1.Value = True Else
Option2.Value = True End If
Text3.Text = std.mark
record = LOF(1) / Len(std) Close #1
Text4.Text = 1 End Sub
Private Sub Command5_Click()
Open "c:\score" For Random As #1 Len = Len(std)
record = Val(Text4.Text) - 1 If Val(Text4.Text) <= 1 Then
MsgBox "超出记录范围", 2 + vbExclamation, "警告": Close #1 Else
Get #1, record, std Text1.Text = std.no Text2.Text = std.name If std.sex = "1" Then Option1.Value = True Else
Option2.Value = True End If
Text3.Text = std.mark
record = LOF(1) / Len(std)
Close #1
Text4.Text = Val(Text4.Text) - 1 End If End Sub
Private Sub Command6_Click()
Open "c:\score" For Random As #1 Len = Len(std)
record = Val(Text4.Text) + 1
If record > Val(Label1.Caption) Then
MsgBox "超出记录范围", 2 + vbExclamation, "警告": Close Else
Get #1, record, std Text1.Text = std.no Text2.Text = std.name If std.sex = "1" Then Option1.Value = True Else
Option2.Value = True End If
Text3.Text = std.mark
record = LOF(1) / Len(std) Close #1
Text4.Text = Val(Text4.Text) + 1 End If End Sub
Private Sub Command7_Click()
Open "c:\score" For Random As #1 Len = Len(std)
record = Val(Label1.Caption) Get #1, record, std Text1.Text = std.no Text2.Text = std.name If std.sex = "1" Then Option1.Value = True Else
Option2.Value = True End If
Text3.Text = std.mark
record = LOF(1) / Len(std) Close #1
Text4.Text = record
End Sub
Private Sub Form_Load()
Open "c:\score" For Random As #1 Len = Len(std)
Label1.Caption = LOF(1) / Len(std) Close #1 End Sub
H．6
Private Type studtype no As Integer
name As String * 6 mark As Integer End Type
Dim std As studtype Dim record As Integer
Private Sub Command1_Click() With std
.no = Val(Text1.Text) .name = Text2.Text .mark = Val(Text3.Text) End With
Open "c:\score1" For Random As #1 Len = Len(std)
record = LOF(1) / Len(std) + 1 Put #1, record, std Close #1
Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub
Private Sub Command2_Click() Dim sum, count As Integer
Open "c:\score1" For Random As #1 Len = Len(std)
For i = 1 To record Get #1, i, std
sum = sum + std.mark count = count + 1
List1.AddItem std.no & " " & std.name &
std.mark Next i
List1.AddItem "总分" & sum
List1.AddItem "平均成绩" & sum / count Close #1 End Sub
H．7
Private Sub Command1_Click()
Dim inputdata1, inputdata2, inputdata3 As String * 1
Dim v, byt1() As Byte, byt2() As Byte, flen1 As Long, flen2 As Long, fnum, fnum3 As Integer
Text1.Text = "": Text2.Text = "": Text3.Text = ""
CommonDialog1.ShowOpen
fname1 = CommonDialog1.FileName CommonDialog2.ShowOpen
fname2 = CommonDialog2.FileName Open fname1 For Binary As #1 Open fname2 For Binary As #2
Do While Not EOF(1) inputdata1 = Input(1, #1)
Text1.Text = Text1.Text + inputdata1 Loop
Do While Not EOF(2) inputdata2 = Input(1, #2)
Text2.Text = Text2.Text + inputdata2 Loop
fnum3 = FreeFile
Open "c:\hb.txt" For Binary As #fnum3 Put #fnum3, 1, byt1()
Put #fnum3, flen1 + 1, byt2() Do While Not EOF(fnum3) inputdata3 = Input(1, #fnum3)
Text3.Text = Text3.Text + inputdata3 Loop
If Dir(fname1) <> "" Then
fnum = FreeFile
Open fname1 For Binary As #fnum flen1 = LOF(fnum) ReDim byt1(flen1 - 1) Get #fnum, 1, byt1() Close fnum End If
If Dir(fname2) <> "" Then fnum = FreeFile
Open fname2 For Binary As #fnum flen2 = LOF(fnum) ReDim byt2(flen2 - 1) Get #fnum, 1, byt2() Close fnum End If Close End Sub J-4
Private Sub Command1_Click() Dim strb() As Byte
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Binary As #1
f1 = LOF(1) ReDim strb(f1) Get #1, , strb
Adodc1.Recordset.Fields("照片").AppendChunk strb Close #1
Image1.Picture = LoadPicture(CommonDialog1.FileName) End Sub