Question

vb if语句 如果文本不是数字该怎么打

vb if语句 如果文本不是数字该怎么打
就给一个按钮 二个文本框 假如我在文本框一中输入的不是数字 按下按钮就会清空文本一的文字 假如我打的是数字 就能在文本框二中显示出来
请问这个应该怎么打啊 详细些 谢谢

Answer 1

vb提供了专门判断变量是否为数字的函数，所以代码非常简单isnumeric(参数)，如果参数是数字返回true，如果不是返回false。
Private Sub Command1_Click()
if isnumeric(text1.text) then
text2.text=text1.text
esle
text1.text=""
end if
End Sub

Answer 2

Private Sub Command1_Click()
s = 0
For i = 1 To Len(Text1.Text)
If Asc(Mid(Text1.Text, i, 1)) >= 48 And Asc(Mid(Text1.Text, i, 1)) <= 57 Then
s = s + 1
Else
Text1.Text = ""
Exit Sub
End If
Next i
If s = Len(Text1.Text) Then Text2.Text = Text1.Text
End Sub
要求text1里全部是数字，否则无法通过。如果全部是数字，则可以通过。
If Asc(Mid(Text1.Text, i, 1)) > 47 And Asc(Mid(Text1.Text, i, 1)) < 58 Then这句是计算是否为数字的ASCII码，0到9的ASCII码是48到57。
循环语句是从一个数字串里的第一个循环到最后一个，计算是不是全为数字，是的话，s就会等于数字串的长度，否则s就不等于text1.text里的长度，就不全为数字。
可以用VB提供的函数来判断，但这里我是自己写的算法。
Mid(字符串，起始位置，长度) 这个函数是从一个字符串里的某个字符开始，取N个字符，N就是长度。上面的 i 首先是1最后是整个字符的长度，每次从字符里取出一个字符进行判断是否为数字。
ASC(单个字符) 这是用来把一个字符转换成它对应的ASCII码。比如ASCII（"A")的值是65。
S用来计算数字的个数。
Exit Sub命令是退出Command1_Click()这个“过程”。后面的语句将不会执行，直接退出此次按钮的单击事件。

Answer 3

Private Sub Command1_click()
If IsNumeric(Text1.Text) Then
Text2.Text = Text1.Text
Else
Text1.Text = ""
End If
End Sub

Answer 4

if isnumeric(text1.text)=false then text1.text="" esle text2.text=text1.text