输入两个数,打印交换前和交换后数

《输入两个数,打印交换前和交换后数》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、1.输入两个数，打印交换前和交换后的数PrivateSubCommand1_Click()Dimm,n,tAsIntegerm=InputBox("输入m")n=InputBox("输入n")Picture1.Print"交换前:"Picture1.Print"m=";m,"n=";nt=m:m=n:n=tPicture1.Print"交换后:"Picture1.Print"m=";m,"n=";nt=m:m=n:n=tEndSub2.求函数值b，其中DimaAsSingle,bAsSinglea

2、=Val(Text1)Ifa>100Thenb=a-100EndIfText2=b3.≤求函数值b，其中DimaAsSingle,bAsSinglea=Val(Text1)Ifa>100Thenb=a-100Elseb=100-aEndIfText2=b4.求函数值b，其中DimaAsSingle,bAsSinglea=Val(Text1)Ifa>100Thenb=a-100ElseIfa=100Thenb=100Elseb=100-aEndIfText2=b5.求分段函数b的值，其中DimaAs

3、Single,bAsSinglea=Val(Text1)c=Val(Text3)Ifa>100ThenIfc>100Thenb=Sqr(a^2+c^2)Elseb=Sqr(a^2-c^2)EndIfElseb=aEndIfText2=b6.已知x,y,z三个数，使得x>y>z。Ifx

4、nt(Rnd*100)'产生0~99的随机整数b=Int(Rnd*100)f=Text1.TextSelectCasefCase"+"c=a+bCase"-"c=a-bCase"*"c=a*bCase"/"c=a/bCaseElseMsgBox"输入错误！"EndSelectText2=c8.s=1+2+3+4+…+100，计算s的值。PrivateSubForm_Click()DimiAsInteger,sAsIntegers=0i=0Fori=1To100'For语句s=s+iNextiPri

5、ntsEndSub9.判断由用户输入的数n是否是素数。PrivateSubForm_click()DimnAsInteger,iAsInteger8n=InputBox("请输入一个大于2的整数：")Fori=2ToSqr（n）If(nModi)=0ThenMsgBoxn&"不是素数"ExitSub'找到一个能整除n的数则不需再继续判断，结束程序EndIfNextiMsgBoxn&"是素数"'循环正常退出EndSub10.求ln2的近似值，误差范围在10-5内。已知级数，当

6、

7、<10-5时达到精度

8、要求。PrivateSubForm_Click()DimaAsSingle,sAsSingle,nAsLongn=1Doa=(-1)^(n-1)*(1/n)'第n项s=s+a'前n项和n=n+1LoopWhileAbs(a)>0.00001Print"ln2="&sEndSub11.求100以内所有素数。PrivateSubForm_Click()Dimi%,j%,f%,a%Fori=2To100a=Sqr(i)Forj=2ToaIfiModj=0ThenGoToe'非素数出口EndIfNextj

9、Printi,'输出一个素数f=f+1'更新计数器IffMod4=0ThenPrint'换行打印e:NextiPrintPrint"共"&f&"个素数"EndSub12.韩信点一队1000人以内的士兵人数，三人一组余两人，五人一组余三人，七人一组余四人。这队士兵可能是多少人？PrivateSubForm_Click()DimiasIntegerPrint"可能人数："Fori=1To1000IfiMod3=2AndiMod5=3AndiMod7=4ThenPrintiEndIfNextiEndSu

10、b13.母鸡5元一只，公鸡3元一只，小鸡1元3只，现用100元钱买100只鸡，有多少种购鸡方案？Fori=1To20Forj=1To33k=100-i-jIf(5*i+3*j+k/3=100)And(i+j+k=100)ThenPrint"母鸡有";i;"只，公鸡有";j;"只，小鸡有";k;"只"EndIfNextjNexti14.求。j=1n=0b=1Dob=b*j'连乘a=1/bn=n+a'累加j=j+1LoopWhilea>0.000001Printn15.棋盘麦粒问题：古