Question

vbs字符串如何判断字符

通过Inputbox函数读入一串字符，若是纯数字，则输出“Yes”，若不是纯数字，则输出“No”（用Msgbox函数）

实在不会啊，求大神帮忙。。

Answer 1

T = InputBox("请输入字符")
If IsNumeric(T) = False Then
MsgBox "你输入的不是数字"
Else
MsgBox "你输入的是数字"
End If

追问

字符串啊

Answer 2

你说的字符是非数字吗？ IsNumeric就是判断是否数值

str="123abc"
For n = 1 To Len(str)
m = Mid(str, n, 1)
If IsNumeric(m) = False Then
MsgBox ("no")
else
MsgBox ("yes")
end If
next n

Answer 3

Private Sub Command1_Click() ——按钮的单击事件
Dim a ——定义 一个变量

a = InputBox("请输入") ——用INPUT输入 给变量a赋值

For n = 1 To Len(a) ——做一循环 ，从1到你输入的字符串的长度
m = Mid(a, n, 1) ——挨个取出字符串中的 字符，放进m
If IsNumeric(m) = False Then ——如果m不是数字 ，那么就 显示 NO
MsgBox ("No")
End If ——结束 IF

Next n ——这是 与 for对应
MsgBox ("Yes") —显示YES

End Sub

我的代码比那位朋友的复杂了些，主要是为了提取字符，挨个判断
这样的好处是，出现如 “123d56key”的混合 字符 ，也可以 鉴别 出来