实验四 程序控制结构.doc

实验四 程序控制结构一 、实验目的1 掌握顺序结构语句（赋值、输出、注释、程序终止等）的使用。2 掌握单分支、双分支、多分支条件语句的使用。3 掌握For语句、While语及Do语句的各种形式的使用。4 掌握如何控制循环条件，防止死循环或不循环。二 、实验内容设计一个程序，从文本框中输入一个整数，判断该整数的奇偶性，并将结果显示在一个标签上。要求该程序可反复输入。 1)创建界面（将设计好的界面截下来粘贴在下面）2) 以表格形式进行属性设置（写出所有非默认属性值的设置）3) 代码设计Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x Mod 2 = 0 Then Label2.Caption = x & 是偶数。 Else Label2.Caption = x & 是奇数。 End IfEnd SubPrivate Sub Command2_Click() Text1.Text = Label2.Caption = End Sub4) 调试过程记录（错误情况及改正方法，不得少于三条）2创建一个窗体，通过文本框接收数据，计算期末总成绩、平均成绩，再评定等级。等级评定标准是：平均分90100为“优秀”，平均分8190为“良好”，平均分6080为“中等”，平均分60以下为“差”，程序运行结果如下所示。（参考教材P87例5.3）1）代码设计2）运行后的结果 （将运行结果的界面截下来粘贴在下面）3）调试过程记录（错误情况及改正方法，不得少于三条）3. 设计一个程序实现输入销售金额，系统自动算出该销售员的奖金，要求用文本框输入销售额，奖金显示在标签。商场对售货员的奖励机制如下：若销售额大于或等于20 000元，则提取10%作为奖励；若销售额大于或等于15 000元小于20 000元则提取8%作为奖励；若销售额大于或等于10 000元小于15 000元则提取6%作为奖励；若销售额小于或等于10 000元，则提取5%作为奖励。Private Sub Command1_Click()Dim s!s = Val(Text1.Text)If s = 20000 ThenLabel3.Caption = s * 0.1ElseIf s = 15000 ThenLabel3.Caption = s * 0.08ElseIf s = 10000 ThenLabel3.Caption = s * 0.06ElseLabel3.Caption = s * 0.05End IfEnd Sub1. 设计一个程序：用For 循环语句计算1 n (正整数)的所有的偶数之和。要求: 程序运行后，单击窗体弹出一个输入框由用户输入n的值，然后在窗体上显示计算的结果。1）代码设计如下Private Sub Form_Click()Dim n%, i%, s&n = Val(InputBox(请输入一个正整数：)s = 0PrintPrintFor i = 1 To n If i Mod 2 = 0 Then s = s + i End IfNext iPrint Tab(4); 1 & n & (正整数)的所有的偶数之和为 & sEnd Sub2）将输入100 时的运行结果的界面截下来粘贴在下面：3）调试过程记录（错误情况及改正方法）2设计程序：求100 以内所有19的倍数的数。并求这些数的和。 要求：点击“显示”按钮时，将结果显示在窗体上。点击“求和”按钮时，将结果显示在一个文本框中。1）代码设计如下Dim s&Private Sub Command1_Click()Dim i%PrintFor i = 1 To 100If i Mod 19 = 0 ThenPrint “100 以内所有19的倍数的数” & i;s = s + iEnd IfNext iEnd SubPrivate Sub Command2_Click()Text1.Text = sEnd Sub2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错误情况及改正方法）3. 设计一个程序：我国今年的国民生产总值为45600亿元，若今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番？ 要求：单击“计算”按钮时，将计算的结果显示在窗体上。1）代码设计Private Sub Command1_Click()Dim p As DoubleDim r As SingleDim n As Integerp = 45600r = 0.09n = 0PrintDo Until p = 45600 * 2 p = p * (1 + r) n = n + 1LoopPrint Tab(3); n; 年后 & 能实现国民生产总值翻一番End Sub2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错误情况及改正方法）4. 编写一个程序，点击窗体时在窗体上输出100到999内所有水仙花数（水仙花数是指一个三位十进制正整数，该数的各位数字的立方之和等于该数本身，例如153是个水仙花数，因为13+53+33 =153）。1）代码设计Private Sub Form_Click()Dim i%, a%, b%, c%i = 100PrintWhile i 1000 a = i 100 b = (i Mod 100) 10 c = (i