用VB设计小程序，自动判断输入的字符是字母字符、数字字符还是其他字符？

用Asc()函数判断，数字是从48到57，小写字母是从97到122，大写字母是从65到90。

判断过程：

A=inputbox("输入的字符")

select case asc(A)

case 48 to 57

msgbox "数字。"

case 65 to 90

msgbox "大写字母。"

case 97 to 122

msgbox "小写字母。"

case else

msgbox "其他字符。"

end select

package com.java.lang

import java.util.regex.Pattern

import java.util.regex.Matcher

public class NatualNumber{

public static void main(String[] args) {

if (args.length == 0) {

System.out.println("请输入一个数字")

} else {

if (isDigit(args[0])) {

if("0".equals(args[0])) {

System.out.println("请输入自然数。")

} else {

System.out.println("您输入的数字[ "+ args[0] +" ]是自然数。")

}

} else {

System.out.println("请输入自然数。")

}

}

}

public static boolean isDigit(String string) {

boolean flag = false

Pattern p = Pattern.compile("^\\d$")

Matcher m = p.matcher(string)

flag = m.matches()

return flag

}

}

大体是这样的,

有一个是用来对比的.存放的是

0,1,2,3,4,5,6,7,8,9,0其实,可以不用写最后的0的,

然后由你输入一个字符串,

逐个字符和用来对比的那个串中的每一个比较,如果有一样的,就跳出来了.

flag就是标志位判断是否有一样的,如果到最后flag仍为'0',则表示你输入的字符串没有0-9中的字符,如果flag为'1'则表示你输入的串中有数字字符.

---