VB实验报告 选择和循环结构程序设计
南京工程学院电力工程学院2010/ 2011学年 第2 学期实验报告课程名称 VB语言程序设计实验项目名称 选择和循环结构程序设计实验学生班级实验学生姓名同组学生姓名实验时间 2011年3月21日实验地点电力工程基础实验室实验报告成绩： 评阅教师签字：年 月 日电力工程学院二00七年制说明1. 实验报告为实验的重要考核依据之一，每个实验必须定一份实验报告. 本实验报告原则上要求手写。2. 本实验报告各项内容的具体格式、字数可由指导教师根据实验具体情况提 出具体要求。各项内容可另附页，为便于归档，附页尺寸不得大于本实验报告尺 寸，并注意粘牢于附页粘贴处。3. 实验报告封面中的“实验名称”应为实验教学大纲上所列的规范名称, “实验地点”应写出实验室的具体名称。请确认无误后再填写。4. 实验报告的建议格式为：一、实验目的和要求；二、主要实验仪器和设备；三、本次实验内容（-）实验项目名称（按本次实验各项目填写）1、原理或接线图2、实验步骤及注意事项3、实验预习过程中所遇到问题四、实验记录及数据处理（主要内容包括实验具体实施步骤、 实验原始数据、计算过程与结果、数据曲线、图表等。具体 格式按指导教师要求）五、实验结论（主要内容包括本实验小结、实验体会或疑 问等。具体格式按指导教师要求）5. 实验成绩由实验预习、实验表现、实验报告三部分组成。其中前两项 各占总成绩的30知实验报告成绩依据报告的科学性、全面性、规范性及书写态 度综合考核。实验报告采用百分制，占实验总成绩的40%,教师请阅本报告 后需签字并给出实验报告百分制成绩。6. 实验报告需按要求时间以班级为单位交给指导教师，最长时间不得超过 两周，实验报告如有明显抄袭者或不交者，实验总评成绩按0分记。一、实验目的通过实验掌握vb的选择和循环结构程序设计方法。二、实验设备1. PC机一台；2. VB 6.0集成开发环境。三、实验内容及要求1.勾股定理中3个数的关系为/+厌=3，编写程序输出30以内所有满足勾股 定理的整数组合。显式结果如下，注意显示格式整齐。着符合勾股定理的30以内的整戳，日回区305075635075005995605511211121121223222223 =_ = 一 _ = 一 = = 一 = = = = _ = 一 _= CCCCCCCCCCCCCCCCCCCCCC2 4 5 2 4 6 0 2 4 5 10 O 8 4318261125918212122711 =一 = = 一 = = 一 = = = = = = 一 = bbbbbbbbbbbbbbbbbbbbbb02225568001444 3456788911111111222222 =一一=一一=一一=一一=一一= aaaaaaaaaaaaaaaaaaaaaa123458739101112131415161718132021222. 使用VB设计一个关于抑郁心理的测试。使用者对以下10个问题进行回答, 并根据回答结果给出结论。 总是觉得闷闷不乐，情绪低沉； 很想或者一阵阵的哭出来； 晚上睡眠不好； 发觉体重在下降； 觉得以前经常做的事情，现在总是有困难； 对将来感觉没有什么希望； 做出决定很不容易； 比平常容易激动； 坐立不安难以保持平静； 无缘无故感到疲乏。每个问题都有A.很少有B.有时有C.经常有D.绝大部分时间有 四个选项，其 中A为5分，B为3分，C为1分，D为0分。总计5分及以下为抑郁情绪严重; 总计519分为有一定抑郁倾向；总计20分及以上为无抑郁问题。程序运行界面如下：四、说明事件过程驱动顺序：单击“开始测试”命令按钮，显示下一题题目；单击ABCD选项按钮，得分增加，题目编号增加，调用单击“开始测试按钮”的事件过程如果题目编号到11,显示最后结果在某个事件过程中调用另外一个事件过程的方法:直接书写其sub过程名称五、程序代码草稿六、实验结果1.符合勾股定理的30以内的整数代码：Private Sub Form_clickQDim a As Integer, b As Integer, c As Integer, n As IntegerShowForm 1.Height = 5700PrintPrintPrint Spc(17); naA2+bA2=cA2lfPrintPrintn = 0For a = 1 To 30For b = 1 To 30For c = 1 To 30Ifa A2 + b A2 = c A2Thenn = n + 1Prrnt n; ”二 Tab(7); Ha=H; a; Tab(22); ”b=”; b; Tab(36); ”c=”; cEnd IfNext cNext bNext aEnd Sub运行截图:2 .心理测试代码：Public sum As Iiitegei; n As IntegerPrivate Sub Form_Load()Shown = 0sum = 0Lal nLa2 n, sumEnd SubPrivate Sub Command l_Click()If n > 0 And n < 12 Thenn = n + 1sum = sum + 5Lal nLa2 n, sumEnd IfEnd SubPrivate Sub Command2_Chck()If n > 0 And n < 12 Thenn = n + 1sum = sum + 3Lal nLa2 n, sumEnd IfEnd SubPrivate Sub Conmiand3_Click()If n > 0 And n < 12 Thenn = n + 1sum = sum + 1Lal nLa2 n, sumEnd IfEnd SubPrivate Sub Command4_Click()If n > 0 And n < 12 Thenn = n + 1sum = sum + 0Lal nLa2 n, sumEnd IfEnd SubPrivate Sub Command5_Click()n = 1sum = 0Lal nLa2 n, sumEnd SubPrivate Sub Lal(n As Integer)Select Case nCase 0Label 1.Caption = ”心理测试"Case 1Label 1.Caption ="总是觉得闷闷不乐，情绪低沉"Case 2Label 1.Caption = "很想或者一阵阵的哭出来”Case 3Label 1.Caption = ”晚上睡眠不好”Case 4Label 1.Caption = ”发觉体重在下降”Case 5Label 1.Caption = ”觉得以前经常做的事情，现在总是有困难”Case 6Label 1.Caption = ”对将来感觉没有什么希望”Case 7Label 1.Caption ="做出决定很不容易”Case 8Label 1.Caption = ”比平常容易激动”Case 9Label 1.Caption = "坐立不安难以保持平静”Case 10Label 1.Caption = n®无缘无故感到疲乏?”Case 11Label 1.Caption = ,u,End SelectEnd SubPrivate Sub La2(n As Integer, sum As Integer)If n = 0 ThenLabel2. Caption =Elself n < 11 ThenLabel2.Caption = "A.很少有B.有时有C.经常有D.绝大部分时间有” ElseSelect Case sumCase Is < 5Label2.Caption ="抑郁情绪严重”Case Is < 19Label2.Caption =”有一定抑郁倾向”Case ElseLabel2.Caption ="无抑郁问题”End SelectEnd IfEnd Sub截图:勺 15-39 Tor aldoe七、实验中遇到的问题与解决方法或实验收获注：附页可粘贴于此页，注意粘贴整齐，不要超过页面边界。
