输出按钮的click事件代码:
cj=thisform.text1.value &&注意先在表单设计中将text1设置成数值型
do case
case cj<60
jg="不及格"
case cj>=60.and.cj<70
jg="及格"
case cj>=70.and.cj<90
jg="良好"
case cj>=90
jg="优秀"
othe
jg="输入错误"
endc
thisform.label1.caption=jg
退出按钮的click事件代码
thisform.release