vb.net 判斷表達(dá)式內(nèi)容是否為英文字符型

nasdaq和BIDU之間應(yīng)該是中文符號吧，兩組英文字符應(yīng)該掉轉(zhuǎn)才對？

創(chuàng)新互聯(lián)成立與2013年，先為沙洋等服務(wù)建站，沙洋等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為沙洋企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

正則表達(dá)式我是用來統(tǒng)計(jì)字?jǐn)?shù)的，沒有修改，面對某些文本可能不太適合。

VB.NET怎么限制中英文輸入長度

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

If System.Text.Encoding.Default.GetByteCount(TextBox1.Text) = 11 And e.KeyChar Chr(8) Then

e.Handled = True

Else

e.Handled = False

End If

End Sub

這個不太完善，是假設(shè)原來文本長度已經(jīng)有11就不允許繼續(xù)輸入，因?yàn)榕袛喈?dāng)下輸入的是漢字還是英文很麻煩。

e.KeyChar Chr(8)這句是保證任何時候Backspace鍵都要有效。

希望能對你有所幫助。

vb.net程序要求在文本框中輸入的英文字母一律用大寫顯示。怎么編程序。謝謝。急！

用Ucase("")函數(shù)，（""）中放字母

效果：ucase("abc")

結(jié)果：ABC

vb.net怎樣找出列表框中最大的英文字母（怎樣將列表框中的每一項(xiàng)轉(zhuǎn)換為asc碼）

Dim i As Integer

Dim max As Integer = 0

For i = 0 To ListBox1.Items.Count - 1

If Asc(ListBox1.Items(i)) Asc(ListBox1.Items(max)) Then

max = i

End If

Next

Label1.Text = ListBox1.Items(max) ‘將結(jié)果顯示在一個標(biāo)簽上。

vb.net隨機(jī)產(chǎn)生英文字母的代碼

1.隨機(jī)產(chǎn)生英文字母

Randomize() '功 能：初始化隨機(jī)數(shù)發(fā)生器

Me.txt1.Text = Chr(Asc("a") + Int(Rnd() * 26))

'Rnd 函數(shù)返回小于 1 但大于或等于 0 的值。

'0 = Rnd() * 26 26 是含小數(shù)位的數(shù)

'Int(Rnd() * 26) 轉(zhuǎn)換為整型，就是0~25的隨機(jī)數(shù)

'Asc("a") 得到a的ASCii數(shù)值，是整數(shù)97（A是65）

'a~z的ASCii為97~122 ，即為a~z之間的字母為97加（0~25）

'Asc("a") + Int(Rnd() * 26)為97到122的隨機(jī)數(shù)

'Chr（）又可以起到轉(zhuǎn)換成字符的功能，Chr(97)表示a （a轉(zhuǎn)換成數(shù)值又是Asc("a")=97）

'Chr(Asc("a") + Int(Rnd() * 26))就是a~z的隨機(jī)數(shù)了

Randomize() '再次初始化隨機(jī)數(shù)發(fā)生器

Me.txt2.Text = Chr(Asc("A") + Int(Rnd() * 26)) '這里是A~Z的隨機(jī)數(shù)

'也可以換這種寫法

Randomize()

Me.txt1.Text = Chr(Int((26 * Rnd()) + 97)) '這里是a~z的隨機(jī)數(shù)

'這是在你知道ASCII碼的情況之下（a~z為97~122，A~Z為65~90）

'Rnd()為0~0.9999999.....的隨機(jī)數(shù)

' 26 * Rnd()為0~25.9999...的隨機(jī)數(shù)

'Int((26 * Rnd())為0~25的隨機(jī)數(shù)

'Int((26 * Rnd()) + 97)為97~122的隨機(jī)數(shù)

'Chr(Int((26 * Rnd()) + 97))就是a~z的隨機(jī)數(shù)了

Randomize()

Me.txt2.Text = Chr(Int((26 * Rnd()) + 65)) '這里是A~Z的隨機(jī)數(shù)

'至于同時在一處隨機(jī)大寫或小寫，ASCII碼的數(shù)字又不挨在一起（65-90,97-122），比較麻煩。想寫的話，你可以自己想一下怎么辦

2.數(shù)字怎樣轉(zhuǎn)換成ASCII碼所對應(yīng)的字母

Chr()函數(shù)將數(shù)字轉(zhuǎn)換成ASCII對應(yīng)的字母，Asc()函數(shù)將字母根據(jù)ASCII表轉(zhuǎn)換成數(shù)字

Chr(97)表示a （a轉(zhuǎn)換成數(shù)值又是Asc("a")=97）

3.加到數(shù)組，你可以放在一個for循環(huán)里

比如

Dim arylst1 As New ArrayList

Dim arr1() As String '數(shù)組

Dim str1 As String

For i As Integer = 1 To 15 '比如我想要15個隨機(jī)字母

Randomize()

str1 = Chr(Int((26 * Rnd()) + 65)) '這里是A~Z的隨機(jī)數(shù)

arylst1.Add(str1)

Next

ReDim arr1(arylst1.Count - 1) '這里是為了比較動態(tài)，可以只改變 i 的范圍來決定要多少個隨機(jī)字母

'當(dāng)然也可以寫死，在前面直接定義為 arr1(14)，下次要改的時候就要改定義的地方和i的范圍，改兩個地方

arylst1.CopyTo(arr1)

'就把數(shù)值拷貝到數(shù)組里面了