包含vb.net識別英文字母的詞條
vb.net怎樣找出列表框中最大的英文字母（怎樣將列表框中的每一項轉(zhuǎn)換為asc碼）
Dim i As Integer
為大余等地區(qū)用戶提供了全套網(wǎng)頁設計制作服務，及大余網(wǎng)站建設行業(yè)解決方案。主營業(yè)務為做網(wǎng)站、成都網(wǎng)站建設、大余網(wǎng)站設計，以傳統(tǒng)方式定制建設網(wǎng)站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！
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é)果顯示在一個標簽上。
VB程序 隨機產(chǎn)生一個字符(ASCII碼值在33到126之間) 判斷是否為英文字母
VB.net 應該跟VB一樣的吧 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
TextBox1.Text = Chr(Int(Rnd() * (126 - 33 + 1) + 33)) '產(chǎn)生 33-126 隨機數(shù)
Select Case Asc(TextBox1.Text)
Case Asc("a") To Asc("z")
TextBox2.Text = "小寫字母"
Case Asc("A") To Asc("Z")
TextBox2.Text = "大寫字母"
Case Else
TextBox2.Text = "非字母"
End Select
End Sub
vb.net隨機產(chǎn)生英文字母的代碼
1.隨機產(chǎn)生英文字母
Randomize() '功 能：初始化隨機數(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的隨機數(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的隨機數(shù)
'Chr（）又可以起到轉(zhuǎn)換成字符的功能，Chr(97)表示a （a轉(zhuǎn)換成數(shù)值又是Asc("a")=97）
'Chr(Asc("a") + Int(Rnd() * 26))就是a~z的隨機數(shù)了
Randomize() '再次初始化隨機數(shù)發(fā)生器
Me.txt2.Text = Chr(Asc("A") + Int(Rnd() * 26)) '這里是A~Z的隨機數(shù)
'也可以換這種寫法
Randomize()
Me.txt1.Text = Chr(Int((26 * Rnd()) + 97)) '這里是a~z的隨機數(shù)
'這是在你知道ASCII碼的情況之下（a~z為97~122，A~Z為65~90）
'Rnd()為0~0.9999999.....的隨機數(shù)
' 26 * Rnd()為0~25.9999...的隨機數(shù)
'Int((26 * Rnd())為0~25的隨機數(shù)
'Int((26 * Rnd()) + 97)為97~122的隨機數(shù)
'Chr(Int((26 * Rnd()) + 97))就是a~z的隨機數(shù)了
Randomize()
Me.txt2.Text = Chr(Int((26 * Rnd()) + 65)) '這里是A~Z的隨機數(shù)
'至于同時在一處隨機大寫或小寫，ASCII碼的數(shù)字又不挨在一起（65-90,97-122），比較麻煩。想寫的話，你可以自己想一下怎么辦
2.數(shù)字怎樣轉(zhuǎn)換成ASCII碼所對應的字母
Chr()函數(shù)將數(shù)字轉(zhuǎn)換成ASCII對應的字母，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個隨機字母
Randomize()
str1 = Chr(Int((26 * Rnd()) + 65)) '這里是A~Z的隨機數(shù)
arylst1.Add(str1)
Next
ReDim arr1(arylst1.Count - 1) '這里是為了比較動態(tài)，可以只改變 i 的范圍來決定要多少個隨機字母
'當然也可以寫死，在前面直接定義為 arr1(14)，下次要改的時候就要改定義的地方和i的范圍，改兩個地方
arylst1.CopyTo(arr1)
'就把數(shù)值拷貝到數(shù)組里面了
網(wǎng)站欄目：包含vb.net識別英文字母的詞條
URL標題：http://muchs.cn/article14/dohiide.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供手機網(wǎng)站建設、做網(wǎng)站、App設計、營銷型網(wǎng)站建設、用戶體驗、網(wǎng)站排名
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)
