青岛科技大学VB实验四.doc

PAGE PAGE 5 实验四 循环结构程序设计（4个学时） 一 、实验目的 掌握For循环语句的使用。 掌握单Do循环语句的使用。 掌握如何控制循环条件，防止死循环或不循环。 二 、实验内容 实验一：设计一个程序，用For 循环语句计算1~ n (正整数)之间所有的偶数之和。 要求: 程序运行后，单击窗体弹出一个InputBox输入框, 由用户输入n的值，然后在窗体上显示计算结果。 1）代码设计如下 Option Explicit Private Sub Form_Click() Dim i%, n%, sum& n = Val(InputBox("请输入", "提示"))