下载后可任意编辑实 验 报 告（ 2024 —2024 学年第 2 学期）课程名称： 计算机程序设计（VB）姓 名：学 院：专 业：年 级： 2024 级 学 号：实 验 报 告 会计学专业经济管理学院xxxxxxxxxxx下载后可任意编辑2024 年 4 月 17 日 第 9.10 节 综合 楼 525 号室进入实验室时间进入时仪器设备状况离开实验室时间离开时仪器设备状况机器号15：25正常17：10正常13实验项目名称实验四 循环结构一、实验目的1.掌握 For 语句的使用；2.掌握 Do 语句的各种形式的使用；3.掌握如何控制循环条件，防止死循环或不循环。 二、实验内容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 1Private Sub Command1_Click() Cls FontSize = 20 Dim a(3, 4) As Integer, i%,...
