dim strlen as Integer
dim str as String
dim i as Integer
dim YN as Boolean '判断你输入的是不是数字
dim Temp as String '中间变量,用于存储你输入的字符中的一个
YN=True '默认是数字
str=Text1.text
strlen=len(str)
for i=1 to strlen
Temp=mid(str,i,1)
if Temp<"0" and Temp>"9" then ‘这里,你输入只要有一个不是数字,马上执行下面的,并退出循环,否则继续判断下一个字符
YN=Faulse
exit for
end if
next
if YN then
msg "你输入的是数字"
else
msg "你输入的不全是数字"
end if
追问要是用这个函数IsNumeric,怎么用啊
追答if isnumeric(Str) then
msg "你输入的是数字"
else
msg "你输入的不全是数字"
end if
追问分行显示怎么整啊??就是文本框1输入一个数字,回车后文本框2 显示出该数字,再次输入时,文本框2 另起一行显示第二个数字
追答text2.text =text2.text & chr(10) & chr(13) & text1.text