vb编程题代码43例

《vb编程题代码43例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB编程题代码43例1、求100以内的素数。PrivateSubForm_Click()Dimi%,j%Fori=2To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrintiNextiEndSub2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。PrivateSubCommand1_Click()Dima$,I%,c$,d$,n%a=InputBox$("输入字符串")n=Len(a)ForI=1ToInt(n2)c=Mid(a,I,1)Mid(a,I,1)=Mid(a,n

2、-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整除）PrivateSubCommand1_Click()Dimy%y=InputBox("请输入年数")IfyMod4=0AndyMod100<>0OryM

3、od400=0ThenMsgBox(y&"年是闰年")ElseMsgBox(y&"年是平年")EndIfEndSub5、已知x,y,z3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得xyThent=x:x=y:y=tIfx>zThent=x:x=z:z=tIfy>zThent=y:y=z:z=tPrint"排序后";x;"";y;"";zEndSu

4、b6、求s=a+aa+aaa+...aaaaa（n个a），其中a和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。如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整除的数之和。P

5、rivateSubForm_Click()Fori=100To300IfiMod21=0Thens=s+iPrinti;EndIfNextiPrintPrint"s=";sEndSub8、编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。)PrivateSubCommand1_Click()Dims1%,s2%,s3%,i%S1=0S2=0Fori=200to400Ifimod5=0orimod7=0thens1=s1+iEndifNextiFori=200to400Ifimod5=0orimod7=0thens2=s2+iEndifNex

6、tiS3=s1-s2Prints3Endsub9、找出被3、5、7除，余数为1的最小的5个正整数。PrivateSubCommand1_Click()DimCountN%,n%CountN=0n=1Don=n+1IfnMod3=1AndnMod5=1AndnMod7=1ThenPrintnCountN=CountN+1EndIfLoopUntilCountN=5EndSub10、某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。PrivateSubCommand1_Click()Dimmark!,max

7、!,min!,aver!,i%aver=0Fori=1To7mark=InputBox("输入第"&i&"位评委的打分")Ifi=1Thenmax=mark:min=markElseIfmarkmaxThenmax=markEndIfaver=aver+markNextiaver=(aver-min-max)/5PrintaverEndSub11、编程显示100~500之间所有的水仙花数