文档介绍：VB编程程序代码1求100以内的素PrivateSubForm_Click()Dimi%,j%Fori=2To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrintiNextiEndSub2、 从键盘输入任意长度的字符串,要求将字符顺序倒置例如,将输入的“ABCDEFG变换成“GFEDCBA。mand1_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)=cNextIPrintaEndSub3、 计算0~200之间所有能被11或5整除的数之和PrivateSubForm_Click()Dimn%,i%n=0Fori=1To200IfiMod11=0OriMod5=0Thenn=n+iEndIfNextiPrintnEndSub4、 输入一年份,判断它是否为闰年,并显示有关信息。(判断闰年的条件是:年份能被4整除但不能被100整除,或者能被400整除)mand1_Click()Dimy%y=InputBox("请输入年数")IfyMod4=0AndyMod100<>0OryMod400=0ThenMsgBox(y&"年是闰年")ElseMsgBox(y&"年是平年")EndIfx<y<zoEndSub5、 已知x,y,z3个变量中存放了3个不同的数,比较它们的大小并进行调整,mand1_Click()Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Ifx>y Then t=x:x=y: y =tIfx>z Then t=x:x=z: z =tIfy>z Then t=y:y=z: z =tPrint"排序后";x;"";y;…;zEndSub6、求s=a+aa+aaa+...aaaa(n个a),其中a和n的值随机产生,a的范围是[1,9]的整数,n的范围如a=3,n=6则s=3+33+333+3333+33333+333333编程确定n和a的值,并计算s。PrivateSubForm_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=";sEndSub7、 计算100~300之间所有能被3和7整除的数之和。PrivateSubForm_Click()Fori=100To300IfiMod21=0Thens=s+iPrinti;EndIfNextiPrintPrint"s=";sEndSub8、编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数,mand1_Click()Dims1%,s2%,s3%,i%S1=0S2=0Fori=200to400Ifimod5=0orimod7=0thens1=s1+iEndifNextiFori=200to400Ifimod5=0orimod7=0thens2=s2+iEndifNextiS3=s1-s2Prints3Endsub9、找出被3、5、7除,mand1_Click()DimCountN%,n%CountN=0n=1Don=n+1IfnMod3=1AndnMod5=1AndnMod7=1ThenPrintnCountN=CountN+1EndIfLoopUntilCountN=5EndSub10、某次歌曲大奖赛,有7个评委。如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分。mand1_Click()Dimmark!,max!,min!,aver!,i%aver=0Fori=1To7mark=InputBox("输入第"&i&"位评委的打分")Ifi=1Thenmax=mark:min=markElseIfmark<minThenmin=markIfmark>maxThenmax=markEndIfaver=aver+markNextiaver=(aver-min-max)/5PrintaverEndSub11、编程显示100~500之间所有的水仙花数之和。(水仙花数是3位数,其各位数之和等于该数本身PrivateSubForm_Click()Dimi%,s%,s1%,s2%,s3%,a!a=0Fori=0To400s=99+is1=(sMod100)\10