VB编程题答案

《VB编程题答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、（1）选择结构（2）循环结构（3）数组（4）过程1.输入3个数，输出最大的数2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根详细代码如下：PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimcAsIntegera=InputBox("a")b=InputBox("b")c=InputBox("c")If(b*b-4*a*c)>=0ThenPrint"Yes";ElsePrint"No"EndIfEndSub3.输入一个百分制的成绩，若大于等于60，则用消息框弹出

2、，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！”1.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）代码如下：PrivateSubCommand1_Click()Dimy%y=InputBox("请输入年数")IfyMod4=0AndyMod100<>0OryMod400=0ThenMsgBox(y&"年是闰年")ElseMsgBox(y&"年是平年")EndIfEndSub2.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，

3、80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。代码如下：PrivateSubCommand1_Click()DimnAsSingleDimsAsStringn=Val(InputBox("请你输入成绩"))SelectCasenCase90To100s="优秀"Case80To90s="良"Case70To80s="中"Case60To70s="及格"Case0To60s="不及格"CaseElses="请你输入0至100自己的数字"EndSelectMsgBoxsEndSub1.随机产生一个三位正整数，然后逆

4、序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。代码如下：PrivateSubCommand1_Click()DimnAsIntegerDimaAsStringDimbAsStringn=Int(Rnd*900+100)a=Trim(Str(n))b=""ForI=3To1Step-1b=b+Mid(a,I,1)NextIText1.Text=aText2.Text=bEndSub1.输入两个整数，求它们的最大公约数。PrivateSubCommand1_Click()DimmAsIntegerDimnAsIntegerDimrAsI

5、ntegerm=InputBox("m")n=InputBox("n")r=mModnDoWhiler<>0m=nn=rr=mModnLoopPrint"n=";nEndSub1.编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。。PrivateSubCommand1_Click()DimsumAsIntegersum=0Fori=200To400IfiMod5=0Thensum=sum+iEndIfIfiMod7=0ThenEndIfIfiMod5=0AndiMod7=0Thensum=sum+iEnd

6、IfNextiPrint"sum=";sumEndSub1.计算100~300之间所有能被3和7整除的数之和代码如下：PrivateSubForm_Click()Fori=100To300IfiMod21=0Thens=s+iEndIfNextiPrint"和为";sEndSub1.分别统计1-100中，满足3的倍数、7的倍数的数各有多少。代码如下：PrivateSubCommand1_Click()Dimcount3AsIntegerDimcount7AsIntegercount3=0count7=0Fori=1To100IfiMod3=0Thenc

7、ount3=count3+1EndIfIfiMod7=0Thencount7=count7+1EndIfNextiPrint"count3=";count3Print"count7=";count7EndSub1.某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。PrivateSubCommand1_Click()DimmarkAsSingleDimaverAsSingleDimmax1AsSingleDimmin1AsSingleFori=1To7mark=Inpu

8、tBox("b")Ifi=1Thenmax1=mark:min1=markElseIfmark