在vb程序中如何編輯代碼隨機(jī)產(chǎn)生一個(gè)大寫或小寫字母？1. 大寫字母對(duì)應(yīng)的ASCII碼的范圍是65~89，所以隨機(jī)生成65~89之間的數(shù)字并生成相應(yīng)的大寫字母；2。打開VB6.0，創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)exe

在vb程序中如何編輯代碼隨機(jī)產(chǎn)生一個(gè)大寫或小寫字母？

1. 大寫字母對(duì)應(yīng)的ASCII碼的范圍是65~89，所以隨機(jī)生成65~89之間的數(shù)字并生成相應(yīng)的大寫字母；

2。打開VB6.0，創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)exe項(xiàng)目，并在界面上創(chuàng)建一個(gè)按鈕和一個(gè)文本框；

3。按鈕代碼如下：private sub command1_uuClick（）Text1。Text=“”dim n as integerrandomized=int（RND*25）65text1.尺寸n為整數(shù)。Text=Chr（n）結(jié)束sub4。運(yùn)行項(xiàng)目生成隨機(jī)大寫字母；

~]=mid（“abcdefghijklmnpqrstuvwxyz”，randbween（1，25），1）VBA代碼如下（請(qǐng)參閱附件了解用法）函數(shù)大寫（ByVal K為整數(shù)）如下StringApplication.VolatilerAdminizes文件=“”對(duì)于i=1到k S=S&mid（“abcdefghijklmnpqrstuvwxyz”，int（RND*25）1,1）next I uppercase=end function lowercase（ByVal K作為整數(shù)）作為StringApplication.VolatilerAdminizes文件=對(duì)于I=1到k s=s&mid（“abcdefghjklmnopqrstuvwxyz”，int（RND*25）1,1）下一個(gè)I小寫=結(jié)束函數(shù)

由于會(huì)議是反匯編的，所以可以生成1到46之間的隨機(jī)整數(shù)，對(duì)應(yīng)46個(gè)字母（包括大寫和小寫），然后根據(jù)隨機(jī)值對(duì)應(yīng)字母。

怎樣在excel中隨機(jī)生成2個(gè)大寫字母？例如隨機(jī)生成大寫字母A和B？

代碼示例：

private sub command1 uuclick（）

Dim size As Integer

Dim ascii As Integer

Dim s As Integer

Dim s As String

Dim result As String

Randomize

ascii=Int（（90-65 1）*Rnd 65）

s=Chr（ascii）

size=Int（（10-3 1）*Rnd 3）

result=“”

對(duì)于i=1到size

result=result s

下一個(gè)i

Text1。

Text=result

結(jié)束Sub