VB经典案例
1输入3个数输出最大的数
Xvaltext1
yvaltext2
zvaltext3
ifxythe
ifxzthe
pri
tx
elsepri
tz
e
dif
elseifyzthe
pri
ty
e
dif
2有一元二次方程aX2bXc0依次输入abc判断此方程是否有实根
avaltext1
bvaltext2
cvaltext3
Ifbb4ac0the
pri
t“有实根”
elsepri
t“无实根”
e
dif
3输入一个成绩若大于等于60则用消息框显示“恭喜成绩通过”若小于60则弹出消息框显示“抱歉成绩没有通过”
Nvaltext1
if
60the
msgbox”恭喜成绩通过”
elsemsgbox“抱歉成绩没有通过”
e
dif
4输入一年份判断它是否为闰年并显示有关信息判断闰年的条件是年份能被4整除但不能被100整除或者能被400整除
yvaltext1
ifymod40a
dymod1000the
pri
t“y是闰年”
elsepri
ty“不是闰年’”
e
dif
5输入学生的百分制成绩转换输出为五级制成绩90100分转换为优秀8089转换为良好7079转换为中等6069转换为及格060转换为不及格。
Ifmark90the
grade‘优’
elseIfmark80the
grade‘良’
elseIfmark70the
grade‘中’
elseIfmark60the
grade‘及格’
elsegrade”不及格”
6随机产生一个三位正整数然后逆序输出产生的数与逆序数同时显示。例如产生246输出是642。
i
tr
d900100
dimxabc
axmod10
bi
txmod10010
ci
tx100
pri
txa100b10c
7输入两个整数求它们的最大公约数。
Fu
ctio
gcdbyvalmbyval
ifm
the
tmm
t
fRmmod
dowhiler0
m
rrmod
loopgcd
e
dfu
ctio
8编程求200400范围内5的倍数或7的倍数之和。
dimsi
s0
Fori200to400
ifimod50orimod70the
ssi
e
dif
exti
pri
ts
9计算100300之间所有能被3和7整除的数之和
dimsi
s0
fori100to300
Ifimod30a
dimod70the
ssi
e
dif
exti
pri
t“s”s
10分别统计1100中满足3的倍数、7的倍数的数各有多少。
Dim
1
2i
10
20
Fori1to100
ifimod30the
1
11
ifimod70the
2
21
exti
pri
t
1
2
11某次歌曲大奖赛有7个评委。如果分别输入7个评委对某个参赛者的打分数按照去掉一个最高分和一个最低分的计算办法求出该参赛者的平均得分。
Dima6asi
tegerimaxmi
sum
a0valtext1text省略a6valtext7text
suma0a1a2a3a4a5a6
maxa0
mi
a0
fori1to6ifmi
aithe
mi
ai
Ifmaxaithe
maxai
sumsumai
exti
pri
t“平均分”summi
max5
12输入一串字符统计其中字母A出现的次数。
dimsi
stext1
0
fori1tole
s
cmidsi1
Ifc”A”ORc”a”the

1
exti
pri
t
13我国目前有13亿人口按人口年增长率08计算多少年后我国人口将超过26亿。x13
f
0
dowhilex26
xx1008
1
loop
pri
t“年数为”
r