VB循环结构实验报告

下载后可任意编辑 实 验 报 告 （ 2024 2024 学年第 2 学期） 课程名称 计算机程序设计（VB） xxx 经济管理学院 姓 名 学 院 会计学专业 专 业 xxxxxxxx 年 级 2024 级 学 号 实 验 报 告 2024 年 4 月 17 日 第 9.10 节 综合 楼 525 号室 进入实验室 时间 进入时仪器 设备状况 离开实验室 时间 离开时仪器 设备状况 机器号 1525 正常 1710 正常 13 实验项目名称 实验四 循环结构 一、实验目的 1. 掌握For语句的使用； 2. 掌握Do语句的各种形式的使用； 3. 掌握如何控制循环条件，防止死循环或不循环。 二、实验内容 1. 课本64页，计算存款总金额。 2. 计算1234100之和。 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 strn “年后可得到 ” strs “元” End sub 设置后详见下图 运行后在文本框中输入“8000, 0.03, 5”,单击按钮后的界面图如下 （二）做自行选题2,计算1234100之和。 1设置用户界面并进行属性设置 创建一个新的窗体，在窗体中加入控件并设置相应的属性。 设置后的界面如下图 （2）设置代码 Private sub command1_click Dim s, i S0 For I 1 to 100 S si 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 a3, 4 As Integer, i, j Randomize For i 1 To 3 For j 1 To 4 ai, j IntRnd * 100 Print ai, 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 f40 As Long, i f1 1 f2 1 For i 3 To 40 fi fi - 1 fi - 2 Next For i 1 To 40 Print Tab10 * i - 1 Mod 4 1; fi; Next End Sub 设置后详见下图 运行后单击按钮后的界面图如下 四、存在问题及解决方法 存在问题存在输出乱码现象。 解决方法与同学讨论之后发现是text1与text2位置颠倒所致，改正后得到了正确答案。 五、 思考题解答 1. 写出For循环语句和DoLoop格式。 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，并在消息处理