VB程序设计30道编程题.pdfVIP

VB程序设计30道编

程题

作者xxxx

日期xxxx

【精品文档】

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

PrivateSubCommand11_Click()PrivateSubCommand14_Click()

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

（判断闰年的条件是：年份能被4整除但不能被100整

除，或者能被400整除）

max=X1IfyesMod4=0AndyesMod1000OryesMod400=0

Ifmax=X2ThenThenThen

max=X2是闰年是闰年

EndIfElseElse

Ifmax=x3Then不是闰年不是闰年

max=x3EndIf

EndIfEndIfEndSub

个数之中的最大数个数之中的最大数PrivateSubCommand15_Click()

EndSub5.输入学生的百分制成绩，转换输出为五级制成绩，

PrivateSubCommand12_Click()90～100分转换为优秀，80～89转换为良好，70～79转

2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，换为中等，60～69转换为及格，0～60转换为不及格。

判断此方程是否有实根

SelectCasescore

CaseIs=90CaseIs=90

优秀优秀

s=B^2-4*a*cCaseIs=80CaseIs=80

Ifa0Then良好良好

Ifs=0ThenIfs=0Then