一段程式

PrivateSubtxtInput_LostFocus()DimResponseAsIntegerIf(IsNumeric(txtInput.Text)=TrueAndVal(txtInput.Text)>=0)TheniStr=txtInput. (”輸入數椐僅由阿拉