VB程序设计道编程题完整版

HENsystemofficeroom【HEN16H-HENS2AHENS8Q8-HENH1688】VB程序设计道编程题'1.输入3个数，输出最大的数PrivateSubCommand11_Click()Dimmax%X1=Val(InputBox("input"))X2=Val(InputBox("input"))x3=Val(InputBox("input"))max=X1Ifmax<=X2Thenmax=X2EndIfIfmax<=x3Thenmax=x3EndIfMsgBox("3个数之中的最大数max="&max)EndSubPrivateSubCommand12_Click()'2.'有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根a=Val(InputBox("input"))B=Val(InputBox("input"))c=Val(InputBox("input"))s=B^2-4*a*cIfa<>0ThenIfs=0ThenMsgBox("两个相等实根")ElseIfs>0ThenMsgBox("两个不相等实根")ElseIfs<0ThenMsgBox("两个不相等虚根")EndIfElseMsgBox("无解")EndIfEndSubPrivateSubCommand13_Click()'3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示"恭喜！成绩通过！"，若小于60，则弹出消息框，显示"抱歉！成绩没有通过！"X=Val(InputBox("input"))IfX>=60ThenMsgBox("恭喜！成绩通过！")ElseMsgBox("抱歉！成绩没有通过！")EndIfEndSubPrivateSubCommand14_Click()'4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）yes=Val(InputBox("year"))IfyesMod4=0AndyesMod100<>0OryesMod400=0ThenMsgBox(yes&"是闰年")ElseMsgBox(yes&"不是闰年")EndIfEndSubPrivateSubCommand15_Click()'5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。score=Val(InputBox("input"))SelectCasescoreCaseIs>=90MsgBox("优秀")CaseIs>=80MsgBox("良好")CaseIs>=70MsgBox("中")CaseIs>=60MsgBox("及格")CaseElseMsgBox("不及格")EndSelectEndSub'6.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。a="645"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)=cNextiMsgBox(a)EndSub'7.输入两个整数，求它们的最大公约数m=Val(InputBox("inputm值"))n=Val(InputBox("inputn值"))Ifn>mThent=nn=mm=tEndIfr=mModnDoWhiler<>0m=nn=rr=mModnLoopMsgBox("最大公约数="&n)EndSub21.随机产生10个[30,100]内的整数，求最小值及所对应的下标。Dima(10)AsIntegerFori=0To9a(i)=Int(Rnd*70+30)Nextimin=a(0)Mini=0Fori=1To9Ifa(i)<=minThenmin=a(i)Mini=iEndIfNextiMsgBox("min="&min)MsgBox("mini="&Mini)EndSubPrivateSubCommand18_Click()'22.随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。Dima(10,10)AsIntegerFori=0To9Forj=0To9a(i,j)=Int(Rnd*20+10)NextjNextiFori=0To9Forj=0ToiPrinta(i,j),NextjPrintNextiEndSubPrivateSubCommand19_Click()'23.随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。Dima(10)AsInteger,max%,min%Fori=0To9a(i)=Int(Rnd*101)Printa(i)Nextimax=a(0)min=a(0)Fori=1To9Ifa(i)>=maxThenmax=a(i)Elsemin=a(i)EndIfsum=sum+a(i)NextiMsgBox("max="&max)MsgBox("min="&min)MsgBox("avg="&sum/10)EndSubPrivateSubCommand2_Click()'8.编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。Dimsum1%,sum2%sum1=0:sum2=0Fori=200To400IfiMod5=0Thensum1=sum1+iElseIfiMod7=0Thensum2=sun2+iEndIfi,sum1,sum2NextiMsgBox("5的倍数之和sum="&sum1)MsgBox("7的倍数之和sum="&sum2)EndSubPrivateSubCommand20_Click()'17.编程求斐波那契数列前11项。（斐波那契数列：F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n>=2）Dimf(11)AsIntegerf(0)=1f(1)=1Fori=2To10f(i)=f(i-1)+f(i-2)NextiFori=0To10Printf(i);NextiEndSubPrivateSubCommand21_Click()'18.将输入的字符串以反序显示。例如：输入"ASDFGT"，显示"TGFDSA"Dims(10)AsStringFori=0To9s(i)=InputBox("input")NextiFori=9To0Step-1Prints(i)NextiEndSubPrivateSubCommand22_Click()'19.随机产生10个[30,100]内的整数，求最大值及所对应的下标Dima(10)AsInteger,max%Fori=0To9a(i)=Int(Rnd*70+30)Nextimax=a(0)maxi=0Fori=1To9Ifa(i)>=maxThenmax=a(i)maxi=iEndIfNextiMsgBox("max="&max)MsgBox("maxi="&maxi)EndSubPrivateSubCommand23_Click()'20.随机产生10个[30,100]内的整数，求最大值、最小值和平均值。Dima(10)AsInteger,max%,min%Fori=0To9a(i)=Int(Rnd*70+30)Nextimax=a(0)min=a(0)Fori=1To9Ifa(i)>=maxThenmax=a(i)Elsemin=a(i)EndIfsum=sum+a(i)NextiMsgBox("max="&max)MsgBox("min="&min)MsgBox("avg="&sum/10)EndSubPrivateSubCommand24_Click()'24.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和Dima(4,4)AsIntegerDimsum%,i%,j%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*30+20)sum=sum+a(i,j)NextjNextiFori=0To3Forj=0To3Printa(i,j),NextjPrintNextiMsgBox("sum="&sum)EndSubPrivateSubCommand25_Click()'25.已知有序数组a()，编程插入x（x的值为14）。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。Dima(),iMin%,n%,i%,j%,t%a=Array(2,6,4,89,75,63,100,20,31)X=14n=UBound(a)'获得数组的下标上界Fori=0Ton-1'进行n-1轮比较iMin=i'对第i轮比较时，初始假定第i个元素最小Forj=i+1Ton'在数组i+1～n个元素中选最小元素的下标Ifa(j) 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式1+1/2+1/3+1/4+…+1/n的和.n=InputBox("INPUT")s=sum2(n)MsgBox("SUM2="&s)EndSubFunctionsum2!(ByValnAsInteger)Dimi%sum2=0Fori=1Tonsum2=sum2+1/iNextiEndFunctionPrivateSubCommand28_Click()'28.编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定Dima(),n%,min%a=Array(1,4,7,9,12,-23,56)n=UBound(a)Callprocmin(a(),min)MsgBox("min="&min)EndSubSubprocmin(X(),ByRefmin%)Dimi%min=X(0)Fori=1ToUBound(X)IfX(i)<=minThenmin=X(i)NextiEndSubPrivateSubCommand29_Click()'29.编一个函数，求一维数组a中的最大值，函数的形参自己确定。Dima(),n%,s!a=Array(1,4,7,9,12,23,56)n=UBound(a)s=max(a())MsgBox("max="&s)EndSubFunctionmax%(X())Dimi%max=X(0)Fori=1ToUBound(X)IfX(i)>maxThenmax=X(i)NextiEndFunctionPrivateSubCommand3_Click()'9.计算100~300之间所有能被3和7整除的数之和Dimsum%sum=0Fori=100To300IfiMod3=0AndiMod7=0Thensum=sum+iPrivateSubCommand30_Click()'30.编写一个过程计算并输出区间[100，1000]内所有素数的和(要求判断素数使用过程（函数或子过程）来实现。调用该过程。( 提示 春节期间物业温馨提示小区春节期间温馨提示物业小区春节温馨提示春节物业温馨提示物业春节期间温馨提示 ：只能被1和自身整除的自然数称为素数。)Dimi%,sum!,f%sum=0Fori=100To1000Callprocs(i,f)Iff=1Thensum=sum+iEndIfNextiMsgBox("sum="&sum)EndSubSubprocs(ByValX%,ByReff%)Dimi%f=1Fori=2ToX-1IfiModX=0Thenf=0ExitForEndIfNextiEndSubPrivateSubCommand4_Click()'10.分别统计1-100中，满足3的倍数、7的倍数的数各有多少m=0:n=0Fori=1To100IfiMod3=0Thenn=n+1ElseIfiMod7=0Thenm=m+1EndIfNextiMsgBox("3的倍数个数="&n)MsgBox("7的倍数个数="&m)EndSubPrivateSubCommand5_Click()'11.某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算 办法 鲁班奖评选办法下载鲁班奖评选办法下载鲁班奖评选办法下载企业年金办法下载企业年金办法下载 ，求出该参赛者的平均得分Dimsum%,max%,min%sum=0:max=0:min=999Fori=1To7X=Val(InputBox("input"))Ifmax<=XThenmax=XEndIfIfmin>=XThenmin=XEndIfsum=sum+XNextiAvg=(sum-max-min)/5MsgBox("最高分="&max)MsgBox("最低分="&min)MsgBox("总和="&sum)MsgBox("平均分="&Avg)EndSub'12.输入一串字符，统计其中字母A(不区分大小写)出现的次数。DimchAsStringch="ASDEAS"n=0Fori=1ToLen(ch)st=Mid(ch,i,1)IfUCase(st)="A"Thenn=n+1EndIfNextiMsgBox("字符串中出现A字符的系数"&n)EndSubPrivateSubCommand6_Click()'13.我国目前有13亿人口，按人口年增长率%计算，多少年后我国人口将超过26亿。n=0X=13DoWhileX<=26X=X*n=n+1LoopMsgBox(n)EndSubPrivateSubCommand7_Click()'14.小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？X=1Fori=6To1Step-1X=(X+1)*2NextiMsgBox(X)EndSubPrivateSubCommand8_Click()'15.求100以内的素数Fori=1To100flag=1Forj=2Toi-1IfiModj=0Thenflag=0EndIfNextjIfflag=1ThenMsgBox(i&"是素数")EndIfNextiEndSubPrivateSubCommand9_Click()'16.百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 。n=0ForX=0To33Fory=0To50z=100-X-yIf3*X+2*y+*z=100ThenPrintX,y,zEndIfNextyNextXEndSub