VB循环结构实验报告

实验报告（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（单击）事件添加如下代码：Privatesubcommand1_click()Dimm!,s!,n%,i%S=val(text1.text)M=val(text2.text)N=val(text3.text)ForI=1tonS=s*(1+m)NextIText4.text=str(n)+“年后可得到:”+str(s)+“元”Endsub设置后详见下图：运行后在文本框中输入“8000,0.03,5”,单击按钮后的界面图如下：（二）做自行选题2,计算1+2+3+4+…+100之和。(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性。设置后的界面如下图（2）设置代码Privatesubcommand1_click()Dims%,i%S=0ForI=1to100S=s+iNextiPrint“s=”,sEndsub设置后详见下图：运行后单击按钮后的界面图如下：（三）做自选题3，随机产生3行4列的0-99之间的整数，输出它们。(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性。设置后的界面如下图（2）设置代码对Command1的Click（单击）事件添加如下代码：OptionBase1PrivateSubCommand1_Click()ClsFontSize=20Dima(3,4)AsInteger,i%,j%RandomizeFori=1To3Forj=1To4a(i,j)=Int(Rnd*100)Printa(i,j);NextjPrintNextiEndSub设置后详见下图：运行后单击按钮后的界面图如下：（四）做自选题4，输出数列1,1,2,3,5,8,……的前40项。(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性。设置后的界面如下图（2）设置代码PrivateSubCommand1_Click()ClsFontSize=20Dimf(40)AsLong,i%f(1)=1f(2)=1Fori=3To40f(i)=f(i-1)+f(i-2)NextFori=1To40PrintTab(10*((i-1)Mod4)+1);f(i);NextEndSub设置后详见下图：运行后单击按钮后的界面图如下：四、存在问题及解决方法存在问题：存在输出乱码现象。解决方法：与同学讨论之后发现是text1与text2位置颠倒所致，改正后得到了正确答案。思考题解答写出For循环语句和Do…Loop格式。For循环语句的格式：For循环控制变量=初值To终值[Step增量][<语句块>][ExitFor][<语句块>]Text[循环控制变量]Do...Loop循环语句格式Do[While1Until<条件表达式>][<语句块>][ExitDo][<语句块>]Loop2.说明step增量的作用，并说明什么情况下可以省略此项。用来指