实验8过程与函数

《实验8过程与函数》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、卖验入过程与函数一、实验目的1.能理解Sub子程序、Function函数。2.能用Sub子程序、Function函数编写简单的程序。二、实验内容例1：设计一个简单的VB程序，要求输出结果如图所示。(1)创建工程。(2)建立用户界面，在窗体上添加一个按钮。(3)双击按钮控件，切换到代码设计窗口，添加程序代码如下：PrivateSubCoiniriandl_Click()DiinIAsIntegerForI=1To5CallPrintLine(I)PrintNextIEndSubSubPrintLine(JAsInteger

2、)DiinkAsIntegerFork=1ToJPrintk;NextkEndSub(4)调试运行程序。(5)请修改程序，仍使用Sub子程序输出如图2所示程序。运行成功后，保存结果到练习文件夹中的vb8-l文件夹。图1图2例2：设计一个简单的VB程序，要求输出结果如图3所示。(1)创建工程。(2)建立用户界面，在窗体上添加一个按钮。(3)双击按钮控件，切换到代码设计窗口，添加程序代码如下:PrivateSubCoiranandl_Click()DimmAsIntegerm二InputBoxC"："”)Printm;"!二

3、"；jc(m)EndSubFunctionjc(nAsInteger)AsLongDimkAsIntegerjc二1Fork=2TonNextkEndFunction(1)调试运行程序。(2)请修改程序，仍使用Function函数输出如图4所示程序。运行成功后，保存结果到练习文件夹屮的vb8-2文件夹。图3图4例3：设计一个简单的VB程序，要求输出2〜100之间所有的素数。自定义子函数SuShu用于判断一个整数是不是素数。运行成功后，保存结果到练习文件夹中的vb8・3文件夹。PrivateSubCommandl_C1ic

4、k()DimIAsInteger,JAsIntegerJ=0IFor1=2To100IfSuShu(I)=TrueThenPrintI;J二J+lIfJMod5=0ThenPrintEndIfEndIfEndSubFunctionSuShu(MAsInteger)AsBoolean，程序请书写于此EndFunction例4：执行下列程序，思考两个变量的显示结果为何不同。完成后保存结果到练习文件夹中的vb8・4文件夹。DimmAsIntegerPrivateSubCommandl_Click()DimnAsIntegerm

5、二m+1n二n十1Printin;nEndSubPrivateSubForm_Load()m=10n二10EndSub三思考题1.已知三角形面积的计算公式是s=Sqr(p*(p-a)*(p-b)*(p-c)),其中p=(a+b+c)/2。要求写成自定义函数形式用于计算三角形面积。程序保存到练习文件夹中的vb8-5文件夹。在主程序中能检查输入的a、b、c值是否满足两边之和大于第三边的三角形成立条件。如果不成立，则提示重新输入。提示：PrivateFunctionmj(aAsSingle,bAsSingle,cAsSingl

6、e)TextlText2Text3Label1Command1