VB实验报告 择和循环结构程序设计.docVIP

南京工程学院 电力工程学院 2010/ 2011 学年 第 2 学期 实验报告 一、实验目的 三、实验内容及要求 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以内的整数 代码： Private Sub Form_click() Dim a As Integer, b As Integer, c As Integer, n As Integer Show Form1.Height = 5700 Print Print Print Spc(17); a^2+b^2=c^2 Print Print n = 0 For 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 b Next a End Sub 运行截图： 2.心理测试 代码： Public sum As Integer, n As Integer Private Sub Form_Load() Show n = 0 sum = 0 La1 n La2 n, sum End Sub Private Sub Command1_Click() If n 0 And n 12 Then n = n + 1 sum = sum + 5 La1 n La2 n, sum End If End Sub Private Sub Command2_Click() If n 0 And n 12 Then n = n + 1 sum = sum + 3 La1 n La2 n, sum End If End Sub Private Sub Command3_Click() If n 0 And n 12 Then n = n + 1 sum = sum + 1 La1 n La2 n, sum End If End Sub Private Sub Command4_Click() If n 0 And n 12 Then n = n + 1 sum = sum + 0 La1 n La2 n, sum End If End Sub Private Sub Command5_Click() n = 1 sum = 0 La1 n La2 n, sum End Sub Private Sub La1(n As Integer) Select Case n Case 0 Label1.Caption = 心理测试 Case 1 Label1.Caption = ①总是觉得闷闷不乐，情绪低沉 Case 2 Label1.Caption = ②很想或者一阵阵的哭出来 Case 3 Label1.Caption = ③晚上睡