第一部分  实习目标和要求 …………………………………………..2
一  实习目标………………………………………2
二  实习要求………………………………………2
三、时间安排………………………………………2
第二部分  程序编写…………………………………3
实 习 1 ………………………………………………………..3
实 习 2……………………………………………………… ..3
实 习 3 ……………………………………………………….4
实 习 4……………………………………………………… .5
实 习 5……………………………………………………… .5
实 习 6………………………………………………………..6
实 习 7………………………………………………………..7
实 习 8………………………………………………………..8
实 习 9………………………………………………………..9.
实 习10……………………………………………………….9.
实 习 11………………………………………………………10
实 习 12………………………………………………………11
实 习 13………………………………………………………12
实 习 14………………………………………………………13
实 习 15…………………………………………………… …14
实 习 16……………………………………………………….16
实 习 17……………………………………………………….20
第三部分 总  结…………………………………...22
一、 实习心得……………………………………………………………..22
第一部分  实习目标和要求
一、 实习目标
通过该课程设计的操作与实践，使学生在了解使用VB程序设计方法、掌握面向对象程序设计的相关理论知识和设计技巧的基础上，能够将理论教学中涉及到的知识点 贯穿起来，通过对各个实习任务的练习，应用VB实现测量数据的程序处理；从而提高面向对象程序设计的综合设计能力、应用VB来解决测量中的数据处理等问题的实践能力
二、 实习要求
1．认真努力作业。巩固所学VB语言基本知识。
2．鼓励多种形式的学习活动。如与同学展开讨论，请教老师，查阅图书资料，上网搜索信息等。
3．程序的功能要求。按个人能力可做适当的增减。有能力的，应实现更多的功能。
4．按时提交作业。课程设计作业包括全部VB软件工程文件和课程设计报告。
5．珍惜上机机会。上机期间不做与课程设计无关的事。
6．按照计划进行设计。
三、时间安排
周数
时间
实习内容
指导教师
第
十五
周
第一天
实习任务的安排、组织学生、资料收集（实习1—2）
赵淑湘
第二天
实习（实习3—实习6）
赵淑湘
第三天
实习（实习7—实习11）
赵淑湘
第四天
实习（实习12—实习16）
赵淑湘
第五天
实习17 、成果整理
赵淑湘
第二部分  程序编写
1、判断闰年：年号（intyear）能被4整除，但不能被100
整除；或能被400整除
程序代码：
'函数"rn"的功能是判断年号intyear是否为闰年，rn—闰年
Function rn(intyear As Integer)
If intyear Mod 4 = 0 And intyear Mod 100 <> 0 Then
rn = "闰年"
ElseIf intyear Mod 400 = 0 Then
rn = "闰年"
Else
rn = ""
End If
End Function
运行情况如图1：
图1 函数rn（）的运行界面
2．一元二次议程ax2+bx+c=0存在实根的条件：a不等于0，且b2-4ac大于等于0。
程序代码：
'函数"ryycfc"的功能是判断一元二次方程ax2+bx+c=0是否实根;
'ryycfc --一元二次方程
Function ryycfc(a, b, c)
If a <> 0 And b ^ 2 - 4 * a * c >= 0 Then
  ryycfc = "有实根"
Else
  ryycfc = "无实根"
End If
End Function
运行情况如图2：
图2 函数ryycfc（）的运行界面
3.输入三个数a,b,c,输出三者之中最大数
程序编码：
'函数dxbj的功能是三个数的大小比较，输出最大的数，dxbj的意思是大小比较
Function dxbj(a, b, c)
If a > b And b > c Then
dxbj = a
End If
If a > b And c > b Then
dxbj = a
End If
If b > a And a > c Then
dxbj = b
End If
If b > a And c > a Then
dxbj = b
End If
If c > b And b > a Then
dxbj = c
End If
If c > b And a > b Then
dxbj = c
End If
End Function
运行情况： 如图3
图3函数dxbj（）的运行界面
4.公民缉拿所得税，假定按规定超过800元起征收2%，800——1600元之间征收3%，1600——5000元之间征收4%，5000——20000元之间征收6%，20000——200000元之间征收10%，超过200000征收25%。输入收入，计算出所得税。
程序编码：
'函数ns的功能是计算所得税，ns的意思是个人要缴纳的金额
Function ns(a)
If a <= 800 Then
ns = a * 0.02
End If
If a > 800 And a <= 1600 Then
ns = 800 * 0.02 + (a - 800) * 0.03
End If
If a > 1600 And a <= 5000 Then
ns = 800 * 0.02 + (a - 1600) * 0.04 + (a - 2400) * 0.03
End If
If a > 5000 And a <= 20000 Then
ns = 800 * 0.02 + (a - 1600) * 0.04 + (a - 2400) * 0.03 + (a - 5000) * 0.06
End If
If a > 20000 And a <= 200000 Then
ns = 800 * 0.02 + (a - 1600) * 0.04 + (a - 2400) * 0.03 + (a - 5000) * 0.06 + (a - 20000) * 0.1
End If
If a > 200000 Then
ns = 800 * 0.02 + (a - 1600) * 0.04 + (a - 2400) * 0.03 + (a - 5000) * 0.06 + (a - 20000) * 0.1 + (a - 200000) * 0.25
End If
End Function
运行情况：如图4
图4函数ns（）的运行界面
5.小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子的一半多
一个，以后每天都吃剩下的桃子的一半多一个，到第7天早上要吃时发现只剩下一个，问小猴那天共摘了多少个桃子？
程序编码：
'函数tz的功能是计算小猴那天共摘了多少个桃子
Function tz()
vb编程基础知识 constm = 1
For i = 1 To 6
n = (m + 1) * 2
m = n
Next i
tz = n
End Function
运行情况：如图5
图5函数tz（）的运行界面
6.已知XYZ+YZZ=532，其中X,Y和Z为0~9的数字，编程求出X、Y和Z。
程序编码：
'函数xyz的功能是满足式子XYZ+YZZ=532的成立
Function xyz()
For x = 1 To 9
  For y = 1 To 9
  For z = 0 To 9
  If (100 * x + 10 * y + z) + (100 * y + 10 * z + z) = 532 Then

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。