VB实验报告条件结构.docVIP

实 验 报 告 2012 年 月 日 第 节 综合 楼 号室 进入实验室 时间 进入时仪器 设备状况 离开实验室 时间 离开时仪器 设备状况 机器号 实验项目名称 条件结构程序设计 一、实验目的 二、实验内容 3.1 给定三角形的三条边长，计算三角形的3.2 税务部门征收所得税3.3 编制程序，计算某个学生奖学金的等级3.4 用文本框输入3个不同的数，将它们从大到小排序，并输出3.1 给定三角形的三条边长，计算三角形的Private Sub Form_Click() Dim a, b, c, s, t As Single start: a = InputBox(请输入A边的边长, 计算三角形的面积) a = Val(a) If a = -1 Then End b = InputBox(请输入B边的边长, 计算三角形的面积) b = Val(b) c = InputBox(请输入C边的边长, 计算三角形的面积) c = Val(c) If (a + b = c) Or (a + c = b) Or (c + a = b) Then MsgBox 所输入的值不能构成三角形，请重新输入 GoTo start End If s = (a + b + c) / 2 t = Sqr(s * (s - a) * (s - b) * (s - c)) Print 三角形的面积为:; t End Sub 程序界面 3.2 税务部门征收所得税Private Sub Form_Click() Dim r, tax! r = InputBox(请输入您的收入, 计算个人所得税) r = Val(r) If r 200 Then tax = 0 ElseIf r = 200 And r 400 Then tax = (r - 200) * 0.03 ElseIf r = 400 And r 5000 Then tax = (r - 400) * 0.04 ElseIf r = 5000 Then tax = (r - 400) * 0.05 End If Print 收入; r; 应纳税; tax End Sub 程序界面 3.3 编制程序，计算某个学生奖学金的等级Private Sub Cmd1_Click() Dim a%, b%, c%, s% a = Val(Txt1) b = Val(Txt2) c = Val(Txt3) s = a + b + c If s = 285 Or (a = 100 And b = 100 And c = 80 Or _ a - 100 And c = 100 And b 80 Or b = 100 And _ c = 100 And a = 80) Then Lbl4 = 奖学金等级为：一等奖 ElseIf s = 270 Or (a = 100 And b = 75 And c = 75 _ Or b = 100 And a = 75 And c = 75 Or c = 100 And _ a = 75 And b = 75) Then Lbl4 = 奖学金等级为:二等奖 ElseIf a = 70 And b = 70 And c = 70 Then Else Lbl4 = 不能评上奖学金 End If End Sub 程序界面 3.4 用文本框输入3个不同的数，将它们从大到小排序，并输出Private Sub Cmd1_Click() Dim a As Single, b As Single, c As Single, d As Single a = Val(Txt1) b = Val(Txt2) c = Val(Txt3) If a b Then d = a: a = b: b = d End If If a c Then d = a: a = c: c = d End If If b c Then d = b: b = c: c = d End If Lbl1.Caption = a Lbl2.Caption = b Lbl3.Caption = c End Sub 程序界面 四、存在问题及解决方法 评语：