¥Ø«e²{¦b»s§@ªí³æªº¸ê®Æ¶ñ¼g
·í¨Ï¥ÎªÌ¶ñ¤J¼Æ¾Ú¤§«á¡A«ö¤UOK«ö¶s
µ{¦¡·|½T»{¸ê®Æ¬O§_¥¿½T
Y¦³¼Æ¾Ú¶W¹L½d³ò
«h·|¸õ¥Xĵ§i°T¸¹
·Q°Ý»¡¡A·í¨Ï¥ÎªÌ±Nĵ§i°T¸¹«ö½T©w«á
¦p¦óÅýªí³æºû«ù¦b·í¤U¡AÅý¨Ï¥ÎªÌקï«á
¦A«öOK«ö¶sÀˬd
§Ú¥Ø«e¥u·|·í«ö¤UOKÀˬd«á¡A¦³Äµ§i°T¸¹¥X²{¡A¨Ï¥ÎªÌ«ö½T©w«á
«h¾ãÓªí³æ·|¸õ¥X¡A»Ýn¦A¦¸¶ñ¼g><
¬ÛÃöµ{¦¡½X¦p¤U!!
If SPBch.TextBox1.Value = "" Then
MsgBox "³z©ú«×¼ÆȪťÕ!!", vbCritical, "¥¢±Ñ"
End
ElseIf Val(SPBch.TextBox1.Value) < 0 Or Val(SPBch.TextBox1.Value) > 100 Then
MsgBox "³z©ú«×¼ÆÈ¿é¤J¿ù»~¡A½Ð«·s°õ¦æ", vbCritical, "¥¢±Ñ"
End
Else
spb02 = Val(SPBch.TextBox1.Value)
End If |