VB程序改错题

《VB程序改错题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、程序改错1.题目：已知C的公式表示如下:'n!'C=------------------'(n-m)!*m!'函数过程fac()求k！函数,在Fomr_Click事件中完成运算，'请修正程序中错误。'------------------------------------------------OptionExplicitPrivateFunctionfac(kAsInteger)AsSingleDimxAsSingle,jAsIntegerx=0Forj=1Tokx=x^jNextjfac=xEndFunctionPrivateSubForm_Click()DimCAsSingl

2、eDimmAsInteger,nAsIntegerm=Val(InputBox("请输入一个整数(m)："))n=Val(InputBox("请输入一个整数(n)："))C=fac(n)/fac(n-m)*fac(m)Print"C=";CEndSub2.题目：程序功能为打印下列图形：'*'**'***'****'*****'------------------------------------------------OptionExplicitPrivateSubForm_Click()ClsDimiAsIntegerDimjAsIntegerFori=1To7Forj=1To

3、5Print"*";LoopPrintNextiEndSub3.题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。'------------------------------------------------OptionExplicitPrivateSubCreateRND()DimTempAsIntegerDimIAsIntegerDimNAsIntegerDimX(10)AsIntegerDimJAsIntegerN=10Print"数据："ForI=1ToNX(I)=Int(Rnd()*90)PrintX(I);NextIPrintPrint"排序："For

4、I=0ToN-1ForJ=I+1ToNIfX(I)>X(J)ThenTemp=X(I)X(J)=X(I)X(I)=TempEndIfNextJPrintX(I);NextIPrintEndSubPrivateSubCommand1_Click()CreateRNDEndSub4.题目：随机产生并输出100以内大于50的20个整数，输出时每5个数一行。'-----------------------------------------------OptionExplicitPrivateSubForm_Click()RandomizeTimerDimiAsInteger,maAsIn

5、tegeri=1DoUntili<20ma=Rnd()*1001Ifma>50ThenPrintma;i=i+1Ifi5=0ThenPrintEndIfEndIfLoopEndSub5题目：以下程序段用于计算5的N次方。'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,sAsLongn=InputBox("Inputn")k=0s=0DoWhilek<=ns=s*5k=k+1NextPrint"5的";"n次方

6、是";sEndSub6.题目：下面程序可输出如下图形：'*'***'*****'*******'*********'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimmAsInteger,nAsInteger,sAsString,iAsInteger,jAsIntegern=4m=1s="*"Fori=5To1Step-1PrintSpc(n)Forj=1To2*m-1Prints;NextjPrintn=n+1m=m-1NextiEndSub7.题目：用自定

7、义函数的方法求sum（x），求当-1≤x≤1时，'sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!，'当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数'据错误。X、N都是由用户输入。'------------------------------------------------OptionExplicitPrivateSubCommand1_Click()DimsAsSingleDimnAsInteger,xAsSingle,kA