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

1 实验四 循环结构程序设计 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 End Sub 2 将输入 100 时的运行结果的界面截下来粘贴在下面 2 3 调试过程记录 错误情况及改正方法 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 3 End If Next b Text1 Text c End Sub 2 将运行结果的界面截下来粘贴在下面 3 调试过程记录 错误情况及改正方法 3 设计一个程序 我国今年的国民生产总值为 45600 亿元 若今后每年以 9 的增长率增长 计算 多少年后能实现国民生产总值翻一番 要求 单击 计算 按钮时 将计算的结果显示在窗体上 1 代码设计 Private Sub Command1 Click Dim a As Long b As Long c As Integer a 45600 b 2 a c 0 4 Do While a b a 1 09 a c c 1 Loop Print c End Sub 2 将运行结果的界面截下来粘贴在下面 3 调试过程记录 错误情况及改正方法 4 编写一个程序 点击窗体时在窗体上输出所有水仙花数 水仙花数是指一个三位十进制正整数 该数的各位数字的立方和等于该数本身 例如 153 是个水仙花数 因为 1 3 5 3 3 3 153 5 1 代码设计 Private Sub Form Click Dim a As Integer b As Integer c As Integer For a 1 To 9 For b 0 To 9 For c 0 To 9 If 100 a 10 b c a 3 b 3 c 3 Then Print a Tab 大马 Tab 小马 Tab 马驹 Tab 大马 Tab 小马 Tab 马驹 c 匹 Print End If N