VB实验报告 选择和循环结构程序设计.docx
- 文档编号:6049252
- 上传时间:2023-01-03
- 格式:DOCX
- 页数:11
- 大小:368.04KB
VB实验报告 选择和循环结构程序设计.docx
《VB实验报告 选择和循环结构程序设计.docx》由会员分享,可在线阅读,更多相关《VB实验报告 选择和循环结构程序设计.docx(11页珍藏版)》请在冰豆网上搜索。
VB实验报告选择和循环结构程序设计
南京工程学院
电力工程学院
2010/2011学年第2学期
实验报告
课程名称VB语言程序设计
实验项目名称选择和循环结构程序设计
实验学生班级
实验学生姓名
同组学生姓名
实验时间2011年3月21日
实验地点电力工程基础实验室
实验报告成绩:
评阅教师签字:
年月日
电力工程学院二OO七年制
说明
1.实验报告为实验的重要考核依据之一,每个实验必须定一份实验报告.本实验报告原则上要求手写。
2.本实验报告各项内容的具体格式、字数可由指导教师根据实验具体情况提出具体要求。
各项内容可另附页,为便于归档,附页尺寸不得大于本实验报告尺寸,并注意粘牢于附页粘贴处。
3.实验报告封面中的“实验名称”应为实验教学大纲上所列的规范名称,“实验地点”应写出实验室的具体名称。
请确认无误后再填写。
4.实验报告的建议格式为:
一、实验目的和要求;
二、主要实验仪器和设备;
三、本次实验内容
(一)实验项目名称(按本次实验各项目填写)
1、原理或接线图
2、实验步骤及注意事项
3、实验预习过程中所遇到问题
……
四、实验记录及数据处理(主要内容包括实验具体实施步骤、实验原始数据、计算过程与结果、数据曲线、图表等。
具体格式按指导教师要求)
五、实验结论(主要内容包括本实验小结、实验体会或疑问等。
具体格式按指导教师要求)
5.实验成绩由实验预习、实验表现、实验报告三部分组成。
其中前两项各占总成绩的30%。
实验报告成绩依据报告的科学性、全面性、规范性及书写态度综合考核。
实验报告采用百分制,占实验总成绩的40%,教师请阅本报告后需签字并给出实验报告百分制成绩。
6.实验报告需按要求时间以班级为单位交给指导教师,最长时间不得超过两周,实验报告如有明显抄袭者或不交者,实验总评成绩按0分记。
一、实验目的
通过实验掌握vb的选择和循环结构程序设计方法。
二、实验设备
1.PC机一台;2.VB6.0集成开发环境。
三、实验内容及要求
1.勾股定理中3个数的关系为
,编写程序输出30以内所有满足勾股定理的整数组合。
显式结果如下,注意显示格式整齐。
2.使用VB设计一个关于抑郁心理的测试。
使用者对以下10个问题进行回答,并根据回答结果给出结论。
①总是觉得闷闷不乐,情绪低沉;
②很想或者一阵阵的哭出来;
③晚上睡眠不好;
④发觉体重在下降;
⑤觉得以前经常做的事情,现在总是有困难;
⑥对将来感觉没有什么希望;
⑦做出决定很不容易;
⑧比平常容易激动;
⑨坐立不安难以保持平静;
⑩无缘无故感到疲乏。
每个问题都有A.很少有B.有时有C.经常有D.绝大部分时间有四个选项,其中A为5分,B为3分,C为1分,D为0分。
总计5分及以下为抑郁情绪严重;总计5~19分为有一定抑郁倾向;总计20分及以上为无抑郁问题。
程序运行界面如下:
四、说明
事件过程驱动顺序:
单击“开始测试”命令按钮,显示下一题题目;
单击ABCD选项按钮,得分增加,题目编号增加,调用单击“开始测试按钮”的事件过程
如果题目编号到11,显示最后结果
在某个事件过程中调用另外一个事件过程的方法:
直接书写其sub过程名称
五、程序代码草稿
六、实验结果
1.符合勾股定理的30以内的整数
代码:
PrivateSubForm_click()
DimaAsInteger,bAsInteger,cAsInteger,nAsInteger
Show
Form1.Height=5700
PrintSpc(17);"a^2+b^2=c^2"
n=0
Fora=1To30
Forb=1To30
Forc=1To30
Ifa^2+b^2=c^2Then
n=n+1
Printn;":
";Tab(7);"a=";a;Tab(22);"b=";b;Tab(36);"c=";c
EndIf
Nextc
Nextb
Nexta
EndSub
运行截图:
2.心理测试
代码:
PublicsumAsInteger,nAsInteger
PrivateSubForm_Load()
Show
n=0
sum=0
La1n
La2n,sum
EndSub
PrivateSubCommand1_Click()
Ifn>0Andn<12Then
n=n+1
sum=sum+5
La1n
La2n,sum
EndIf
EndSub
PrivateSubCommand2_Click()
Ifn>0Andn<12Then
n=n+1
sum=sum+3
La1n
La2n,sum
EndIf
EndSub
PrivateSubCommand3_Click()
Ifn>0Andn<12Then
n=n+1
sum=sum+1
La1n
La2n,sum
EndIf
EndSub
PrivateSubCommand4_Click()
Ifn>0Andn<12Then
n=n+1
sum=sum+0
La1n
La2n,sum
EndIf
EndSub
PrivateSubCommand5_Click()
n=1
sum=0
La1n
La2n,sum
EndSub
PrivateSubLa1(nAsInteger)
SelectCasen
Case0
Label1.Caption="心理测试"
Case1
Label1.Caption="①总是觉得闷闷不乐,情绪低沉"
Case2
Label1.Caption="②很想或者一阵阵的哭出来"
Case3
Label1.Caption="③晚上睡眠不好"
Case4
Label1.Caption="④发觉体重在下降"
Case5
Label1.Caption="⑤觉得以前经常做的事情,现在总是有困难"
Case6
Label1.Caption="⑥对将来感觉没有什么希望"
Case7
Label1.Caption="⑦做出决定很不容易"
Case8
Label1.Caption="⑧比平常容易激动"
Case9
Label1.Caption="⑨坐立不安难以保持平静"
Case10
Label1.Caption="⑩无缘无故感到疲乏?
"
Case11
Label1.Caption=""
EndSelect
EndSub
PrivateSubLa2(nAsInteger,sumAsInteger)
Ifn=0Then
Label2.Caption=""
ElseIfn<11Then
Label2.Caption="A.很少有B.有时有C.经常有D.绝大部分时间有"
Else
SelectCasesum
CaseIs<5
Label2.Caption="抑郁情绪严重"
CaseIs<19
Label2.Caption="有一定抑郁倾向"
CaseElse
Label2.Caption="无抑郁问题"
EndSelect
EndIf
EndSub
截图:
①
②
③
④
七、实验中遇到的问题与解决方法或实验收获
注:
附页可粘贴于此页,注意粘贴整齐,不要超过页面边界。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB实验报告 选择和循环结构程序设计 VB 实验 报告 选择 循环 结构 程序设计