课程设计报告书高分子14107蔡铃

高分子14-114014240107蔡铃1广东石油化工学院程序设计基础课程设计报告书题目：肥胖程度的判定院级：化学工程学院专业：高分子材料与工程班级:高分子14-1学号：14014240107姓名：蔡铃指导老师:李金瑞完成时间：2015年06月02日至2015年06月20日高分子14-114014240107蔡铃2一、设计目的专业知识有机地结合起来，锻炼学生分析问题，解决问题的能力，实现学以致用的教学目标。二、实验设备计算机三．实验内容综合运用课程所学的知识，编程解决一个与专业相关的问题。四、实验要求所解决的问题必须与专业知识结合；分组合作或自行设计，严禁抄袭。五、题目描述根据输入的身高体重数据进行程序运算得到人体指标，根据指标分析，判断人体肥胖程度并提出合理建议。六、问题分析利用二个不同的计算公式对输入的数据进行处理，结果会得到人体健康指标，这个指标在不同的范围内时代表着人体不同的健康水平。Cases+0.3*sTos+0.5*sLabel6.Caption=评价为：中度肥胖&体质指数为:&bCases+0.2*sTos+0.3*sLabel6.Caption=评价为：轻度肥胖&体质指数为:&bCases+0.1*sTos+0.2*s高分子14-114014240107蔡铃3Label6.Caption=评价为：超重&体质指数为:&bCases-0.1*sTos+0.1*sLabel6.Caption=评价为：正常&体质指数为:&bCases-0.2*sTos-0.1*sLabel6.Caption=评价为：轻度营养不良&体质指数为:&bCases-0.3*sTos-0.2*sLabel6.Caption=评价为：中度营养不良&体质指数为:&bCaseIss-0.3*sLabel6.Caption=评价为：重度营养不良&体质指数为:&b再根据公式计算出的结果判定人体肥胖程度。七、算法设计登录界面包括姓名密码输入数据计算结果判断肥胖程度并给出合理建议高分子14-114014240107蔡铃4PrivateSub选择姓名_Change()EndSubPrivateSubCommand1_Click()Staticn%Dimxm$,mm$xm=Combo1.Textmm=Text1n=n+1Ifxm=蔡铃Andmm=123Orxm=李四Andmm=456Orxm=王五Andmm=789Theny=MsgBox(密码正确，身份验证通过！)Form2.ShowUnloadMeElseIfn=3ThenMsgBoxStr(n)+次密码错误，谢谢呵！:Endy=MsgBox(密码错误，再来一次)Combo1.Text=Text1=EndIfEndSubPrivateSubForm_Load()Combo1.AddItem蔡铃Combo1.AddItem李四Combo1.AddItem王五高分子14-114014240107蔡铃5Text1.PasswordChar=*Text1=EndSubPrivateSubImage1_Click()EndSubPrivateSubCommand1_Click()Val(t1.Text)Val(t2.Text)Dims#,b#IfIsNumeric(t1.Text)=TrueAndIsNumeric(t2.Text)=TrueThenIfOp1.Value=TrueThens=t1.Text-1.05b=t2.Text/(t1.Text*t1.Text)高分子14-114014240107蔡铃6ElseIfOp2.Value=TrueThens=(t1.Text-1)*0.9b=t2.Text/(t1.Text*t1.Text)ElseIftemp=MsgBox(请选择体重算法,vbOKOnly,警告)ThenEndIfElsetemp=MsgBox(请输入正确的身高和体重,vbOKOnly,警告)EndIfSelectCasesCaseIss+0.5*sLabel6.Caption=评价为：重度肥胖&体质指数为:&bCases+0.3*sTos+0.5*sLabel6.Caption=评价为：中度肥胖&体质指数为:&bCases+0.2*sTos+0.3*sLabel6.Caption=评价为：轻度肥胖&体质指数为:&bCases+0.1*sTos+0.2*sLabel6.Caption=评价为：超重&体质指数为:&bCases-0.1*sTos+0.1*sLabel6.Caption=评价为：正常&体质指数为:&bCases-0.2*sTos-0.1*sLabel6.Caption=评价为：轻度营养不良&体质指数为:&bCases-0.3*sTos-0.2*s高分子14-114014240107蔡铃7Label6.Caption=评价为：中度营养不良&体质指数为:&bCaseIss-0.3*sLabel6.Caption=评价为：重度营养不良&体质指数为:&bEndSelectEndSubPrivateSubCommand2_Click()Val(t1.Text)Val(t2.Text)DimbAsSingleIfcb1.ListIndex=-1AndIsNumeric(t1.Text)=FalseAndIsNumeric(t2.Text)=FalseAndOp3.Value=FalseAndOp4.Value=FalseThentemp=MsgBox(请输入正确的身高体重，选择年龄段和标准,vbOKOnly,警告)Op3.Value=Truecb1.ListIndex=0temp=MsgBox(默认帮你选择了成年人和中国标准了喔,vbOKOnly,警告)ElseIfIsNumeric(t1.Text)=FalseOrIsNumeric(t2.Text)=FalseAndcb1.ListIndex=-1AndOp3.Value=TrueAndOp4.Value=FalseThentemp=MsgBox(请输入正确的身高体重，选择年龄段,vbOKOnly,警告)高分子14-114014240107蔡铃8temp=MsgBox(默认帮你选择了成年人了喔,vbOKOnly,警告)cb1.ListIndex=0ElseIfIsNumeric(t1.Text)=FalseOrIsNumeric(t2.Text)=FalseAndcb1.ListIndex=-1AndOp3.Value=FalseAndOp4.Value=TrueThentemp=MsgBox(请输入正确的身高体重，选择年龄段,vbOKOnly,警告)temp=MsgBox(默认帮你选择了成年人了喔,vbOKOnly,警告)cb1.ListIndex=0ElseIfIsNumeric(t1.Text)=FalseOrIsNumeric(t2.Text)=FalseAndNotcb1.ListIndex=-1AndOp3.Value=FalseAndOp4.Value=FalseThentemp=MsgBox(请输入正确的身高体重和标准,vbOKOnly,警告)temp=MsgBox(默认帮你选择了中国标准了喔,vbOKOnly,警告)Op3.Value=TrueElseIfIsNumeric(t1.Text)=TrueAndIsNumeric(t2.Text)=TrueAndcb1.ListIndex=-1AndOp3.Value=FalseAndOp4.Value=FalseThentemp=MsgBox(请选择年龄段和标准,vbOKOnly,警告)Op3.Value=True高分子14-114014240107蔡铃9cb1.ListIndex=0temp=MsgBox(默认帮你选择了成年人和中国标准了喔,vbOKOnly,警告)ElseIfIsNumeric(t1.Text)=FalseOrIsNumeric(t2.Text)=FalseAndNotcb1.ListIndex=-1AndOp3.Value=TrueAndOp4.Value=FalseThentemp=MsgBox(请输入正确的身高和体重,vbOKOnly,警告)temp=MsgBox(帮你到这里了，自己输入吧,vbOKOnly,警告)ElseIfIsNumeric(t1.Text)=FalseOrIsNumeric(t2.Text)=FalseAndNotcb1.ListIndex=-1AndOp3.Value=FalseAndOp4.Value=TrueThentemp=MsgBox(帮你到这里了，自己输入吧,vbOKOnly,警告)ElseIfcb1.ListIndex=-1AndIsNumeric(t1.Text)=TrueAndIsNumeric(t2.Text)=TrueAndOp3.Value=TrueAndOp4.Value=FalseThentemp=MsgBox(请选择年龄段,vbOKOnly,警告)temp=MsgBox(默认帮你选择了成年人,vbOKOnly,警告)cb1.ListIndex=0ElseIfcb1.ListCount=-1AndIsNumeric(t1.Text)=TrueAnd高分子14-114014240107蔡铃10IsNumeric(t2.Text)=TrueAndOp3.Value=FalseAndOp4.Value=TrueThentemp=MsgBox(请选择年龄段,vbOKOnly,警告)temp=MsgBox(默认帮你选择了成年人,vbOKOnly,警告)cb1.ListIndex=0ElseIfIsNumeric(t1.Text)=TrueAndIsNumeric(t2.Text)=TrueAndNotcb1.ListIndex=-1AndOp3.Value=FalseAndOp4.Value=FalseThentemp=MsgBox(请选择标准,vbOKOnly,警告)Op3.Value=Truetemp=MsgBox(默认帮你选择了中国标准了喔,vbOKOnly,警告)EndIfIfcb1.ListIndex=0AndIsNumeric(t1.Text)=TrueAndIsNumeric(t2.Text)=TrueThenIfOp3.Value=TrueThenb=t2.Text/(t1.Text*t1.Text)SelectCasebCaseIs=28Label7.Caption=按照中国成人胖标准，你属于肥胖,你为中国的肥胖率做贡献了喔,该减减了高分子14-114014240107蔡铃11temp=MsgBox(鉴于你肥嘟嘟，给你弹出肥胖的危害,vbOKOnly,我是标题君)temp=MsgBox(自动帮你选择了类型,vbOKOnly,我是标题君)Case24#To28#Label7.Caption=按照中国成人胖标准，你属于超体重,你现在是一个有点胖的中国人喔temp=MsgBox(自动帮你选择了类型,vbOKOnly,我是标题君)Case18.5To23.9Label7.Caption=按照中国成人胖标准，你属于正常范围,你是个不胖不瘦的中国人,可以的话就保持吧CaseIs18.5Label7.Caption=按照中国成人胖标准，你属于体重过低,你现在是一个瘦瘦的中国人了temp=MsgBox(自动帮你选择了类型,vbOKOnly,我是标题君)EndSelectElseIfOp4.Value=TrueAndIsNumeric(t1.Text)=TrueAnd高分子14-114014240107蔡铃12IsNumeric(t2.Text)=TrueThenb=t2.Text/(t1.Text*t1.Text)SelectCasebCaseIs=30Label7.Caption=按照WHO成人标准，你属于肥胖,你太胖了,该减减了temp=MsgBox(鉴于你肥嘟嘟，给你弹出肥