计算机实验报告3..pdfVIP

计 算 机 实 验 报 告 班级： 实验人： 时间： 课程名称 VB程序设计。 指导教师 1.计算三角形的三边长和面积。 实验名称 2.判断一个数的奇偶性。 1. 熟练命令按钮、文本框和标签常用属性值的设置方法。 实验目的 2. 制作一个根据成绩的查询获奖信息。 实验内容与主要步骤 【实验内容】1.在命令按钮中编辑InputBox函数，单击 “确定”按 钮时显示InputBox的对话框，在其中输入三个数单击 “确定”按钮显示 三角形的三边长和面积依次为a,b,c,s。 2.根据下列截图制作一个根据成绩的查询获奖信息。 【 实 验 要 求 与 步 骤 】 PrivateSubCommand1_Click() DimaAsSingle,bAsSingle,cAsSingle DimpAsSingle,sAsSingle a Val(InputBox(请输入第一个数)) b Val(InputBox(请输入第二个数)) c Val(InputBox(请输入第三个数)) flag 0 Ifa0Andb0Andc0Then Ifa+bcAndb+caAnda+cbThen flag 1 p (a+b+c)/2 s Sqr(p*(p-a)*(p-b)*(p-c)) Print三角形的三边长和面积依次为;a,b,c,s EndIf EndIf Ifflag 0ThenPrint这三个数不能构成三角形 EndSub PrivateSubCommand1_Click() Dimm1%,m2%,m3% Dimpjf! m1 Val(Text1.Text) m2 Val(Text2.Text) m3 Val(Text2.Text) pjf (m1+m2+m3)/3 Ifpjf95Or(m1 100Andm2 100Andm3 80)Or(m1 100Andm2 80Andm3 100)Or(m1 80Andm2 100Andm3 100)Then Label4.Caption 一等奖 ElseIfpjf90 Or(m1 100And m2 75And m3 75)Or(m1 75 And m2 75And m3 100)Or (m1 75And m2 100And m3 75) Then Label4.Caption 二等奖 ElseIfm1 70Andm1 70Andm1 70Then Label4.Caption 二等奖 Else Label4.Caption 不得奖，继续努力 EndIf EndSub 3. 实验总结：通过本次学习，我熟练命令按钮、文本框和标签常用属性 值的设置方法；学会了InputBox应用。 说明：实验内容与主要步骤若不够，另附页。