还剩6页未读,继续阅读
文本内容:
实 验 报 告学院 专业 年级 2006 姓名 学号 实验室号_____ 计算机号 实验日期 年 月 日指导教师签字 成绩 报告退发订正、重做 实验四 循环结构程序设计(设计性)
一、实验目的
1、实验目的
1.掌握For语句的使用
2.掌握Do语句的各种形式的使用
3.掌握如何控制循环条件,防止死循环或不循环
二、实验内容
1.利用VB创建一个标准exe程序程序用牛顿迭代法求方程2x3-4x2+3x-6=0的准确解x,程序界面包括两个文本框,两个按扭,两个标签控件.在第文本框text1内输入方程的初始点,在文本框text2内输出解.用户界面如图所示,并以4-
1.frm和4-
1.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下(本题要求采用循环语句来完成).图4-1(2)利用VB创建一个标准exe程序,生成10个范围是1-10随机整数,并求解它们的最大值,最小值和平均值.程序界而如图所示,有四个label控件,3个文本框控件和2个按钮控件.要求程序运行时__”确定”按钮就在label1控件上显示出10个随机生成的整数并对这10个整数求最大值最小值和平均值分别显示在text1text2和text3这三个框中.按退出按钮退出程序.并以4-
2.frm和4-
2.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下(本题要求采用循环语句来完成).图4-23利用VB创建一个标准exe程序在窗体上打印出九九乘法口诀表.如下示:要求__一下程序的窗体窗体上就能够打印出九九乘法表.并以4-
3.frm和4-
3.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下(本题要求采用循环语句来完成).图4-34利用VB创建一个标准exe程序,求解如下问题1+1/2+1/4+……+1/50的值.要求将结果打印在程序的窗体上.并以4-
4.frm和4-
4.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下(本题要求采用循环语句来完成).图4-4(5)利用VB创建一个标准exe程序,计算1+2+3….+100的值.要求用dowhile-loop,for,do—loopwhiledo---untilloopdo…loopuntilWhile----wend各实现一次.将结果显示在form窗体上.并以4-5-
1.frm和4-5-
1.vbp…..4-5-
6.frm及4-5-
6.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下(本题要求采用循环语句来完成).图4-5
三、实验环境
(1)硬件PC机
(2)软件Windows操作系统、VisualBasic
6.0
四、实验步骤
1.利用VB创建一个标准exe程序程序用牛顿迭代法求方程2x3-4x2+3x-6=0的准确解x,程序界面包括两个文本框,两个按扭,两个标签控件.在第文本框text1内输入方程的初始点,在文本框text2内输出解.用户界面如图4-1所示,并以4-
1.frm和4-
1.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下(本题要求采用循环语句来完成).操作步骤如下
1.启动VisualBasic
2.窗体属性设置如下控件名称属性Form1Caption=“牛顿迭代法求根”Lbael1Caption=“X0=”Label2Caption=“X”Text1Text=””Text2Text=”“Com__nd1Caption=”计算”Com__nd2Caption=“退出”
(3)窗体控件布局如下图所示
(4)双击窗体,打开代码窗口,在Com__nd1_Click__中输入如下代码Dimxx0ff1AsSinglex0=ValText
1.TextDo x0=x f=2*x0-4*x0+3*x0-6 f1=6*x0-8*x0+3 x=x0-f/f1 LoopWhileAbsx-x0=
0.00005 Text
2.Text=x在com__nd2_click__中输入End
(5)单击“文件”/“保存工程”菜单项,以4-
1.frm和4-
1.vbp文件名将窗体和工程文件保存在D:\VB程序内
(6)说明牛顿迭代法的计算步骤是(I)牛顿迭代公式是xn+1=xn-fxn/f’xn n=0123…..II先计算fx0=2x3-4x2+3x-6=0和f’x0=6x2-8x+3III当|xn+1-xn|=ε,本题的ε=
0.
00052.利用VB创建一个标准exe程序,生成10个范围是1-10随机整数,并求解它们的最大值,最小值和平均值.程序界而如图所示,有四个label控件,3个文本框控件和2个按钮控件.要求程序运行时__”确定”按钮就在label1控件上显示出10个随机生成的整数并对这10个整数求最大值最小值和平均值分别显示在text1text2和text3这三个框中.按退出按钮退出程序.并以4-
2.frm和4-
2.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下(本题要求采用循环语句来完成).操作步骤如下1启动VisualBasic2窗体属性设置如下控件名称属性Form1Caption=“随机数”Lbael1Caption=“”Label2Caption=“最大值”Label3Caption=“最小值”Label4Caption=“平均值”Text1Text=””Text2Text=”“Text3Text=”“Com__nd1Caption=”求解”Com__nd2Caption=“退出”
(3)窗体控件布局如下图所示
(4)双击窗体,打开代码窗口,在Com__nd1_Click__中输入如下代码Dimxx0ff1AsSingleDimiAsIntegerDimnumberAsIntegerDimsumAsIntegerDim__xAsIntegerDim__erageAsSingleDimminAsIntegersum=0__x=0min=10Fori=1To10 number=Int10*Rnd+1 Label
1.Caption=Label
1.Caption+CStrnumber sum=sum+number Ifnumber __xThen __x=number EndIf Ifnumber minThen min=number EndIf Next __erage=sum/10 Text
1.Text=__x Text
2.Text=min Text
3.Text=__erage在com__nd2_click__中输入End
(5)单击“文件”/“保存工程”菜单项,以4-
2.frm和4-
2.vbp文件名将窗体和工程文件保存在D:\VB程序内
3.利用VB创建一个标准exe程序在窗体上打印出九九乘法口诀表.如下示:要求__一下程序的窗体窗体上就能够打印出九九乘法表.并以4-
3.frm和4-
3.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下(本题要求采用循环语句来完成).操作步骤如下
1.启动VisualBasic
2.窗体属性设置如下控件名称属性Form1Caption=“打印九九乘法表”
(3)双击窗体,打开代码窗口,在Form_click__中输入如下代码PrivateSubForm_clickFontSize=10PrintTab20;九九乘法表Print:PrintPrint# Fori=1To9 PrintTabi*6;i; Nexti PrintForj=1To9 Printj;; Fork=1Toj temp=j*k PrintTabk*6;temp;; Nextk Print NextjEndSub
(4)单击“文件”/“保存工程”菜单项,以4-
3.frm和4-
3.vbp文件名将窗体和工程文件保存在D:\VB程序内
4.利用VB创建一个标准exe程序,求解如下问题1+1/2+1/4+……+1/50的值.要求将结果打印在程序的窗体上.并以4-
4.frm和4-
4.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下(本题要求采用循环语句来完成).操作步骤如下1启动VisualBasic2窗体属性设置如下控件名称属性Form1Caption=“求解运算”
(3)双击窗体,打开代码窗口,在Form_Click__中输入如下代码PrivateSubForm_ClickDimsumAsSingleDimiAsIntegersum=1#Fori=2To50Step2 sum=sum+1/CLngi Nexti PrintsumEndSub
(4)单击“文件”/“保存工程”菜单项,以4-
4.frm和4-
4.vbp文件名将窗体和工程文件保存在D:\VB程序内
5.利用VB创建一个标准exe程序,计算1+2+3….+100的值.要求用dowhile-loop,for,do—loopwhiledo---untilloopdo…loopuntilWhile----wend各实现一次.将结果显示在form窗体上.并以4-5-
1.frm和4-5-
1.vbp…..4-5-
6.frm及4-5-
6.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下(本题要求采用循环语句来完成).操作步骤如下1启动VisualBasic2窗体属性设置如下控件名称属性Form1Caption=“高斯求和”
(3)双击窗体,打开代码窗口,在Form_click__中输入如下代码Ifor语句方式以4-5-
1.frm和4-5-
1.vbp存盘 PrivateSubForm_ClickDimiAsIntegerDimsumAsIntegersum=0Fori=1To100sum=sum+iNextPrint和为;sumPrint循环变量的值为:;iEndSubIIwhile---wend形式以4-5-
2.frm和4-5-
2.vbp存盘PrivateSubForm_ClickDimiAsIntegerDimsumAsIntegersum=0i=1Whilei=100sum=sum+ii=i+1WendPrint和为;sumPrint循环变量的值为:;iEndSub(III)dowhile....loop形式以4-5-
3.frm和4-5-
3.vbp存盘PrivateSubForm_ClickDimiAsIntegerDimsumAsIntegersum=0i=0DoWhilei 100i=i+1sum=sum+iLoopPrint和为;sumPrint循环变量的值为:;iEndSubIVdo…..loopwhile形式以4-5-
4.frm和4-5-
4.vbp存盘PrivateSubForm_ClickDimiAsIntegerDimsumAsIntegeri=0sum=0Do i=i+1 sum=sum+i LoopWhilei 100Print和为;sumPrint循环变量的值为:;iEndSubvdountil…..loop形式以4-5-
5.frm和4-5-
5.vbp存盘PrivateSubForm_ClickDimiAsIntegerDimsumAsIntegeri=0sum=0DoUntili=100 i=i+1 sum=sum+i Loop Print和为;sumPrint循环变量的值为:;iEndSubVIdo….loopuntil形式以4-5-
6.frm和存盘PrivateSubForm_ClickDimiAsIntegerDimsumAsIntegeri=0sum=0Doi=i+1sum=sum+iLoopUntili=100Print和为;sumPrint循环变量的值为:;iEndSub
(4)单击“文件”/“保存工程”菜单项,以4-5-
1.frm和4-5-
1.vbp…...4-5-
6.frm及4-5-
6.vbp文件名将窗体和工程文件保存在D:\VB程序内
五、实验调试与结果分析
六、总结。