- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
实验8过程与函数
实验八 过程与函数
一、实验目的
1.能理解Sub子程序、Function函数。
2.能用Sub子程序、Function函数编写简单的程序。
二、实验内容
例1:设计一个简单的VB程序,要求输出结果如图所示。
(1)创建工程。
(2)建立用户界面,在窗体上添加一个按钮。
(3)双击按钮控件,切换到代码设计窗口,添加程序代码如下:
(4)调试运行程序。
(5)请修改程序,仍使用Sub子程序输出如图2所示程序。运行成功后,保存结果到练习文件夹中的vb8-1文件夹。
图1 图2
例2:设计一个简单的VB程序,要求输出结果如图3所示。
(1)创建工程。
(2)建立用户界面,在窗体上添加一个按钮。
(3)双击按钮控件,切换到代码设计窗口,添加程序代码如下:
(4)调试运行程序。
(5)请修改程序,仍使用Function函数输出如图4所示程序。运行成功后,保存结果到练习文件夹中的vb8-2文件夹。
图3 图4
例3:设计一个简单的VB程序,要求输出2~100之间所有的素数。自定义子函数SuShu用于判断一个整数是不是素数。运行成功后,保存结果到练习文件夹中的vb8-3文件夹。
例4:执行下列程序,思考两个变量的显示结果为何不同。完成后保存结果到练习文件夹中的vb8-4文件夹。
三 思考题
1.已知三角形面积的计算公式是 s=Sqr(p*(p-a)*(p-b)*(p-c)),其中p=(a+b+c)/2 。要求写成自定义函数形式用于计算三角形面积。程序保存到练习文件夹中的vb8-5文件夹。
在主程序中能检查输入的a、b、c值是否满足两边之和大于第三边的三角形成立条件。如果不成立,则提示重新输入。
提示:Private Function mj(a As Single,b As Single,c As Single)
理解课程内容、完成实验任务、写好实验报告
3
Text3
Command1
Label11
Text1
Text2
您可能关注的文档
- 毕业论文D单片机的倾角测试系统设计.doc
- 教育类公共项目绩效评价指标和标准.doc
- 感恩父母1班会.ppt
- 雅思口语第一部分.doc
- albpm10.3安装过程.doc
- 七年级上uni5.ppt
- S5使用方法.doc
- 采购部工作手册2011.11.15.doc
- TP3-数据库安全.ppt
- 2011审计复习讲义.doc
- 2025上海市军队离休退休干部活动中心招聘1人备考试题及答案解析.docx
- 2025年西安经开第十三幼儿园招聘笔试参考题库附答案解析.docx
- 2025年西安经开第十四小学招聘(13人)备考试题及答案解析.docx
- 2025四川德阳市国家综合性消防救援队伍面向社会招录消防员700人备考试题及答案解析.docx
- 2025上海市医药学校招聘1人(第四批)备考试题及答案解析.docx
- 2025年西安思源学院教师招聘笔试参考题库附答案解析.docx
- 2025年上半年黑龙江省农业农村厅事业单位招聘39人笔试参考题库附答案解析.docx
- 2025年上海市文化和旅游局老干部服务中心公开招聘工作人员笔试参考题库附答案解析.docx
- 2025年十堰经济技术开发区公开招聘编外人员14人笔试参考题库附答案解析.docx
- 2025年十堰郧阳区公开招聘社区专职工作人员124人笔试参考题库附答案解析.docx
文档评论(0)