VB循环结构实验报告

设置后的界面如下图
（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 - 1) + f(i - 2)
Next
For i = 1 To 40
Print Tab(10 * ((i - 1) Mod 4) + 1); f(i);
Next
End Sub
设置后详见下图：
运行后单击按钮后的界面图如下：
四、存在问题及解决方法
存在问题：存在输出乱码现象。
解决方法：与同学讨论之后发现是text1与text2位置颠倒所致，改正后得到了正确答案。
5、思考题解答
End sub
设置后详见下图：
运行后在文本框中输入“8000, 0.03, 5”,单击按钮后的界面图如下：
（二）做自行选题2,计算1+2+3+4+…+100之和。
(1)设置用户界面并进行属性设置
创建一个新的窗体，在窗体中加入控件并设置相应的属性。
设置后的界面如下图
（2）设置代码
Private sub command1_click()
Loop
2.说明step增量的作用，并说明什么情况下可以省略此项。
用来指定每次循环时的循环控制变量的增量。正值表示增加，此时循环控制变量的初值应该小于终值；负值表示减少，此时循环控制变量的初值应该大于中值。如果此项缺省，默认增量为1.
6．心得与体会
世上无难事，只怕有心人。只要我们认真学习，多多交流，一定可以把VB学好。
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)设置用户界面并进行属性设置
创建一个新的窗体，在窗体中加入控件并设置相应的属性。
实验报告
（2011 —2012学年第2学期）
课程名称：计算机程序设计（VB）
姓名：
学院：
专业：
年级：2011级
学号：
实验报告
2012年4月17日第9.10节综合楼525号室
进入实验室
时间
进入时仪器
设备状况
离开实验室
时间
离开时仪器
设备状况
机器号
15：25
正常
17：10
正常
13
实验项目名称
实验四循环结构
三、实验过程（步骤、命令）及结果（截图、源程序）
（一）做自选题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) + “元”
一、实验目的
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.写出For循环语句和Do…Loop格式。
For循环语句的格式：
For循环控制变量=初值To终值[Step增量]
[<语句块>]
[Exit For]
[<语句块>]
Text [循环控制变量]
Do...Loop循环语句格式
Do [While1Until <条件表达式>]
[<语句块>]
[Exit Do]
[<语句块>]
设置后的界面如下图
（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项。在窗体中加入控件并设置相应的属性。