青岛科技大学vb答案实验四.pdfVIP

实验四 循环结构程序设计（4 个学时） 一 、实验目的 1. 掌握 For 循环语句的使用。 2. 掌握单 Do 循环语句的使用。 3. 掌握如何控制循环条件，防止死循环或不循环。 二 、实验内容 1. 设计一个程序：用For 循环语句计算 1~ n (正整数)的所有的偶数之和。 要求: 程序运行后，单击窗体弹出一个输入框由用户输入 n 的值，然后 在窗体上显示计算的结果。 1）代码设计如下 Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = InputBox(请输入 n 值, n, ) For b = 2 To a If b Mod 2 = 0 Then c = c + b End If Next b Print c 1 End Sub 2）将输入 100 时的运行结果的界面截下来粘贴在下面 3）调试过程记录（错误情况及改正方法） 2 2．设计程序：求 100 以内所有 19 的倍数的数。并求这些数的和。 要求：点击“显示”按钮时，将结果显示在窗体上。 点击“求和”按钮时，将结果显示在一个文本框中。 1）代码设计如下 Dim b As Integer, c As Integer Private Sub Command1_Click() For b = 1 To 100 If b Mod 19 = 0 Then Print b End If Next b End Sub Private Sub Command2_Click() For b = 1 To 100 If b Mod 19 = 0 Then c = c + b End If 3 Next b Text1.Text = c End Sub 2）将运行结果的界面截下来粘贴在下面 3）调试过程记录（错误情况及改正方法） 3. 设计一个程序：我国今年的国民生产总值 45600 亿元，若今后每 年以 9%的增长率增长，计算多少年后能实现国民生产总值翻一番？ 4 要求 单击“计算”按钮时，将计算的结果显示在窗体上。 1）代码设计 Private Sub Command1_Click() Dim a As Long, b As Long, c As Integer a = 45600: b = 2 * a: c = 0 Do While a b a = 1.09 * a c = c + 1 Loop Print c End Sub 2）将运行结果的界面截下来粘贴在下面 5 3）调试过程记录（错误情况及改正方法） 4. 编写一个程序，点击窗体时在窗体上输出所有水仙花数（水仙花数 是指一个三位十进制正整数，该数的各位数字的立方和等于该数本身，例 如 153 是个水仙花数，因 1^3+5^3+3^3 =153）。 1）代码设计 6 Private Sub Form_Click() Dim a As Integer