VB编程题目

VB编程题目及答案VB编程题目及答案PAGE/NUMPAGESVB编程题目及答案输入3个数，输出最大的数有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程可否有实根输入一个百分制的成绩，若大于等于60，则用信息框弹出，显示“恭贺！成绩经过！”，若小于60，则弹出信息框，显示“对不起！成绩没有经过！”4.输入一年份，判断它可否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能够被100整除，也许能被400整除）5.输入学生的百分制成绩，变换输出为五级制成绩，90～100分变换为优秀，80～89转换为优秀，70～79变换为中等，60～69变换为及格，0～60变换为不及格。随机产生一个三位正整数，尔后逆序输出，产生的数与逆序数同时显示。比方，产生246，输出是642。输入两个整数，求它们的最大合约数。8.编程求200--400范围内5的倍数或7的倍数之和。(一个数假好像时是7和5的倍数，则只能加一次。。计算100~300之间所有能被3和7整除的数之和分别统计1-100中，满足3的倍数、7的倍数的数各有多少。11.某次歌曲大奖赛，有7个评委。若是分别输入7个评委对某个参赛者的打分数，依照去掉一个最高分和一个最低分的计算方法，求出该参赛者的平均得分。12.输入一串字符，统计其中字母A(不区分大小写)出现的次数。13.我国目前有13亿人口，按人口年增加率%计算，多少年后我国人口将高出26亿。小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；今后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少求100以内的素数百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 。17.编程求斐波那契数列前11项。（斐波那契数列：F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n>=2）18.将输入的字符串以反序显示。比方：输入“ASDFGT”，显示“TGFDSA”随机产生10个[30,100]内的整数，求最大值及所对应的下标随机产生10个[30,100]内的整数，求最大值、最小值和平均值。随机产生10个[30,100]内的整数，求最小值及所对应的下标。随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和已知有序数组a()，编程插入x（x的值为14）。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。编写一函数，计算Double种类一维数组所有元素的平均值。用函数过程求 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式1+1/2+1/3+1/4++1/n的和.编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。编一个函数，求一维数组a中的最大值，函数的形参自己确定。编写一个过程计算并输出区间[100，1000]内所有素数的和(要求判断素数使用过程（函数或子过程）来实现。调用该过程。(提示：只能被1和自己整除的自然数称为素数。)(注：本答案第一行代码应在题目此后，自行调整)PrivateSubCommand11_Click()'1.输入3个数，输出最大的数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("不及格")EndSelectEndSubPrivateSubCommand16_Click()'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)EndSubPrivateSubCommand1_Click()'7.输入两个整数，求它们的最大合约数m=Val(InputBox("inputm值"))n=Val(InputBox("inputn值"))Ifn>mThent=nn=mm=tEndIfr=mModnDoWhiler<>0m=nn=rr=mModnLoopMsgBox("最大合约数="&n)EndSubPrivateSubCommand2_Click()'8.编程求200--400范围内5的倍数或Dimsum1%,sum2%sum1=0:sum2=0Fori=200To400IfiMod5=0Thensum1=sum1+iElseIfiMod7=0Thensum2=sun2+iEndIfi,sum1,sum2NextiMsgBox("5的倍数之和sum="&sum1)MsgBox("7的倍数之和sum="&sum2)EndSubPrivateSubCommand3_Click()7的倍数之和。(一个数假好像时是7和5的倍数，则只能加一次。'9.计算100~300之间所有能被3和7整除的数之和Dimsum%sum=0Fori=100To300IfiMod3=0AndiMod7=0Thensum=sum+iEndIfNextiMsgBox("sum="&sum)EndSubPrivateSubCommand4_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)EndSubPrivateSubCommand10_Click()'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元，编程求解购鸡方案。n=0ForX=0To33Fory=0To50z=100-X-yIf3*X+2*y+*z=100ThenPrintX,y,zEndIfNextyNextXEndSubPrivateSubCommand20_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.将输入的字符串以反序显示。比方：输入Dims(10)AsStringFori=0To9s(i)=InputBox("input")NextiFori=9To0Step-1Prints(i)NextiEndSub"ASDFGT"，显示"TGFDSA"PrivateSubCommand22_Click()'19.随机产生10个[30,100]内的整数，求最大值及所对应的下标Dima(10)AsInteger,max%Fori=0To9a(i)=Int(Rnd*71+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*71+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)EndSubPrivateSubCommand17_Click()'21.随机产生10个[30,100]内的整数，求最小值及所对应的下标。Dima(10)AsIntegerFori=0To9a(i)=Int(Rnd*71+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*11+10)NextjNextiFori=0To9Forj=0ToiPrinta(i,j),NextjPrintNextiEndSubPrivateSubCommand19_Click()'23.随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。Dima(10)AsInteger,max%,min%Fori=0To9a(i)=Int(Rnd*100+1)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)EndSubPrivateSubCommand24_Click()'24.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和Dima(4,4)AsIntegerDimsum%,i%,j%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+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)