VB循环结构实验报告

下载后可任意编辑实验报告（ 2024 —2024 学年第 2 学期）课程名称：计算机程序设计（VB） xxx 经济管理学院姓名：学院：会计学专业专业： xxxxxxxx 年级： 2024 级学号：实验报告 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 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 - 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位置颠倒所致，改正后得到了正确答案。五、思考题解答 1. 写出For循环语句和Do…Loop格式。 For循环语句的格式： For 循环控制变量=初值To终值[Step增量] [] [Exit For] [] Text [循环控制变量] Do.Loop循环语句格式 Do [While1Until ] [] [Exit Do] [] Loop 2.说明step 增量的作用，并说明什么情况下可以省略此项。用来指定每次循环时的循环控制变量的增量。正值表示增加，此时循环控制变量的初值应该小于终值；负值表示减少，此时循环控制变量的初值应该大于中值。假如此项缺省，默认增量为1. 六．心得与体会世上无难事，只怕有心人。只要我们仔细学习，多多沟通，一定可以把VB学好。附录资料：不需要的可以自行删除 VB HOOK(钩子)超级无敌详细用法（介绍） hook是WINDOWS提供的一种消息处理机制，它使得程序员可以使用子过程来监视系统消息，并在消息到达目标过程前得到处理。下面将介绍WINNDOWS HOOKS并且说明如何在WINDOWS 程序中使用它。关于HOOKS 使用HOOK 将会降低系统效率，因为它增加了系统处量消息的工作量。建议在必要时才使用HOOK，并在消息处理