選“A",因為asc函數(shù)是把里面的參數(shù)轉(zhuǎn)換為ACS碼(A的asc碼為65),然后再把右邊的數(shù)值付給左側(cè)的x變量。所以x等于65。。。
創(chuàng)新互聯(lián)公司是一家專注于做網(wǎng)站、成都網(wǎng)站建設與策劃設計,敘永網(wǎng)站建設哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設10多年,網(wǎng)設計領(lǐng)域的專業(yè)建站公司;建站業(yè)務涵蓋:敘永等地區(qū)。敘永做網(wǎng)站價格咨詢:18982081108
unicode的回車和換行符
13和10就是它們的ascii碼
相當于程序里的vbCrLf
t.Text = (t.Text strTemp vbCrLf)
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ù)組里面了
文章名稱:關(guān)于vb.net中ascii的信息
URL網(wǎng)址:http://bm7419.com/article28/dohjicp.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供做網(wǎng)站、軟件開發(fā)、Google、商城網(wǎng)站、虛擬主機、搜索引擎優(yōu)化
聲明:本網(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)