第7章VB控制结构.docVIP

第7章 VB控制结构 ? 7．1 编写程序，计算1+2+3+……+100。 方法一： Private Sub Form_Click() Dim Sum As Integer For i = 1 To 100 Sum = Sum + i Next i Print Sum End Sub 方法二： Private Sub Form_Click() Dim Sum As Integer i = 1 While i = 100 Sum = Sum + i i = i + 1 Wend Print Sum End Sub 7．2 我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后增加到16亿。 Private Sub Form_Click() Dim p As Double Dim r As Single Dim n As Integer p = 1200000000 r = 0.01 While p 1600000000 p = p + p * r n = n + 1 Wend p = Int(p) Print n; 年后我国人口达到：; p; 亿 End Sub 7．3 给定三角形的3条边长，计算三角形的面积。编写程序，首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 方法一： Private Sub Form_Click() Dim a As Single,b As Single,c As Single,s As single,t As single Do a = InputBox(请输入A边的边长) b = InputBox(请输入B边的边长) c = InputBox(请输入C边的边长) If a = -1 Or b = -1 Or c = -1 Then End If a + b = c Or b + c = a Or c + a = b Then MsgBox (所输入的值不能构成三角形，重新输入) Else Exit Do End If Loop s = (a + b + c) / 2 t = Sqr(s * (s - a) * (s - b) * (s - c)) Print 三角形面积为：, t End Sub 方法二： Private Sub Form_Click() Dim a As Single,b As Single,c As Single,s As Single,t As Single Start: a = InputBox(请输入A边的边长) b = InputBox(请输入B边的边长) c = InputBox(请输入C边的边长) If a = -1 Or b = -1 Or c = -1 Then End If a + b = c Or b + c = a 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 7．4 税务部门征收所得税，规定如下： （1）收入在200元以内，免征； （2）收入在200~400元，超过200元的部分纳税3%； （3）收入在400元的部分，纳税4%； （4）当收入在5000元或超过时，将4%税金改为5%。 编程序实现上述操作。 Private Sub Form_Click() Dim r As Single r = InputBox(请输入你的收入) 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 7．5 编写程序，打印如下所示的“数字金字塔”。 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 ┇ ┇ 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 Private Sub Form_Click() For i = 1 To 9 For j = 1 To 9 - i Print ;