VB.NET中判斷輸入的是字符還是數(shù)字

可以用VB6里的函數(shù)

成都創(chuàng)新互聯(lián)公司10多年企業(yè)網(wǎng)站制作服務(wù);為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁設(shè)計(jì)及高端網(wǎng)站定制服務(wù),企業(yè)網(wǎng)站制作及推廣,對玻璃貼膜等多個(gè)方面擁有多年的網(wǎng)站維護(hù)經(jīng)驗(yàn)的網(wǎng)站建設(shè)公司。

isnumeric()

比如要判斷文本框里的內(nèi)容是否數(shù)字

if isnumeric(TextBox1.text) Then

msgbox("是數(shù)字！")

else

msgbox("不是數(shù)字！")

end if

gb2312>unicode>utf8， 以及逆轉(zhuǎn)的方法'>VB.net 字符轉(zhuǎn)換問題 字符（漢字、數(shù)字、字母、符號）>gb2312>unicode>utf8， 以及逆轉(zhuǎn)的方法

字符編碼轉(zhuǎn)換嗎?

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編碼存儲(chǔ)的

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

'轉(zhuǎn)化為字節(jié)碼

For i As Integer = 1 To n

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

Next

'將字節(jié)碼轉(zhuǎn)化為字符串

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判斷一個(gè)數(shù)值的大小范圍 48

這種表達(dá)方法是VB認(rèn)可的，但意思不一定是您想比達(dá)的。

按照從左到右，以及隱含類型轉(zhuǎn)換的規(guī)則。其含義如下：

先計(jì)算48=A，若A大于等于48，則計(jì)算結(jié)果為True,否則為False

然后計(jì)算True(或False)=57，這時(shí)由于是不同類型的數(shù)據(jù)進(jìn)行比較，程序進(jìn)行隱含的類型轉(zhuǎn)換，轉(zhuǎn)換的規(guī)則是將boolen量轉(zhuǎn)為int。False為0，True為-1(0xffff)。

所以True(或False)=57相當(dāng)于-1(0)=57，這個(gè)比達(dá)式恒為True的。

要真實(shí)表達(dá)樓主的意頭，就當(dāng)為A=48 and A=57

如何用VB.NET生成一個(gè)隨機(jī)字符串

用法 RndString(xx) xx為隨機(jī)數(shù)字長度

比如12位長度的隨機(jī)字符串 則為 RndString(12)

字符串包含數(shù)字和大小寫字母，函數(shù)如下：

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) '隨機(jī)生成的字符有大小寫字母和數(shù)字，共有26個(gè)

If R 10 Then '如果小于10，則是數(shù)字 數(shù)字的ASCII是48-57 對應(yīng) 隨機(jī)數(shù)字 0-9 所以要將隨機(jī)數(shù)字加48

S = Chr(R + 48) 'Chr 是將把數(shù)字按Ascii碼轉(zhuǎn)換為對應(yīng)的字符

ElseIf R 36 Then '如果小于36，則是大寫字母 大寫字母的ASCII是65-90 對應(yīng) 隨機(jī)數(shù)字10-35 所以要將隨機(jī)數(shù)字加55

S = Chr(R + 55)

Else '如果大于36，則是小寫字母 小寫字母的ASCII是97-122 對應(yīng) 隨機(jī)數(shù)字36-62 所以要將隨機(jī)數(shù)字加61

S = Chr(R + 61)

End If

returnStr = returnStr + S

Next

RndString = returnStr

End Function