VB.NET的題目哈 隨機產(chǎn)生20個大寫字母，求出現(xiàn)次數(shù)最多的字母及出現(xiàn)次數(shù)，還有求出現(xiàn)次數(shù)為0的字母有哪些

Imports System.Text.RegularExpressions

創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比丹鳳網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式丹鳳網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋丹鳳地區(qū)。費用合理售后完善，十年實體公司更值得信賴。

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim a As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Dim g() As Char = a.ToCharArray

Dim MyRandom As New Random

Dim bs As String = ""

For i = 1 To 20

bs = g(MyRandom.Next(0, g.GetUpperBound(0) + 1))

Next

Dim gs() As String = (From mt As Match In Regex.Matches(bs, "[A-Z]") Select mt.Value).ToArray

System.Array.Sort(gs)

gs = (From mt As Match In Regex.Matches(Join(gs, ""), "([A-Z])\1*") Select mt.Value).ToArray

Dim g_len() As Integer

g_len = (From mt As Match In Regex.Matches(Join(gs, ""), "([A-Z])\1*") Select mt.Length).ToArray ' 使用數(shù)組元素作為計數(shù)器g_len

System.Array.Sort(g_len, gs)

Label1.Text = "出現(xiàn)次數(shù)最多的字母：" gs(gs.GetUpperBound(0)).Substring(0, 1) " 共出現(xiàn)" g_len(g_len.GetUpperBound(0)) "次" vbCrLf "沒有出現(xiàn)的字母是：" Join(a.Split(bs.ToCharArray), "")

End Sub

End Class

如何用VB.NET生成一個隨機字符串

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

比如12位長度的隨機字符串 則為 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) '隨機生成的字符有大小寫字母和數(shù)字，共有26個

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

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

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

S = Chr(R + 55)

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

S = Chr(R + 61)

End If

returnStr = returnStr + S

Next

RndString = returnStr

End Function

VB.net怎么編輯隨機顯示一個字符在textbox控件

整一個隨機數(shù)，然后把這個隨機數(shù)放進textbox里邊就可以了，如果需要隨機函數(shù)網(wǎng)上很多源碼

VB程序 隨機產(chǎn)生一個字符(ASCII碼值在33到126之間) 判斷是否為英文字母

VB.net 應(yīng)該跟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怎樣找出列表框中最大的英文字母（怎樣將列表框中的每一項轉(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》中的“Randomize(x)”和“Rnd(x)”

Rnd[(number)]

number

的值決定了

Rnd

生成隨機數(shù)的方式

如果

number

的值

Rnd

生成

小于

每次都使用

number

作為隨機數(shù)種子得到的相同結(jié)果。

大于

序列中的下一個隨機數(shù)。

等于

最近生成的數(shù)。

省略

序列中的下一個隨機數(shù)。

====================

先討論沒有加randomize時

X小于0

如

rnd(-1)

以-1為種的隨機數(shù)永遠(yuǎn)相同

X大于0

如

rnd(1)

系統(tǒng)會先生成隨機數(shù)列表

有N個隨機數(shù)

你每執(zhí)行一次rnd(1)就獲取列表中下一個隨機數(shù)

比如有這么個列表

程序開始時

得到0.7055475

執(zhí)行第二次rnd(1)得到0.533424

第三次0.5795186

你關(guān)閉程序重新打開

第一次得到還是0.7055475

.7055475

.533424

.5795186

.2895625

.301948

而你說的X0

X0沒差別

是錯的

Print

Rnd(1)

Debug.Print

Rnd(-2)

和

Debug.Print

Rnd(-2)

Print

Rnd(1)

結(jié)果是不一樣的

X等于0

最近生成的數(shù)

一般為科學(xué)型數(shù)值

這個值也是不變的

rnd(x)

省略x不寫

就和X0

效果一樣

=========================

Randomize

用

number

將

Rnd

函數(shù)的隨機數(shù)生成器初始化，該隨機數(shù)生成器給

number

一個新的種子值。如果省略

number，則用系統(tǒng)計時器返回的值作為新的種子值。

如果沒有使用

Randomize，則（無參數(shù)的）Rnd

函數(shù)使用第一次調(diào)用

Rnd

函數(shù)的種子值。

注意

若想得到重復(fù)的隨機數(shù)序列，在使用具有數(shù)值參數(shù)的

Randomize

之前直接調(diào)用具有負(fù)參數(shù)值的

Rnd。使用具有同樣

number

值的

Randomize

是不會得到重復(fù)的隨機數(shù)序列的。

一般在使用rnd獲取隨機數(shù)

都是

randomize

int(rnd*(上限-下限+1）+下限)

這2個函數(shù)的X都是省略不寫

網(wǎng)站題目：vb.net隨機字母 vb隨機產(chǎn)生大寫字母
URL分享：http://www.ekvhdxd.cn/article8/dooieop.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信公眾號、網(wǎng)站收錄、面包屑導(dǎo)航、網(wǎng)站設(shè)計、網(wǎng)站制作、品牌網(wǎng)站建設(shè)

廣告

聲明：本網(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)