经典VB编程(必考)

《经典VB编程(必考)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1.求下面级数前s项中偶数项的和SUM。在求和过程中，以第一个数值大于10000的项为末项，计算并输出和SUM。1!-2!+3!-4!+…+(-1)^(s-1)*s!+……PrivateSubCommand1_Click()DimnAsIntegerDimitemAsDoubleDimsumAsDoublesum=0n=2DoWhileTrueitem=1DimiAsIntegerFori=2Tonitem=item*iNextsum=sum+itemIfitem>10000ThenExitDoElsen=n+2EndIfLoopsum=-1*sumMsgBox(sum)EndSub'sum=

2、3680472.建立一个9×9的整型二维数组（由Rnd函数产生[10，60）的随机整数对数组初始化），输出数组中所有奇数行元素的和。DimA(8,8)AsIntegerDimi,jAsIntegerFori=0To8Forj=0To8A(i,j)=10+Int(Rnd()*51)NextNextDimsumAsIntegerFori=0To8Step2Forj=0To8sum=sum+A(i,j)NextNextText1.Text=sum'所有奇数行元素的和为：5063.编写一个函数，判断某整数是否为素数。调用该函数，输出区间[1000，2000]内所有素数的和。PrivateFunctio

3、nisprime(ByValnAsInteger)AsBooleanDimiAsIntegerFori=2Ton-1IfnModi=0Thenisprime=FalseExitFunctionEndIfNextisprime=TrueEndFunctionPrivateSubCommand1_Click()DimiAsIntegerDimsumAsLongFori=1000To2000Ifisprime(i)=TrueThensum=sum+iEndIfNextText1.Text="sum="&sumEndSub'sum=4196844.编写一个函数，求某个数的阶乘。调用该函数计算22!。P

4、ublicFunctionfact(ByValnAsInteger)AsLongDimiAsInteger,fAsLongf=1Fori=1Tonf=f*iNextifact=fEndFunctionPrivateSubCommand1_Click()DimmAsInteger,iAsInteger,sAsLongm=InputBox("输入一个正整数：")s=fact(m)MsgBox(s)EndSub‘4790016005.编写子过程，计算并输出3000-4000之间的素数之和C与其中最小的素数MIN。PrivateSubCommand1_Click()Dimsum,i,minAsInte

5、germin=0Fori=3000To4000DimisprimeAsBoolean=TrueDimjAsIntegerForj=2Toi-1IfiModj=0Thenisprime=FalseExitForEndIfNextIfisprime=TrueThenIfmin=0Thenmin=iEndIfIfi

6、350的元素之和。Dima(35),i,sumAsIntegerFori=0To35a(i)=200+Int(Rnd()*101)NextFori=0To35Ifa(i)<=350Thensum=sum+a(i)EndIfNextprintsum7.编写函数，计算S=1/1!+1/3!+1/5!+...+1/9!PrivateFunctionFact(ByValxAsInteger)AsIntegerDimsum,i,fAsDoublef=1Fori=1To9f=f*iIfiMod2=1Thensum=sum+1/fEndIfNextFact=sumEndFunction8.编写一个函数（参数

7、为一维整型数组），求所有数组元素中最小值的下标。PublicFunctionmax(ByRefa()AsInteger)AsIntegerDimtAsIntegert=0DimiAsIntegerFori=1ToUBound(a)Ifa(i)