资源描述：
《VB程序设计30道编程题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、'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，判断此方程是否有
2、实根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，则用消息框弹出，显示"恭喜！成绩通过
3、！"，若小于60，则弹出消息框，显示"抱歉！成绩没有通过！"X=Val(InputBox("input"))IfX>=60ThenMsgBox("恭喜！成绩通过！")ElseMsgBox("抱歉！成绩没有通过！")EndIfEndSubPrivateSubCommand14_Click()'4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）yes=Val(InputBox("year"))IfyesMod4=0AndyesMod100<>0OryesMod400=0ThenMsg
4、Box(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>=60MsgBo
5、x("及格")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
6、=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)EndSubPrivateSubComman
7、d18_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=0
8、To9a(i)=Int(Rnd*101)Printa(i)Nextimax=a(0)min=a
