vb程序设计0道编程题.docx

1.输入 3 个数，输出最大的数

PrivateSubCommand11_Click()Dimmax%X1=Val(InputBox(input))X2=Val(InputBox(input))x3=Val(InputBox(input))max=X1

Ifmax=X2Then

EndSub

PrivateSubCommand14_Click()

4.输入一年份，判断它是否为闰年，并显示有关信息。

（判断闰年的条件是：年份能4被整除但不能被100整除，或者能被400整除）yes=Val(InputBox(year))

IfyesMod4=0AndyesMod1000OryesMod400=0Then

max=X2EndIf

Ifmax=x3Thenmax=x3

EndIf

MsgBox(yes是

ElseMsgBox(yes不EndIf

EndSub

闰年)

是闰年)

MsgBox(3个数之中的最大数max=max)EndSub

PrivateSubCommand12_Click()

PrivateSubCommand15_Click()

5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。

2.有一元二次方程：aX2+bX+c=，0

判断此方程是否有实根a=Val(InputBox(input))B=Val(InputBox(input))c=Val(InputBox(input))s=B^2-4*a*c

Ifa0ThenIfs=0Then

MsgBox(两个相等实根)ElseIfs0ThenMsgBox(两个不相等实根)ElseIfs0ThenMsgBox(两个不相等虚根)EndIf

Else

MsgBox(无解)EndIf

EndSub

依次输入a，b，c，

score=Val(InputBox(input))SelectCasescore

CaseIs=90MsgBox(优秀)CaseIs=80MsgBox(良好)CaseIs=70MsgBox(中)CaseIs=60MsgBox(及格)CaseElseMsgBox(不及格)EndSelect

EndSub

6.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产2生46，输出是642。

a=645

PrivateSubCommand13_Click()

3.输入一个百分制的成绩若，大于等于60，则用消息框弹出，显示恭喜！成绩通过！，若小于60，则弹出消息框，显示抱歉！成绩没有通过！X=Val(InputBox(input))

IfX=60Then

MsgBox(恭喜！成绩通过！)Else

MsgBox(抱歉！成绩没有通过！)EndIf

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)=c

NextiMsgBox(a)

EndSub

7.输入两个整数，求它们的最大公约数

m=Val(InputBox(input值m))n=Val(InputBox(input值n))

IfnmThent=n

n=mm=tEndIf

r=mModn

DoWhiler0m=n

n=r

r=mModnLoop

MsgBox(最大公约数=n)EndSub

21.随机产生10个[30,100]内的整数，求最小值及所对应的下标。

Dima(10)AsIntegerFori=0To9a(i)=Int(Rnd*70+30)

Nextimin=a(0)Mini=0

Fori=1To9

Ifa(i)=minThenmin=a(i)

Mini=iEndIfNexti

MsgBox(min=min)MsgBox(mini=Mini)EndSub

PrivateSubCommand18_Click()

22.随机生成一个整型的二维数组，范围[在10,20]之间，以下三角形式输出该数组。

Dima(10,10)AsIntegerFori=0To9

Forj=0To9a(i,j)=Int(Rnd*20+10)Nextj

Nexti

Fori=0To9Forj=0ToiPrinta(i,j