还剩13页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
累加求和到1100Private Sub Command1_ClickDim i As Integer,sum As Integer sum=0For i=1To100sum=sum+iNextTextl.Text=sumEnd SubPrivate Sub Command2_ClickEndEnd Sub至的奇数和i UiooPrivate Sub Command1_ClickDim i As Integer,sum As Integer sum=0For i=1To100step2sum=sum+iNextTextl.Text=sumEnd SubPrivate Sub Command2_Click求End n!Private Sub Command1_C1ickDim fact As Double,n As Integer,i AsIntegern=ValTextl.Text fact=1For i=1To nfact=fact*i NextText
2.Text=factEnd Sub计算人口Private SubLabel l_ClickDim p As Single,r As Single,i AsSingle p=14r=
0.012i=
0.求水仙花数2Private SubForm_Click个百Dim a,b,c AsIntege rbatt cFora=0To9For b=0To9For c=1To9IfaA34-bA3+cA3=a+10*b+100*c ThenMsgBox100*c+10*b+aEnd IfNextcNext bNextaEnd Sub.百元买百鸡问题;3Option ExplicitConsta=5,b=3,c=1Private SubForm_ActivateDim i As Integer,j As Integer,k As Integer,n AsIntegerFor i=1To100Forj=1To100For k=1To100Ifi*a+j*b+k*c=100Thenn=n+1公鸡母鸡小鸡End IfNext:Next:Next共有组合End Sub求以内的所有完数1000一个按钮里调用的过程Private Sub Command1_ClickOutputWanNumber1000End Sub「求完数的过程4Private SubForm_ClickDim i,j AsIntegerFor i=4To100temp=1Forj=2To i/2If iMod j=0Then二temp temp+jEnd IfNextjIf temp=i ThenPrint iEnd IfNext iEnd Sub.求各位数字之和5输:入任意数input ado取的末位数b=a mod10:a求和sum=sum+b:去掉末位数loop untila=0输出enddim nas stringinputnfor i=I tolennsum=sum4-valmidn,i,1next iprint sum.求最小公倍数6Private SubForm_LoadForm
1.AutoRedraw=TrueDim nl%,ml%,m%,n%,r%输入输入为,了求最小公倍数,增加变量Ifml nlThen m,n m=ml:n=nlElsem=nl:n=mlEnd IfDor=m Modn二If r=0Then ExitDo m n n=r Loop的最大公约数为最小公倍数End Sub.求逆序数感觉题目7类型太多8级数有限项求和问题题目.类型太多求质因子问题
9.Private SubCommand1_ClickDim NAsInteger,I AsInteger N二请输入的整数V21=2Do IfNMod I=0Then PrintI;Else1=11End IfLoop While N1End Sub字符统计
10.Option BaselOption ExplicitPrivate SubCommand1_ClickDimiasinteg,eA26asinteg,e nas integerDimS asstring*1,Strl asstring Strl=Textl n=LenStrlFor i=l Ton S=MidStrl,i,lIf UCaseS=A AndUCaseSv=Z ThenAAscUCaseS-64+lEnd IfNextiFor i=l To26List
1.Additem Chr64+iLAiNetx iEnd SubPrivate SubCommand_ClickEndEnd Sub第二大题判定素数过程
1.Function isprimeNum As LongAs BooleanIfNum2Then isprime=False:Exit FunctionDim i As LongFor i=2To SqrNumIfNum Modi=0Then isprime=FalseExit FunctionEndIfNext iisprime=TrueEnd FunctionPrivate SubCommand1_ClickDim iAs LongFor i=1To1000If isprimeiThenPrintiEndIfNextiEnd Sub.求最大公约数过程;2公约数求,出两个数的最大公约Function MaxA As Long,B AsLong数Dim XAsLong,YAs Long,K AsLong存次入最大值X=HfA=B,A,B存入最小值Y=Hf4=B,A,B y展转相除法DoK=X ModY:IfK=0Then ExitDo X=Y Y=KLoop公约数二Max YEndFunction冒泡排序过程
3.Private SubCommand1_ClickDim a9As IntegerDimiAsIntegerFor i=0To9输入整数NextSort aFor i=0To9Print aiNextEnd SubPrivate SubSortByRef a As IntegerDimiAs IntegerDim j AsIntegerDimtAsIntegerFor i=LBounda+1To UBounda二For jUBounda Toi Step-1Ifaj-lajThen t=ai-1aj=t EndIf NextNextEnd Sub顺序查找过程4Private SubCommand1_ClickDim i,j,t,al To10Randomize原数组For i=1To10ai=Rnd*10If iMod2=0Then PrintNextiPrintFor i=1To9Forj=i+1To10Ifajai Thent=ai ai编程题分,正式试题为题
201、编写一个身份证号码转换程序1老身份证是位,先要增加两位年份,变成位,再计算校验位11517校验位的计算方法是位身份证号码每一位都乘上一个权值然后相217Number Weight,加,再除以取其余数作为位置数11,Positio n根据位置数查表,得到校验位3Position CheckCodeo表示身份证号码第位上的号码4N umber[i]i表示第位上的权值Weight[i]i Weight79105842163791058421Position Number[i]*Weight[i]mod115Position012345678910CheckCode10X98765432其中罗马数字表示所以在新标准的身份证号码中可能含有非数字的字母x10,Xo、利用递归函数编写打印杨辉三角形参见教材第页上的实验
23196.11编写求的递归函数,其递归公式为1C C=C+Cn.m n,mn,m-1n-11递归条件是当2C=1n=0I,m当C=C nm/2n,mm-njn⑶利用上述递归函数编写打印杨辉三角形的程序C0,0C C1,01,1C C2,02,1Cn,0上却>Wd q=SO)金+丁(q=q*上=上+金W9nb丁上才:丁上才q nq n论司,萍国入口部拉陛阶Hnb2ud累呐求味金陛金00上步(Xo wd9上才)金步上)(qT vs92ud ommsnb0x(上上才吕丁才吕丁m A2In992um A2In992um=0上二金(上步上>二金o Wd900上2um=2um+上二上+金Looq金)才T9=2umHnb2ud「上才))步上q vs92ud ommsnbS_OxXHnbHnb2ud)(才上步(o Un上才))步上)(qT vs92ud ommsnt^_0x(上才吕丁才吕丁±mA2In992um A2In992um=0上二金(才上步上<金o un00上2um=2um+上=上+金Looq才金T9K.T9x7h=2umHnb2ud丁上才)步上q vs92ud ommsnbS_J OxXHnbHnb2ud求平段湖言公丁上才)金_)步上)(q vs92ud ommsnb0xDim aAsSingle,b AsSingle,c AsSingle,d AsSingleDim pjAs Singlea=60:b=70:c=80:d=90pj=a+b+c+d/4Textl.Text=StrpjEnd Sub成绩鉴定Private SubCommand1_ClickDim xAs Singlex=Textl.TextIf x=90Then优秀良好Elself x=80Then中Elself x=70ThenElself x=60Then及格Else不及格End IfEnd Sub求圆的周长Private SubCommand1_ClickDim rAs Double请输入圆的半径圆的周长为Const pi=
5....*9Private SubCommand1_ClickDim sumAsLong,iAsInteger二sum1For i=1To9Step2sum=sum*iNextMsgBox sumEndSub随机产生一个小写字母Private SubCommand1_ClickDim aAs StringRandomizea=ChrInt97+26*RndMsgBox aEndSub编写程序,计算下面级数中偶数项的和在求和的过程中,当某ES,偶数项注意,该项参预求和的值时求和终止并输出
0.001ES,结果取位61/1*2+1/2*3+1/3*4+l/n*n+lprivate SubCommand1_ClickDim a#,i%,ES#i=1Doa=i*i+1i=i+1Ifi Mod2=0ThenES=ES+1/aEnd IfLoopUntil1/a
0.001Print ESEndSub编写程序,求下面级数前项的和n s=l/l!-l/2!+l/3!-l/4-1An-l*l/n!+..求和过程当某一项的绝对值小于时结束注意,该项参预求
0.0001和,计算并输出所求的和要求保留位小数s,6PrivateSubCommand l_ClickDim mAsDouble,n AsInteger,s AsDouble,f AsInteger s=0:n=-l:m=1:f=1Do While1/m=
0.0001m=m*f二f=f+1n=-n ss+n/mLoopPrint sEndSub随即输出一个位于]之间的整数10,100PrivateSubCommand1_ClickRandomizeDim s%s=101*RndPrint sEndSub编写程序,计算并输出下面级数前项中的偶数项的和n n=50PrivateSubCommand1_ClickDims!,i%Fori=2To50Step2s=s+i*i+1NextMsgBox sEndSub输入长方形的长和宽,计算长方形的周长,并输出PrivateSubCommand1_ClickDim m#,n#请输入长方形的边长请输入长方形的另一个边长MsgBox2*m+nEnd Sub《期末范围题总汇》VB求随机个整数的最大值、最小值、平均值以及和;I.10Dim alTo10PrivateSubCommand1_ClickRandomize产生的随机数为Fori=1To10ai=IntRnd*99+1Picture
1.Print ai;Next iPicture
1.PrintEnd SubPrivateSubCommand2_ClickDim max,min,avemax=almin=alave=
0.1*alFor i=2To10If aimax Thenmax=aiIf aimin Thenmin=aiave=ave+
0.1*aiNext i最大数为最小数为平均数为EndSub。