求好心人帮忙做做VB程序,不能用循环,用IFcase之类的1.编写一个程序,对某次测验的分数进行统计分析,统计59分及以下、60~69分、70~79分、80~89分、90~99分和100分的同学个有多少2.编写一元二次方

Question

求好心人帮忙做做VB程序,不能用循环,用IF case之类的
1.编写一个程序,对某次测验的分数进行统计分析,统计59分及以下、60~69分、70~79分、80~89分、90~99分和100分的同学个有多少
2.编写一元二次方程的求解过程,要求能够判断方程是否有根,如果没根则给出相应的提示信息
3.我们把字符作如下分类：大写字母：A---Z;小写字母：a---z；数字：0---9；其他字符.编写一个程序,根据上述分类的方法.输入一个字符,报告该字符所属的类型.

Answer 1

3\
dim s as string
s=inputbox("请输入一个字符")
if asc(s) > asc("a") and asc(s) < asc("z") then
print s & " 是小写字母"
else
if if asc(s) > asc("A") and asc(s) < asc("Z") then
print s & " 是小写字母"
else
if if asc(s) > asc("0") and asc(s) < asc("9") then
print s & " 是数字"
else
print s & " 是其他字符"
end if
end if
end if