private sub command1_click()
dim cj as single
cj=val(text1.text)
if cj>=60 then
 text2.text="成绩合格"
end if
end sub