VB经典案例
1输入3个数，输出最大的数Xvaltext1yvaltext2zvaltext3ifxythe
ifxzthe
pri
txelsepri
tze
difelseifyzthe
pri
tye
dif
2有一元二次方程：aX2bXc0，依次输入a，b，c，判断此方程是否有实根avaltext1bvaltext2cvaltext3Ifbb4ac0the
pri
t“有实根”elsepri
t“无实根”e
dif
3输入一个成绩，若大于等于60，则用消息框显示“恭喜！成绩通过！”，若小于60，则弹出消息框显示“抱歉！成绩没有通过！”Nvaltext1if
60the
msgbox”恭喜！成绩通过”elsemsgbox“抱歉！成绩没有通过！”e
dif
4输入一年份，判断它是否为闰年，并显示有关信息判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）yvaltext1ifymod40a
dymod1000the
pri
t“y是闰年”elsepri
ty“不是闰年’”e
dif
5输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。Ifmark90the
grade‘优’elseIfmark80the
grade‘良’elseIfmark70the
grade‘中’elseIfmark60the
grade‘及格’elsegrade”不及格”
6随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。
i
tr
d900100dimxabcaxmod10bi
txmod10010ci
tx100pri
txa100b10c
7输入两个整数，求它们的最大公约数。Fu
ctio
gcdbyvalmbyval
ifm
the
tmm
t
fRmmod
dowhiler0m
rrmod
loopgcd
e
dfu
ctio
8编程求200400范围内5的倍数或7的倍数之和。dimsis0Fori200to400ifimod50orimod70the
ssie
dif
extipri
ts
9计算100300之间所有能被3和7整除的数之和dimsis0fori100to300Ifimod30a
dimod70the
ssie
dif
extipri
t“s”s
10分别统计1100中，满足3的倍数、7的倍数的数各有多少。Dim
1
2i
10
20Fori1to100ifimod30the
1
11ifimod70the
2
21
extipri
t
1
2
11某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。Dima6asi
tegerimaxmi
suma0valtext1text省略a6）valtext7textsuma0a1a2a3a4a5a6maxa0mi
a0fori1to6ifmi
aithe
mi
aiIfmaxaithe
maxaisumsumai
extipri
t“平均分”summi
max5
12输入一串字符，统计其中字母A出现的次数。dimsi，
stext1
0fori1tole
s）cmidsi1Ifc”A”ORc”a”the

1
extipri
t
13我国目前有13r