VB实验报告 选择和循环结构程序设计Word格式文档下载.docx
《VB实验报告 选择和循环结构程序设计Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB实验报告 选择和循环结构程序设计Word格式文档下载.docx（11页珍藏版）》请在冰豆网上搜索。
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
Print
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（）
sum=0
La1n
La2n,sum
PrivateSubCommand1_Click（）
Ifn>
0Andn<
12Then
n=n+1
sum=sum+5
EndIf
PrivateSubCommand2_Click（）
sum=sum+3
PrivateSubCommand3_Click（）
sum=sum+1
PrivateSubCommand4_Click（）
sum=sum+0
PrivateSubCommand5_Click（）
n=1
PrivateSubLa1（nAsInteger）
SelectCasen
Case0
Label1.Caption="
心理测试"
Case1
①总是觉得闷闷不乐，情绪低沉"
Case2
②很想或者一阵阵的哭出来"
Case3
③晚上睡眠不好"
Case4
④发觉体重在下降"
Case5
⑤觉得以前经常做的事情，现在总是有困难"
Case6
⑥对将来感觉没有什么希望"
Case7
⑦做出决定很不容易"
Case8
⑧比平常容易激动"
Case9
⑨坐立不安难以保持平静"
Case10
⑩无缘无故感到疲乏?
Case11
EndSelect
PrivateSubLa2（nAsInteger,sumAsInteger）
Ifn=0Then
Label2.Caption="
ElseIfn<
11Then
A.很少有B.有时有C.经常有D.绝大部分时间有"
Else
SelectCasesum
CaseIs<
5
抑郁情绪严重"
19
有一定抑郁倾向"
CaseElse
无抑郁问题"
截图：
①
②
③
④
七、实验中遇到的问题与解决方法或实验收获
注：
附页可粘贴于此页，注意粘贴整齐，不要超过页面边界。
升级会员 