VB实验报告 选择和循环结构程序设计Word格式文档下载.docx

1、1. 实验报告为实验的重要考核依据之一， 每个实验必须定一份实验报告. 本实验报告原则上要求手写。2.本实验报告各项内容的具体格式、字数可由指导教师根据实验具体情况提出具体要求。各项内容可另附页，为便于归档，附页尺寸不得大于本实验报告尺寸，并注意粘牢于附页粘贴处。3. 实验报告封面中的 “实验名称” 应为实验教学大纲上所列的规范名称， “实验地点”应写出实验室的具体名称。请确认无误后再填写。4. 实验报告的建议格式为：一、实验目的和要求；二、主要实验仪器和设备；三、本次实验内容（一）实验项目名称（按本次实验各项目填写）1、原理或接线图2、实验步骤及注意事项3、实验预习过程中所遇到问题四、实验记

2、录及数据处理（主要内容包括实验具体实施步骤、 实验原始数据、 计算过程与结果、 数据曲线、 图表等。 具体 格式按指导教师要求） 五、实验结论（主要内容包括本实验小结、 实验体会或疑 问等。具体格式按指导教师要求） 5. 实验成绩由实验预习、实验表现、 实验报告三部分组成。其中前两项各占总成绩的30%。实验报告成绩依据报告的科学性、全面性、规范性及书写态度综合考核。 实验报告采用百分制， 占实验总成绩的40%， 教师请阅本报告后需签字并给出实验报告百分制成绩。 6. 实验报告需按要求时间以班级为单位交给指导教师，最长时间不得超过两周，实验报告如有明显抄袭者或不交者，实验总评成绩按 0 分记。一

3、、实验目的通过实验掌握vb的选择和循环结构程序设计方法。二、实验设备1PC机一台；2VB 6.0集成开发环境。三、实验内容及要求1. 勾股定理中3个数的关系为，编写程序输出30以内所有满足勾股定理的整数组合。显式结果如下，注意显示格式整齐。2.使用VB设计一个关于抑郁心理的测试。使用者对以下10个问题进行回答，并根据回答结果给出结论。总是觉得闷闷不乐，情绪低沉；很想或者一阵阵的哭出来；晚上睡眠不好；发觉体重在下降；觉得以前经常做的事情，现在总是有困难；对将来感觉没有什么希望；做出决定很不容易；比平常容易激动；坐立不安难以保持平静；无缘无故感到疲乏。每个问题都有A. 很少有 B.有时有 C.经常

4、有 D.绝大部分时间有 四个选项，其中A为5分，B为3分，C为1分，D为0分。总计5分及以下为抑郁情绪严重；总计519分为有一定抑郁倾向；总计20分及以上为无抑郁问题。程序运行界面如下：四、说明事件过程驱动顺序：单击“开始测试”命令按钮，显示下一题题目；单击ABCD选项按钮，得分增加，题目编号增加，调用单击“开始测试按钮”的事件过程 如果题目编号到11，显示最后结果在某个事件过程中调用另外一个事件过程的方法:直接书写其sub过程名称五、程序代码草稿六、实验结果1.符合勾股定理的30以内的整数代码：Private Sub Form_click（）Dim a As Integer, b As In

5、teger, c As Integer, n As IntegerShowForm1.Height = 5700PrintPrint Spc（17）; a2+b2=c2n = 0For a = 1 To 30 For b = 1 To 30 For c = 1 To 30 If a 2 + b 2 = c 2 Then n = n + 1 Print n;:; Tab（7）;a= a; Tab（22）;b= b; Tab（36）;c= c End If Next c Next bNext aEnd Sub运行截图：2.心理测试Public sum As Integer, n As Intege

6、rPrivate Sub Form_Load（）sum = 0La1 nLa2 n, sumPrivate Sub Command1_Click（）If n 0 And n 12 Thenn = n + 1sum = sum + 5End IfPrivate Sub Command2_Click（）sum = sum + 3Private Sub Command3_Click（）sum = sum + 1Private Sub Command4_Click（）sum = sum + 0Private Sub Command5_Click（）n = 1Private Sub La1（n As I

7、nteger）Select Case n Case 0 Label1.Caption = 心理测试 Case 1总是觉得闷闷不乐，情绪低沉 Case 2很想或者一阵阵的哭出来 Case 3晚上睡眠不好 Case 4发觉体重在下降 Case 5觉得以前经常做的事情，现在总是有困难 Case 6对将来感觉没有什么希望 Case 7做出决定很不容易 Case 8比平常容易激动 Case 9坐立不安难以保持平静 Case 10无缘无故感到疲乏? Case 11 End SelectPrivate Sub La2（n As Integer, sum As Integer）If n = 0 Then Label2.Caption = ElseIf n 11 ThenA. 很少有 B.有时有 C.经常有 D.绝大部分时间有Else Select Case sum Case Is 5抑郁情绪严重 19有一定抑郁倾向 Case Else无抑郁问题截图：七、实验中遇到的问题与解决方法或实验收获注：附页可粘贴于此页，注意粘贴整齐，不要超过页面边界。