VB.NET中判断输入的是字符还是数字

可以用VB6里的函数

成都创新互联公司10多年企业网站制作服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,企业网站制作及推广,对玻璃贴膜等多个方面拥有多年的网站维护经验的网站建设公司。

isnumeric()

比如要判断文本框里的内容是否数字

if isnumeric(TextBox1.text) Then

msgbox("是数字！")

else

msgbox("不是数字！")

end if

gb2312>unicode>utf8， 以及逆转的方法'>VB.net 字符转换问题 字符（汉字、数字、字母、符号）>gb2312>unicode>utf8， 以及逆转的方法

字符编码转换吗?

1.字符与gb2312(gbk的子集)：

Public Function GBKEncode(ByVal sInput As String) As String

Dim ret_GBKEncode As String = ""

Dim i As Integer

Dim startIndex As Integer = 0

Dim endIndex As Integer

Dim x() As Byte = System.Text.Encoding.Default.GetBytes(sInput) '字符以及字符串在vb2008中都是以unicode编码存储的

endIndex = x.Length - 1

For i = startIndex To endIndex

ret_GBKEncode = "%" Hex(x(i))

Next

Return ret_GBKEncode

End Function

'GBK解码

Public Function GBKDecode(ByVal sInput As String) As String

sInput = sInput.Replace("%", "")

Dim ret_GBKDecode As String = ""

Dim sLen As Integer = sInput.Length

Dim n As Integer = sLen \ 2

Dim sBytes(0 To n - 1) As Byte

'转化为字节码

For i As Integer = 1 To n

sBytes(i - 1) = CByte("H" sInput.Substring(2 * i - 2, 2))

Next

'将字节码转化为字符串

ret_GBKDecode = System.Text.Encoding.Default.GetString(sBytes)

Return ret_GBKDecode

End Function

2.Unicode字符串为UTF-8

Imports System.Text

Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()

Dim bytes() As Byte

bytes = Encoding.UTF8.GetBytes(strData)

Return bytes

End Function

'这里可以类推出好几种。

我想用vb.net判断一个数值的大小范围 48

这种表达方法是VB认可的，但意思不一定是您想比达的。

按照从左到右，以及隐含类型转换的规则。其含义如下：

先计算48=A，若A大于等于48，则计算结果为True,否则为False

然后计算True(或False)=57，这时由于是不同类型的数据进行比较，程序进行隐含的类型转换，转换的规则是将boolen量转为int。False为0，True为-1(0xffff)。

所以True(或False)=57相当于-1(0)=57，这个比达式恒为True的。

要真实表达楼主的意头，就当为A=48 and A=57

如何用VB.NET生成一个随机字符串

用法 RndString(xx) xx为随机数字长度

比如12位长度的随机字符串 则为 RndString(12)

字符串包含数字和大小写字母，函数如下：

Function RndString(ByVal l As Integer) As String

Randomize()

Dim R, i As Integer

Dim S As Char

Dim returnStr As String

returnStr = ""

'a-z 的ASCII码是：97-122

'A-Z 的ASCII码是：65-90

'0-9 的ASCII码是：48-57

For i = 1 To l

R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字，共有26个

If R 10 Then '如果小于10，则是数字 数字的ASCII是48-57 对应 随机数字 0-9 所以要将随机数字加48

S = Chr(R + 48) 'Chr 是将把数字按Ascii码转换为对应的字符

ElseIf R 36 Then '如果小于36，则是大写字母 大写字母的ASCII是65-90 对应 随机数字10-35 所以要将随机数字加55

S = Chr(R + 55)

Else '如果大于36，则是小写字母 小写字母的ASCII是97-122 对应 随机数字36-62 所以要将随机数字加61

S = Chr(R + 61)

End If

returnStr = returnStr + S

Next

RndString = returnStr

End Function

标题名称：包含vb.net48是字符的词条
分享链接：http://myzitong.com/article/ddddgoo.html