资源描述：
《vb程序设计例题-程序改错程序填空程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、'以下程序段用于输出杨辉三角:结果样式如图1'PrivateSubForm_Click()Constn=10Dimarr(n,n)AsIntegerForI=1Tonarr(I,I)=1'**********SPACE**********【arr(I,1)=1】NextIForI=3TonForj=2ToI-1'**********SPACE**********arr(i,j)=arr(i-1,j-1)+arr(i-1,j)NextjNextIForI=1TonForj=1ToI'*********
2、*SPACE**********【printarr(I,j)】NextjPrintNextIEndSubOptionExplicit'------------------------------------------------'【程序改错】'------------------------------------------------'题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，'sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!，'当x〉1或x〈-
3、1时，函数值为0。当n〈=0时，输入数'据错误。X、N都是由用户输入。'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------PrivateSubCommand1_Click()DimsAsSingleDimnAsInteger,xAsSingle,kAsIntegern=Val(InputBox("Please
4、inputaintegervalue:"))x=Val(InputBox("Pleaseinputasinglevalue:"))Ifn<=0Thenk=MsgBox("数据输入错误！",vbRetryCancel+vbExclamation,"数据输入")ExitSubEndIfs=Sum(x,n)PrintsEndSubFunctionSum(xAsSingle,nAsInteger)DimiAsInteger,ssAsLongss=1Sum=0Ifx>1Orx<-1Then'*********
5、*FOUND**********ExitDo改为ExitFunctionElse'**********FOUND**********Fori=2Ton改为Fori=2Ton+1ss=ss*i'**********FOUND**********Sum=x^(i-1)/ss改为Sum=sum+x^(i-1)/ssNextiEndIfEndFunctionOptionExplicit'------------------------------------------------'【程序改错】'-----
6、-------------------------------------------'题目:编程将一个数从已经有序（设从小到大排序）的数组'中删除，使数组还继续保持有序而且其余元素按照下'标连续存放。'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------PrivateSubForm_Click()DimA()
7、AsInteger,NAsInteger,FlagAsIntegerDimiAsInteger,XAsInteger,PAsIntegerFlag=0N=InputBox("输入元素个数")'**********FOUND**********DimA(N)改为ReDimA(N)Fori=1ToNA(i)=InputBox("输入数组的第"&i&"个元素")NextiPrint"删除某元素前的数组"Fori=1ToNPrintA(i);NextiStart:X=InputBox("输入要删除的元素："
8、)Fori=1ToNIfX=A(i)ThenP=i:Flag=1NextiIfFlag=0ThenMsgBox("没有此元素"):GoToStartFori=PToN-1'**********FOUND**********A(i+1)=A(i)改为A(i)=A(i+1)Nexti'**********FOUND**********N=N+1改为N=N-1Print"删除元素后的数组:"Fori=1ToNPrintA(i);NextiEndSubPrivateSubFo
