dim grade,snum,mark
snum=text1.text '学号
text2.text=left(snum,2) '年级
mark=right(left(snum,5),1)
select case int(mark)
case 2
text3.text=" 博士生"
case 3
text3.text=" 硕士生"
case 4
text3.text=" 本科生"
case 5
text3.text=" 专科生"
end select
更多资料:http://www.yu3zx.com/
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024