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,nAsIntegerShowForm1.Height=5700PrintPrintPrintSpc(17);"a^2+b^2=c^2"PrintPrintn=0Fora=1To30Forb=1To30Forc=1To30Ifa^2+b^2=c^2Thenn=n+1Printn;":";Tab(7);"a=";a;Tab(22);"b=";b;Tab(36);"c=";cEndIfNextcNextbNextaEndSub运行截图：2.心理测试代码：PublicsumAsInteger,nAsIntegerPrivateSubForm_Load()Shown=0sum=0La1nLa2n,sumEndSubPrivateSubCommand1_Click()Ifn>0Andn<12Thenn=n+1sum=sum+5La1nLa2n,sumEndIfEndSubPrivateSubCommand2_Click()Ifn>0Andn<12Thenn=n+1sum=sum+3La1nLa2n,sumEndIfEndSubPrivateSubCommand3_Click()Ifn>0Andn<12Thenn=n+1sum=sum+1La1nLa2n,sumEndIfEndSubPrivateSubCommand4_Click()Ifn>0Andn<12Thenn=n+1sum=sum+0La1nLa2n,sumEndIfEndSubPrivateSubCommand5_Click()n=1sum=0La1nLa2n,sumEndSubPrivateSubLa1(nAsInteger)SelectCasenCase0Label1.Caption="心理测试"Case1Label1.Caption="①总是觉得闷闷不乐，情绪低沉"Case2Label1.Caption="②很想或者一阵阵的哭出来"Case3Label1.Caption="③晚上睡眠不好"Case4Label1.Caption="④发觉体重在下降"Case5Label1.Caption="⑤觉得以前经常做的事情，现在总是有困难"Case6Label1.Caption="⑥对将来感觉没有什么希望"Case7Label1.Caption="⑦做出决定很不容易"Case8Label1.Caption="⑧比平常容易激动"Case9Label1.Caption="⑨坐立不安难以保持平静"Case10Label1.Caption="⑩无缘无故感到疲乏?"Case11Label1.Caption=""EndSelectEndSubPrivateSubLa2(nAsInteger,sumAsInteger)Ifn=0ThenLabel2.Caption=""ElseIfn<11ThenLabel2.Caption="A.很少有B.有时有C.经常有D.绝大部分时间有"ElseSelectCasesumCaseIs<5Label2.Caption="抑郁情绪严重"CaseIs<19