private sub score_lostfocus( ) x=val(score.text) if x100 then beepscore.text=""score.setfocuselsetotal=xend if end sub

private sub score_lostfocus( ) x=val(score.text) if x100 then beepscore.text=""score.setfocuselsetotal=xend if end sub
private sub score_lostfocus( )
x=val(score.text)
if x100 then
beep
score.text=""
score.setfocus
else
total=x
end if
end sub

private sub score_lostfocus( ) x=val(score.text) if x100 then beepscore.text=""score.setfocuselsetotal=xend if end sub
虽然看的不太懂.但可以明确的告诉你,你分类写错了.在这里估计帮不了你了.