vb题目及详细答案

《vb题目及详细答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、1.求100以内的素数。Nexti333333。编程确定n和a的9、找出被3、5、7除，余PrivateSubForm_Click()Prints值，并计算S.数为I的最小的5个正整Dimi%,m%EndSubPrivateSubForm_Click()数。Form=2To1(X)4.输入一年份，判断它是Dims!,t!»i!,a%,n%PrivateSuba=0否为闰年，并显示有关信a=Int(Rnd*9+1)Commandl_Click()Fori=IIom息。（判断闰年的条件是：n=lnt(Rnd*6+5)DimCount

2、N%,n%IfmModi=0Then年份能被4整除但不能被t=0:s=0CountN=0a=a+1100整除，或者能彼400整Print,,a=w;a,Mn=H;nn=1EndIf除）Fori=1TonDoNextiSubCommandl_Click()t=t*10+an=n+1Ifa=2ThenDimy%s=s+tIfnMod3=1AndnPrintmy=Year(Now)Printt;Mod5=1AndnMod7=1EndIfIfyMod4=0AndyModNextiThenNextm10()<>0OryMod400=0Pr

3、intPrintnEndSubThenPrint”s=”；sCountN=CountN+I2.从键盘输入任意长度的MsgBox(y&”年是闰年JEndSubEndIf字符串，要求将字符顺序倒Else7、计算100-300之间所有LoopWhileCountN<5S*.,例如，将输入的MsgBox(y&”年是平年”)能被3和7整除的数Z和。EndSub“ABCDEF”变换成EndIfPrivateSub10、某次歌曲大奖赛，有7“GFEDCBEndSubCommandl_Click()个评委。如果分別输入7个PrivateSub5

4、.己知x,y,z3个变呈中Dimi,jAsInteger评委对某个参赛者的打分Commandl_Click()存放了3个不同的数，比较Fori=10()To30()数，按照去掉一个最高分和DimaS,1%,c$,d$,n%它们的大小并进行调整，使IfiMod3=0Andi一个最低分的计算办法，求a=InputBox$(H输入字符串得XVyVZ.Mod7=0Then出该参赛者的平均得分。")PrivateSubSum=Sum+iSubCommandl_Click()n=Len(a)Commandl_Click()EndIfDimm

5、ark!,aver!,i%,ForI=1ToInt(n/2)Dimx!,y!,z!Nextimaxi!,mini!c=Mid(a,I,1)x=InputBox(Mi叩x")PrintSumaver=0Mid(a,I,1)=Mid(a,n・I+y=InputBox(Minputy")EndSubFori=1To71,1)z=InputBox(°inputz")8、編程求200-400范恫内mark=InpulBox("输入Mid(atn-1+1,1)=cIfx

6、的打分”）Nextl=t（一个数如果同时是7和5lfi=1ThenPrintaIfx

7、Dimi%,s%EndSubIfiMod5=0OriElselfmark>max1s=06、求s=a+aa+aaa+...aaaaaMod7=0ThenThenFori=1lb200（n个a）,其中a和n的值sum=sum+imax1=markIfiMod5=0OriMod11=随机产生，a的范围是[1,9]EndIfEndIf0Then的整数，n的范围是[5,10],NextiEndIfs=s+i如a=3,n=6,则Printsumaver=aver+markEndIfs=3+33+333+3333+33333+EndSubN

8、extiaver=(aver-maxi-a=Val(InputBox(MinputDima(lto5,1to5)As一个4X4的矩阵(即二维矩min1)/5a"))Integer阵)，范围是［40,80］内的整Prinlaverb=Val(InputBox(Mi