admin 管理员组文章数量: 1184232
2024年3月28日发(作者：javaidedroid汉化手机版下载)
VB经典案例
1输入3个数,输出最大的数
X=valtext1
y=valtext2
z=valtext3
if x>=y then
if x>=z then print x
else print z
end if
else if y>=z then print y
end if
2有一元二次方程：aX
2
+bX+c=0,依次输入a,b,c,判断此方程是否有实根
a=valtext1
b=valtext2
c=valtext3
If bb-4ac>=0 then print “有实根”
else print “无实根”
end if
3输入一个成绩,若大于等于60,则用消息框显示“恭喜成绩通过”,若小于60,则弹出消息框显
示“抱歉成绩没有通过”
N=val text1
if n>=60 then msgbox”恭喜成绩通过”
else msgbox “抱歉成绩没有通过”
end if
4输入一年份,判断它是否为闰年,并显示有关信息判断闰年的条件是：年份能被4整除但不
能被100整除,或者能被400整除
y=valtext 1
if y mod 4 =0 and y mod 100 = 0 then print “y是闰年”
else print y “不是闰年’”
end if
5输入学生的百分制成绩,转换输出为五级制成绩,90～100分转换为优秀,80～89转换为良
好,70～79转换为中等,60～69转换为及格,0～60转换为不及格;
If mark >=90 then grade= ‘优’
else If mark >=80 then grade =‘良’
else If mark >=70 then grade =‘中’
else If mark >=60 then grade =‘及格’
else grade=”不及格”
6随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示;例如,产生246,输出是
642;
n=intr n d 900+100
dim x%,a%,b%,c%
a=x mod 10
b=intx mod 100/10
c=intx/100
print x;a100+b10+c
7 输入两个整数,求它们的最大公约数;
Function gcd %by val m%,by val n%
if m R= m mod n do while r< > 0 m=n : n=r :r= mod n loop gcd =n end function 8 编程求200--400范围内5的倍数或7的倍数之和; dim s%,i% s=0 For i =200 to 400 if i mod 5 =0 or i mod 7 =0 then s=s+i end if next i print s 9 计算100~300之间所有能被3和7整除的数之和 dim s%,i% s=0 for i=100 to 300 If i mod 3 =0 and i mod 7 =0 then s=s+i end if next i print “s=” &s 10 分别统计1-100中,满足3的倍数、7的倍数的数各有多少; Dim n1%,n2% ,i% n1=0:n2=0 For i=1to 100 if i mod 3=0 then n1=n1+1 if i mod 7=0 then n2=n2+1 next i print n1,n2 11 某次歌曲大奖赛,有7个评委;如果分别输入7个评委对某个参赛者的打分数,按照去掉一 个最高分和一个最低分的计算办法,求出该参赛者的平均得分; Dim a6 as integer i%,max%,min%,sum% a0=val 省略 a6=val sum=a0+a1+a2+a3+a4+a5+a6 max=a0 min=a0 for i =1 to 6 if min>ai then min=ai If max sum=sum+ai next i print “平均分”;sum-min -max/5 12 输入一串字符,统计其中字母A出现的次数; dim s$,i%,n% s=text1 n=0 for i=1 to lens c=mids,i,1 If c=”A” OR c=”a” then n=n+1 next i print n 13 我国目前有13亿人口,按人口年增长率%计算,多少年后我国人口将超过26亿; x=13 n=0 do while x<26 x=x n=n+1 loop print “年数为：”;n;”人数为:”;x m=log2/log if intm<>m then m= intm+1 print m 14 小猴有桃若干,第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃 尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少 Dim n%,i% x=1 for i=6 to 1 step -1 x =2x+1 print x next i
版权声明：本文标题：VB编程题案例 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711585139a601039.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论