VB实验报告 选择和循环结构程序设计
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
单击ABCD选项按钮，得分增加，题目编号增加，调用单击“开始测试按钮”的事件过程
如果题目编号到11，显示最后结果
在某个事件过程中调用另外一个事件过程的方法:直接书写其sub过程名称
五、程序代码草稿
六、实验结果
1.符合勾股定理的30以内的整数
代码：
Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer, n As Integer
Else
Select Case sum
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.绝大部分时间有"
一、实验目的和要求；
二、主要实验仪器和设备；
三、本次实验内容
（一）实验项目名称（按本次实验各项目填写）
1、原理或接线图
2、实验步骤及注意事项
3、实验预习过程中所遇到问题
……
四、实验记录及数据处理（主要内容包括实验具体实施步骤、实验原始数据、 计算过程与结果、 数据曲线、 图表等。 具体格式按指导教师要求）
⑩无缘无故感到疲乏。
每个问题都有A.很少有B.有时有C.经常有D.绝大部分时间有四个选项，其中A为5分，B为3分，C为1分，D为0分。总计5分及以下为抑郁情绪严重；总计5~19分为有一定抑郁倾向；总计20分及以上为无抑郁问题。
程序运行界面如下：
四、说明
事件过程驱动顺序：
单击“开始测试”命Baidu Nhomakorabea按钮，显示下一题题目；
Case 2
Label1.Caption = "②很想或者一阵阵的哭出来"
Case 3
Label1.Caption = "③晚上睡眠不好"
Case 4
Label1.Caption = "④发觉体重在下降"
Case 5
Label1.Caption = "⑤觉得以前经常做的事情，现在总是有困难"
Case 6
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
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
Label1.Caption = "⑥对将来感觉没有什么希望"
Case 7
Label1.Caption = "⑦做出决定很不容易"
Case 8
Label1.Caption = "⑧比平常容易激动"
Case 9
Label1.Caption = "⑨坐立不安难以保持平静"
Case 10
Label1.Caption = "⑩无缘无故感到疲乏?"
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
6. 实验报告需按要求时间以班级为单位交给指导教师，最长时间不得超过两周，实验报告如有明显抄袭者或不交者，实验总评成绩按 0 分记。
一、实验目的
通过实验掌握vb的选择和循环结构程序设计方法。
二、实验设备
1．PC机一台；2．VB 6.0集成开发环境。
三、实验内容及要求
1.勾股定理中3个数的关系为 ，编写程序输出30以内所有满足勾股定理的整数组合。显式结果如下，注意显示格式整齐。
南京工程学院
电力工程学院
2010/2011学年第2学期
实验报告
课程名称VB语言程序设计
实验项目名称选择和循环结构程序设计
实验学生班级
实验学生姓名
同组学生姓名
实验时间2011年3月21 日
实验地点电力工程基础实验室
实验报告成绩：评阅教师签字：
年 月 日
电力工程学院二OO七年制
说 明
1. 实验报告为实验的重要考核依据之一， 每个实验必须定一份实验报告. 本实验报告原则上要求手写。
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
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
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 = "①总是觉得闷闷不乐，情绪低沉"
2.本实验报告各项内容的具体格式、字数可由指导教师根据实验具体情况提出具体要求。各项内容可另附页，为便于归档，附页尺寸不得大于本实验报告尺寸，并注意粘牢于附页粘贴处。
3. 实验报告封面中的 “实验名称” 应为实验教学大纲上所列的规范名称， “实验地点”应写出实验室的具体名称。请确认无误后再填写。
4. 实验报告的建议格式为：
2.使用VB设计一个关于抑郁心理的测试。使用者对以下10个问题进行回答，并根据回答结果给出结论。
①总是觉得闷闷不乐，情绪低沉；
②很想或者一阵阵的哭出来；
③晚上睡眠不好；
④发觉体重在下降；
⑤觉得以前经常做的事情，现在总是有困难；
⑥对将来感觉没有什么希望；
⑦做出决定很不容易；
⑧比平常容易激动；
⑨坐立不安难以保持平静；
五、实验结论（主要内容包括本实验小结、 实验体会或疑问等。具体格式按指导教师要求）
5. 实验成绩由实验预习、实验表现、 实验报告三部分组成。其中前两项各占总成绩的30%。实验报告成绩依据报告的科学性、全面性、规范性及书写态度综合考核。 实验报告采用百分制， 占实验总成绩的40%， 教师请阅本报告后需签字并给出实验报告百分制成绩。
如果题目编号到11，显示最后结果
在某个事件过程中调用另外一个事件过程的方法:直接书写其sub过程名称
五、程序代码草稿
六、实验结果
1.符合勾股定理的30以内的整数
代码：
Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer, n As Integer
Else
Select Case sum
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.绝大部分时间有"
一、实验目的和要求；
二、主要实验仪器和设备；
三、本次实验内容
（一）实验项目名称（按本次实验各项目填写）
1、原理或接线图
2、实验步骤及注意事项
3、实验预习过程中所遇到问题
……
四、实验记录及数据处理（主要内容包括实验具体实施步骤、实验原始数据、 计算过程与结果、 数据曲线、 图表等。 具体格式按指导教师要求）
⑩无缘无故感到疲乏。
每个问题都有A.很少有B.有时有C.经常有D.绝大部分时间有四个选项，其中A为5分，B为3分，C为1分，D为0分。总计5分及以下为抑郁情绪严重；总计5~19分为有一定抑郁倾向；总计20分及以上为无抑郁问题。
程序运行界面如下：
四、说明
事件过程驱动顺序：
单击“开始测试”命Baidu Nhomakorabea按钮，显示下一题题目；
Case 2
Label1.Caption = "②很想或者一阵阵的哭出来"
Case 3
Label1.Caption = "③晚上睡眠不好"
Case 4
Label1.Caption = "④发觉体重在下降"
Case 5
Label1.Caption = "⑤觉得以前经常做的事情，现在总是有困难"
Case 6
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
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
Label1.Caption = "⑥对将来感觉没有什么希望"
Case 7
Label1.Caption = "⑦做出决定很不容易"
Case 8
Label1.Caption = "⑧比平常容易激动"
Case 9
Label1.Caption = "⑨坐立不安难以保持平静"
Case 10
Label1.Caption = "⑩无缘无故感到疲乏?"
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
6. 实验报告需按要求时间以班级为单位交给指导教师，最长时间不得超过两周，实验报告如有明显抄袭者或不交者，实验总评成绩按 0 分记。
一、实验目的
通过实验掌握vb的选择和循环结构程序设计方法。
二、实验设备
1．PC机一台；2．VB 6.0集成开发环境。
三、实验内容及要求
1.勾股定理中3个数的关系为 ，编写程序输出30以内所有满足勾股定理的整数组合。显式结果如下，注意显示格式整齐。
南京工程学院
电力工程学院
2010/2011学年第2学期
实验报告
课程名称VB语言程序设计
实验项目名称选择和循环结构程序设计
实验学生班级
实验学生姓名
同组学生姓名
实验时间2011年3月21 日
实验地点电力工程基础实验室
实验报告成绩：评阅教师签字：
年 月 日
电力工程学院二OO七年制
说 明
1. 实验报告为实验的重要考核依据之一， 每个实验必须定一份实验报告. 本实验报告原则上要求手写。
Show
Form1.Height = 5700
Print Spc(17); "a^2+b^2=c^2"
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
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
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 = "①总是觉得闷闷不乐，情绪低沉"
2.本实验报告各项内容的具体格式、字数可由指导教师根据实验具体情况提出具体要求。各项内容可另附页，为便于归档，附页尺寸不得大于本实验报告尺寸，并注意粘牢于附页粘贴处。
3. 实验报告封面中的 “实验名称” 应为实验教学大纲上所列的规范名称， “实验地点”应写出实验室的具体名称。请确认无误后再填写。
4. 实验报告的建议格式为：
2.使用VB设计一个关于抑郁心理的测试。使用者对以下10个问题进行回答，并根据回答结果给出结论。
①总是觉得闷闷不乐，情绪低沉；
②很想或者一阵阵的哭出来；
③晚上睡眠不好；
④发觉体重在下降；
⑤觉得以前经常做的事情，现在总是有困难；
⑥对将来感觉没有什么希望；
⑦做出决定很不容易；
⑧比平常容易激动；
⑨坐立不安难以保持平静；
五、实验结论（主要内容包括本实验小结、 实验体会或疑问等。具体格式按指导教师要求）
5. 实验成绩由实验预习、实验表现、 实验报告三部分组成。其中前两项各占总成绩的30%。实验报告成绩依据报告的科学性、全面性、规范性及书写态度综合考核。 实验报告采用百分制， 占实验总成绩的40%， 教师请阅本报告后需签字并给出实验报告百分制成绩。