南京工程学院

电力工程学院

2010/ 20## 学年    第  2   学期

实   验   报  告

课程名称     VB语言程序设计   

实验项目名称  选择和循环结构程序设计

实验学生班级                

实验学生姓名        

同组学生姓名                         

实验时间     2011年3月21 日  

实验地点   电力工程基础实验室  

   实验报告成绩：          评阅教师签字：             

      年    月    日

电力工程学院二O##年制

说  明

1. 实验报告为实验的重要考核依据之一， 每个实验必须定一份实验报告. 本实验报告原则上要求手写。

2.本实验报告各项内容的具体格式、字数可由指导教师根据实验具体情况提出具体要求。各项内容可另附页，为便于归档，附页尺寸不得大于本实验报告尺寸，并注意粘牢于附页粘贴处。

3. 实验报告封面中的 “实验名称” 应为实验教学大纲上所列的规范名称， “实验地点”应写出实验室的具体名称。请确认无误后再填写。

4. 实验报告的建议格式为：

一、实验目的和要求；

二、主要实验仪器和设备；

三、本次实验内容

（一）实验项目名称（按本次实验各项目填写）

1、原理或接线图

2、实验步骤及注意事项

3、实验预习过程中所遇到问题

……

四、实验记录及数据处理（主要内容包括实验具体实施步骤、            实验原始数据、 计算过程与结果、 数据曲线、 图表等。 具体           格式按指导教师要求）

五、实验结论（主要内容包括本实验小结、 实验体会或疑            问等。具体格式按指导教师要求）

     5. 实验成绩由实验预习、实验表现、 实验报告三部分组成。其中前两项各占总成绩的30%。实验报告成绩依据报告的科学性、全面性、规范性及书写态度综合考核。 实验报告采用百分制， 占实验总成绩的40%， 教师请阅本报告后需签字并给出实验报告百分制成绩。

     6. 实验报告需按要求时间以班级为单位交给指导教师，最长时间不得超过两周，实验报告如有明显抄袭者或不交者，实验总评成绩按 0 分记。

一、实验目的

通过实验掌握vb的选择和循环结构程序设计方法。

二、实验设备

1．PC机一台；2．VB 6.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以内的整数

代码：

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 = "③晚上睡眠不好"

        Case 4

            Label1.Caption = "④发觉体重在下降"

        Case 5

            Label1.Caption = "⑤觉得以前经常做的事情，现在总是有困难"

        Case 6

            Label1.Caption = "⑥对将来感觉没有什么希望"

        Case 7

            Label1.Caption = "⑦做出决定很不容易"

        Case 8

            Label1.Caption = "⑧比平常容易激动"

        Case 9

            Label1.Caption = "⑨坐立不安难以保持平静"

        Case 10

            Label1.Caption = "⑩无缘无故感到疲乏?"

        Case 11

            Label1.Caption = ""

    End Select

End Sub

Private Sub La2(n As Integer, sum As Integer)

If n = 0 Then

    Label2.Caption = ""

ElseIf n < 11 Then

    Label2.Caption = "A. 很少有 B.有时有 C.经常有 D.绝大部分时间有"

Else

    Select Case sum

            Case Is < 5

                Label2.Caption = "抑郁情绪严重"

            Case Is < 19

                Label2.Caption = "有一定抑郁倾向"

            Case Else

                Label2.Caption = "无抑郁问题"

     End Select

End If

End Sub

截图：

①

②

③

④

七、实验中遇到的问题与解决方法或实验收获

注：附页可粘贴于此页，注意粘贴整齐，不要超过页面边界。

 

第二篇：VB循环结构实验报告

实     验     报      告

（   2011  —2012     学年第 2   学期）

课程名称：计算机程序设计（VB）

姓    名：

学    院：

专    业：

年    级：      2011  级       

学    号：

实      验      报      告

2012  年   4 月   17 日   第   9.10  节        综合 楼        525               号室