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

实验四 循环结构程序设计（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 时的运行结果的界面截下来粘贴在下面：