包含vb.net識別英文字母的詞條
vb.net怎樣找出列表框中最大的英文字母（怎樣將列表框中的每一項轉換為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) ‘將結果顯示在一個標簽上。
VB程序 隨機產生一個字符(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)) '產生 33-126 隨機數
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隨機產生英文字母的代碼
1.隨機產生英文字母
Randomize() '功 能：初始化隨機數發生器
Me.txt1.Text = Chr(Asc("a") + Int(Rnd() * 26))
'Rnd 函數返回小于 1 但大于或等于 0 的值。
'0 = Rnd() * 26 26 是含小數位的數
'Int(Rnd() * 26) 轉換為整型，就是0~25的隨機數
'Asc("a") 得到a的ASCii數值，是整數97（A是65）
'a~z的ASCii為97~122 ，即為a~z之間的字母為97加（0~25）
'Asc("a") + Int(Rnd() * 26)為97到122的隨機數
'Chr（）又可以起到轉換成字符的功能，Chr(97)表示a （a轉換成數值又是Asc("a")=97）
'Chr(Asc("a") + Int(Rnd() * 26))就是a~z的隨機數了
Randomize() '再次初始化隨機數發生器
Me.txt2.Text = Chr(Asc("A") + Int(Rnd() * 26)) '這里是A~Z的隨機數
'也可以換這種寫法
Randomize()
Me.txt1.Text = Chr(Int((26 * Rnd()) + 97)) '這里是a~z的隨機數
'這是在你知道ASCII碼的情況之下（a~z為97~122，A~Z為65~90）
'Rnd()為0~0.9999999.....的隨機數
' 26 * Rnd()為0~25.9999...的隨機數
'Int((26 * Rnd())為0~25的隨機數
'Int((26 * Rnd()) + 97)為97~122的隨機數
'Chr(Int((26 * Rnd()) + 97))就是a~z的隨機數了
Randomize()
Me.txt2.Text = Chr(Int((26 * Rnd()) + 65)) '這里是A~Z的隨機數
'至于同時在一處隨機大寫或小寫，ASCII碼的數字又不挨在一起（65-90,97-122），比較麻煩。想寫的話，你可以自己想一下怎么辦
2.數字怎樣轉換成ASCII碼所對應的字母
Chr()函數將數字轉換成ASCII對應的字母，Asc()函數將字母根據ASCII表轉換成數字
Chr(97)表示a （a轉換成數值又是Asc("a")=97）
3.加到數組，你可以放在一個for循環里
比如
Dim arylst1 As New ArrayList
Dim arr1() As String '數組
Dim str1 As String
For i As Integer = 1 To 15 '比如我想要15個隨機字母
Randomize()
str1 = Chr(Int((26 * Rnd()) + 65)) '這里是A~Z的隨機數
arylst1.Add(str1)
Next
ReDim arr1(arylst1.Count - 1) '這里是為了比較動態，可以只改變 i 的范圍來決定要多少個隨機字母
'當然也可以寫死，在前面直接定義為 arr1(14)，下次要改的時候就要改定義的地方和i的范圍，改兩個地方
arylst1.CopyTo(arr1)
'就把數值拷貝到數組里面了
網站欄目：包含vb.net識別英文字母的詞條
URL標題：http://www.js-pz168.com/article14/dohiide.html
成都網站建設公司_創新互聯，為您提供手機網站建設、做網站、App設計、營銷型網站建設、用戶體驗、網站排名
聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯
