VB1100PrivateSubForm_Click()Dimi%,j%Fori=2To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrintiNextiEndSub2ABCDEFGGFEDCBA。PrivateSubCommand1_Click()Dima$,1%,c$,d$,n%a=InputBox$("")n=Len(a)ForI=1ToInt(n\2)c=Mid(a,I,1)Mid(a,I,1)=Mid(a,n-I+1,1)Mid(a,n-I+1,1)=cNextIPrintaEndSub30~200115PrivateSubForm_Click()Dimn%,i%n=0Fori=1To200IfiMod11=0OriMod5=0Thenn=n+iEndIfNextiPrintnEndSub44100400PrivateSubCommand1_Click()Dimy%y=InputBox("")IfyMod4=0AndyMod100<>0OryMod400=0ThenMsgBox(y&"")ElseMsgBox(y&"")EndIfEndSub5x,y,z33x
yThenx=yy=x:=tt:=：:Ifx>zThen=x:x=z:z=tt:=:Ify>zThen=yyzt:：==z::=tPrint"";x;;y;"；IIIIIIzEndSub6s=a+aa+aaa+...aaaa(naana［1,9］na=3,n=6s=3+33+333+3333+33333+333333nasPrivateSubForm_Click()Dims!,t!,i!,a%,n%a=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0:s=0Print"a=";a,"n二"；nFori=1Tont=t*10+as=s+tPrintt;NextiPrintPrint"s=";sEndSub7100~30037PrivateSubForm_Click()Fori=100To300IfiMod21=0Thens=s+iPrinti;EndIfNextiPrintPrint"s=";sEndSub8200--40057(75PrivateSubCommand1_Click()Dims1%,s2%,s3%,i%S1=0S2=0Fori=200to400Ifimod5=0orimod7=0thens1=s1+iEndifNextiFori=200to400Ifimod5=0orimod7=0thens2=s2+iEndifNextiS3=s1-s2Prints3Endsub935715PrivateSubCommand1_Click()DimCountN%,n%CountN=0n=1Don=n+1IfnMod3=1AndnMod5=1AndnMod7=1ThenPrintnCountN=CountN+1EndIfLoopUntilCountN=5EndSub1077PrivateSubCommand1_Click()Dimmark!,max!,min!,aver!,i%aver=0Fori=1To7mark=InputBox(""&i&"")Ifi=1Thenmax=mark:min=markElseIfmarkmaxThenmax=markEndIfaver=aver+markNextiaver=(aver-min-max)/5PrintaverEndSub11100~500(3PrivateSubForm_Click()Dimi%,s%,s1%,s2%,s3%,a!a=0Fori=0To400s=99+is1=(sMod100)\10s2=sMod10s3=s\100Ifs1A3+s2A3+s3A3=sThenEndIfNextiPrintaEndSub12246642Dima%,m%,b%,c%,d%PrivateSubForm_Click()a=Int(Rnd*900+100)Printad=(aMod10)*100b=(aMod100)-(aMod10)c=a\100m=c+b+dPrintmEndSub13a,bcPrivateSubForm_Click()Dima%,b%,c%a=Val(InputBox("inputa"))b=Val(InputBox("inputb"))c=Val(InputBox("inputc"))Ifa+b>cAnda+c>bAndb+c>aThenMsgBox("")ElseMsgBox("")EndIfEndSub14a()a5a｛12648975631002031｝。PrivateSubForm_Click()Dima(),i%,n%a=Array(12,6,4,89,75,63,100,20,31)n=UBound(a)Fori=0TonPrinta(i);NextiPrintFori=5Tona(i-1)=a(i)Nextin=n-1ReDimPreservea(n)Fori=0TonPrinta(i);NextiPrintEndSub15［10,20］Dima%(4,4)PrivateSubCommand1_Click()Picture1.ClsFori=0To4Forj=iTo4Picture1.PrintTab(j*6);a(i,j);NextjPicture1.PrintNextiEndSubPrivateSubForm_Load()Fori=0To4Forj=0To4a(i,j)=Int(Rnd*11+10)NextjNextiEndSub164>4(),［20,50］，PrivateSubForm_Click()Dima%(3,3),s0%,s1%,s2%,s3%,b0%,b1%,b2%,b3%Max=40Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)PrintTab(j*5);a(i,j);Ifa(0,j)>=MaxThens0=a(0,j):b0=jIfa(1,j)>=MaxThens1=a(1,j):b1=jIfa(2,j)>=MaxThens2=a(2,j):b2=jIfa(3,j)>=MaxThens3=a(3,j):b3=jNextjNextiPrintPrint"";s0;"(";0;b0;")"Print"";s1;"(";1;b1;")"Print"";s2;"(";2;b2;")"Print"";s3;"(";3;b3;")"EndSub1744(),［40,80］PrivateSubForm_Click()Dima%(3,3)Min=80Fori=0To3Forj=0To3a(i,j)=Int(Rnd*41+40)PrintTab(j*5);a(i,j);Ifa(i,j)<=MinThenMin=a(i,j):b=i:c=jEndIfNextjNextiPrintPrint"";MinPrint"";"(";b,c;")"EndSub18PrivateSubForm_Click()Dima(5)asstring,b(4)asinteger,t%,max%,imax%Fori=1to5a(i)=inputbox("a")NextiFori=0to4b(i)=len(trim(a(i)))NextiMax=1Fori=0to4IfmaxamaxThenamax=a(i)Ifa(i)a(1)Thenmaxa=a(i):m=iEndIfNextiFori=1To10Printa(i);NextiPrint"maxa="&maxa;""&mEndSub254X4A,B,CABA120B100200CABA,B,CPrivateSubCommand1_Click()Dima(3,3),b(3,3),c(3,3),t%,m%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*20+1)Picturel.Printa(i,j);NextjNextiPicturel.PrintFori=0To3Forj=0To3b(i,j)=Int(Rnd*101+100)Picturel.Printb(i,j);NextjNextiPicture1.PrintFori=0To3Forj=0To3c(i,j)=a(i,j)+b(i,j)NextjNextiEndSub264>4(),［20,50］PrivateSubForm_Click()Dima%(3,3)Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)PrintTab(j*5);a(i,j);NextjNextis=a(1,1)+a(2,2)+a(3,3)+a(0,0)+a(0,3)+a(1,2)+a(2,1)+a(3,0)PrintPrint"：";sEndSub274>4(),［40,80］PrivateSubForm_Click()Dima%(3,3)Min=80Fori=0To3Forj=0To3a(i,j)=Int(Rnd*41+40)PrintTab(j*5);a(i,j);Ifa(i,j)<=MinThenMin=a(i,j):b=i:c=jEndIfNextjNextiPrintPrint"";MinPrint"";"(";b,c;")"EndSub28［10,20］Dima%(4,4)PrivateSubCommand1_Click()Picturel.CIsFori=0To4Forj=iTo4Picture1.PrintTab(j*6);a(i,j);NextjPicturel.PrintNextiEndSubPrivateSubForm_Load()Fori=0To4Forj=0To4a(i,j)=Int(Rnd*11+10)NextjNextiEndSub2910Aa=Array(98,97,95,91,90,99,93,94,93,9PrivateSubForm_CIick()Dima(),max%,min%,imax%,imin%,s!a=Array(98,97,95,91,90,99,93,94,93,96)n=UBound(a)Fori=0TonPrinta(i);NextiPrintmin=a(0):imin=0Fori=0TonIfa(i)maxThenmax=a(i):imax=iNextiPrint"max=";"imax=";imaxReDimPreservea(n-2)s=0Fori=0Ton-2s=s+a(i)Printa(i);NextiPrintPrint"avr=";s/(n-1)EndSub30nnPrivateSubCommand1_Click()n=Text1.TextReDima(1Ton,1Ton)Fori=1TonForj=1Tona(i,1)=1Ifi=jThena(i,j)=1NextjNextiFori=2TonForj=2Tona(i,j)=a(i-1,j-1)+a(i-1,j)NextjNextiFori=1TonForj=1ToiPicture1.Printa(i,j);"";NextjPicture1.PrintNextiEndSub31a(1to4,1to4),[1,20]13Dima%(1To4,1To4),t%PrivateSubCommand1_Click()Picture1.ClsFori=1To4Forj=1To4Picture1.PrintTab(j*4);a(i,j);NextjPicture1.PrintNextiEndSubPrivateSubCommand2_Click()Fori=1To4Forj=1To4t=a(1,j):a(1,j)=a(3,j):a(3,j)=tPicture2.PrintTab(j*4);a(i,j);NextjPicture2.PrintNextiEndSubPrivateSubForm_Load()Fori=1To4Forj=1To4a(i,j)=Int(Rnd*20+1)NextjNextiEndSub3215c=chr(int(rnd*26+97))PrivateSubCommand1_Click()Dimc$(14),i%Picture1.ClsFori=0To14c(i)=Chr(Int(Rnd*26+97))NextiFori=0To14Picture1.Printc(i);NextiEndSub33［1001000］((1)Functionsushu%(ByValx%)Dimm%,TagAsBoolean,i%m=Val(x)Tag=TrueFori=2Tom-1If(mModi)=0ThenTag=FalseNextiIfTagThensushu=xEndFunctionPrivateSubCommand1_Click()Dimi%,k%Fori=100To1000Ifsushu(i)ThenList1.AddItemiNextiSum=0Fork=0ToList1.ListCount-1Sum=Sum+Val(List1ist(k))NextkLabel1="1001000："&SumEndSub34101~100PrivateSubForm_Click()Dima(1To10)AsInteger,i%,maxa%,mina%,suma%Fori=1To10a(i)=Int(Rnd*71+30)Nextimina=a(1)maxa=a(1)suma=a(1)Fori=2To10Ifa(i)>maxaThenmaxa=a(i)Ifa(i)0ThenPrintss(i)avera=avera+ss(i)NextiPicture1.PrintaveraEndSub40ProcMin,aPrivateSubClick()Form_Dima(1To10),amin,i%Fori=1To10a(i)=Int(Rnd*101)Printa(i);NextiCallProcMin(a(),amin)PrintPrint"amin二"；aminEndSubSubProcMin(b(),min)Dimi%min=b(LBound(b))Fori=LBound(b)+1ToUBound(b)Ifb(i)a(j+1)Thenm=a(j):a(j)=a(j+1):a(j+1)=mNextjNextiFori=LBound(a)+1ToUBound(a)Printa(i);NextiEndSubtsLoveisnotamaybething.Youknowwhenyoulovesomeone.Loveisnotamaybething.Youknowwhenyoulovesomeone.
浙公网安备 33021202002483