Question

VB text1=任何数时 text2=1

RT 我在text1中输入任何有理数的话 text2自动变成1 怎么弄？

Answer 1

Private Sub Text1_Change()
Text2.Text = 1
End Sub
至于判断有理数的根据ASCII码就可以了