VB循环结实验报告.docVIP

实 验 报 告 （ 2011 —2012 ,,,,年第 2 ,,,,期） 课程名称： 计算机程序设计（VB） xxx经济管理,,,,院姓 名： xxx 经济管理,,,,院 ,,,, 院： 会计,,,,专业专 业： 会计,,,,专业 xxxxxxxx年 级： 2011 级 xxxxxxxx ,,,, 号： 实 验 报 告 2012 年 4 月 17 日 第 9.10 节 综合 楼 525 号室 进入实验室 时间 进入时仪器 设备状况 离开实验室 时间 离开时仪器 设备状况 机器号 15：25 正常 17：10 正常 13 实验项目名称 实验四 循环结构 一、实验目的 掌握For语句的使用； 掌握Do语句的各种形式的使用； 掌握如何控制循环条件，防止死循环或不循环。 二、实验内容 1. 课本64页，计算存款总金额。 2. 计算1+2+3+4+…+100之和。 3. 随机产生3行4列的0-99之间的整数，输出它们。 4. 输出数列1,1,2,3,5,8,……的前40项。 三、实验过程（步骤、命令）及结果（截图、源程序） （一）做自选题1，计算存款总金额。 (1)设置用户界面并进行属性设置 创建一个新的窗体，在窗体中加入控件并设置相应的属性。 设置后的界面如下图 （2）设置代码 对Command1的Click（单击）事件添加如下代码： Private sub command1_click() Dim m! , s! , n%, i% S = val (text1.text) M = val (text2.text) N = val (text3.text) For I = 1 to n S = s * (1 + m) Next I Text4.text = str(n) + “年后可得到: ” + str(s) + “元” End sub 设置后详见下图： 运行后在文本框中输入“8000, 0.03, 5”,单击按钮后的界面图如下： （二）做自行选题2,计算1+2+3+4+…+100之和。 (1)设置用户界面并进行属性设置 创建一个新的窗体，在窗体中加入控件并设置相应的属性。 设置后的界面如下图 （2）设置代码 Private sub command1_click() Dim s%, i% S=0 For I = 1 to 100 S = s+i Next i Print “s=” , s End sub 设置后详见下图： 运行后单击按钮后的界面图如下： （三）做自选题3，随机产生3行4列的0-99之间的整数，输出它们。 (1)设置用户界面并进行属性设置 创建一个新的窗体，在窗体中加入控件并设置相应的属性。 设置后的界面如下图 （2）设置代码 对Command1的Click（单击）事件添加如下代码： Option Base 1 Private Sub Command1_Click() Cls FontSize = 20 Dim a(3, 4) As Integer, i%, j% Randomize For i = 1 To 3 For j = 1 To 4 a(i, j) = Int(Rnd * 100) Print a(i, j); Next j Print Next i End Sub 设置后详见下图： 运行后单击按钮后的界面图如下： （四）做自选题4，输出数列1,1,2,3,5,8,……的前40项。 (1)设置用户界面并进行属性设置 创建一个新的窗体，在窗体中加入控件并设置相应的属性。 设置后的界面如下图 （2）设置代码 Private Sub Command1_Click() Cls FontSize = 20 Dim f(40) As Long, i% f(1) = 1 f(2) = 1 For i = 3 To 40 f(i) = f(i -