1樓：匿名使用者
給你個思路
字母的ascii值
大寫 65-90
小寫 97-122
隨便你隨機產生 15個之間的不同數字 然後轉換成 字母 即可
2樓：班丘曉桐
一個判斷是否存在的函式，一個迴圈生成的函式就行了
隨機生成字母的方法為：c=chr(int(rnd*26)+65)
3樓：篤俠
給你一個完整程式吧：
dim c(1 to 15) as string
dim i as integer, j as integer, a as integer
randomize timer
a = 65 + int(rnd * 26) + 32 * int(rnd * 2)
c(1) = chr(a)
for i = 1 to 14
do while true 'not f
a = 65 + int(rnd * 26) + 32 * int(rnd * 2)
for j = 1 to i
if c(j) = chr(a) then exit for
next j
if j > i then '找到一個
c(i + 1) = chr(a)
exit do
end if
a = 65 + int(rnd * 26) + 32 * int(rnd * 2)
loop
next i
for i = 1 to 15
print c(i); " ";
next i
4樓：使用者未被遮蔽
不用這麼複雜，一次迴圈足夠
dim n as byte
dim c() as string
dim st as string, sc as stringst = "": n = 0
do while n < 15
sc = chr(int(rnd * 26) + 65) ' ascii：65-90 大寫字母
if instr(1, st, sc) = 0 thenst = st & ";" & sc
n = n + 1
end if
loop
c = split(st, ";") '字母在c（1）-c（15）print join(c(), ""), c(1), c(15) '15個字母，第一個，最後一個
能隨機生成15個不同大寫英文字母的vb**
5樓：綠綠草原廣大遠
rnd,產生 [0,1) 區間的隨機數；int（n）是一個取小於或等於n的最大整數的函式，比如int（4.5）=4，int(-4.5)=5。
rnd*27產生 [0,27) 區間的隨機數,取不到27. rnd*27）+65產生 [27,92) 區間的隨機數 int取整，只能取27-91之間的整數
6樓：匿名使用者
randomize
dim i as integer, s as stringfor i = 1 to 15
s = s + chr(int(rnd * (90 - 65 + 1)) + 65)
next i
msgbox s
'注：65為大寫a的ascii碼，90為大寫z的ascii碼。
7樓：polaris北斗
option explicit
private sub command1_click()dim ua as integer, la as integer, j as integer
dim i as integer, ca(1 to 15) as string, c as string
ua = asc("z"): la = asc("a")clsfor i = 1 to 15
randomize
ca(i) = chr(int(rnd() * (ua - la + 1) + la))
for j = 1 to i - 1 step 1if ca(i) = ca(j) theni = i - 1
exit for
end if
next j
next i
for i = 1 to 15
print ca(i)
next i
end sub
隨機產生15個不重複的a-z的大寫字母，存放在字元陣列中（vb解決此題）
8樓：木木的哥哥
randomize
dim mychar(15),i%,j%
for i=1 to 15
mychar(i)=chr(int(rnd*26+65))for j=1 to i-1
if mychar(j)=mychar(i) theni=i-1
exit for
end if
next
next
最後的結果儲存在mychar(1)到mychar(15)中，資料型別忘記了，自己在定義陣列的時候寫上版
吧，還有好象可以權
用dim mychar(1 to 15)吧，我沒有vb，你自己試一下。
vb程式設計隨機產生10個不重複的a到z的大寫字母,要求將10個字元,最大和最小字
9樓：
private sub command1_click()const n = 10
dim a(n) as string
for i = 1 to 10
doflag = true
a(i) = chr(asc("a") + int(rnd * 26))
for j = 1 to i - 1
if a(i) = a(j) then flag = false: exit for
next j
loop until flag
next i
print "隨機不重複的字串是"
for i = 1 to n
print a(i);
next i
max = a(1): min = a(1)for i = 1 to n
if max < a(i) then max = a(i)if min > a(i) then min = a(i)next i
print "最大的字元是:" & maxprint "最小的字元是:" & minend sub
隨機產生15個不重複的a~z之間的大寫字母,存放在字元陣列中
10樓：vb妮可
private sub command1_click()dim i%, j%, s$(1 to 26), t$for i = 1 to 26
s(i) = chr(i + 64)
next
randomize
for i = 1 to 15
j = int(rnd * (26 - i + 1) + i)t = s(i): s(i) = s(j): s(j) = tprint s(i);
next
end sub
vb程式設計題~~隨機產生20個不重複的a~z之間的英文字母，按字母順序輸出，每行6個。
11樓：匿名使用者
給你個思路。
首先，定義20個陣列。
然後在過程里弄個for迴圈，比如for i = 1 to 20利用隨機函式，生成65~90之間的函式，賦值到變數，比如 str=int((90 - 65 + 1) * rnd + 65)
再弄個for迴圈，比如for j = 1 to i判斷是否重複 if 陣列名(j)=str thencall 過程
exit sub
end if
next
然後給陣列賦值 比如陣列名(i)=chr(str)next
end sub
12樓：
這題挺麻煩，還一點分都沒有...
13樓：沙慧月
dim a()
private sub command1_click()redim preserve a(0)
do until ubound(a) = 20randomize
j = int(rnd * 26 + 65)temp = chr(j)
for k = 0 to ubound(a)if a(k) = temp then exit fornext
if k = ubound(a) + 1 thenredim preserve a(ubound(a) + 1)a(ubound(a)) = temp
end if
loop
for i = 1 to 19
for j = i + 1 to 20
if asc(a(i)) > asc(a(j)) then temp = a(i): a(i) = a(j): a(j) = temp
next j
next i
for y = 1 to 20
if y mod 6 = 0 then
else
print a(y);
end if
next
end sub
vb隨機產生一個英文字母程式怎麼編
14樓：網海1書生
隨機大寫字母：
print chr(int(rnd * 26) + 65)隨機小寫字母：
print chr(int(rnd * 26) + 97)
15樓：匿名使用者
quietly a bud just ready to burst out
幫我看一下，用vb程式設計，程式要求：隨機產生15個大寫字母，放到一個陣列裡。
16樓：岔路程式緣
private sub form_click()dim a(15) as string
dim i as integer
randomize timer
i=1do
a(i) = chr(int((90 - 65 + 1) * rnd + 65))
i=i+1
loop until i <15
end sub
17樓：歐米思傢俱
randomize timer
for i = 0 to 14
temp = chr(int((90 - 65 + 1) * rnd + 65))
a(i) = temp
next
18樓：匿名使用者
dim a(18) as string
randomize timer
for i = 0 to 14
temp = chr(int((90 - 65 + 1) * rnd + 65))
a(i) = temp
print a(i)
next i
19樓：匿名使用者
loop until n = 4
這是什麼？
錯了吧！
vb試程式設計實現以下功能 隨機產生陣列，並且將陣列元素逆序存放。（一維陣列）
private sub command1 click dim b 0 to 10 as integer,mp as integer,i as integer,x as integer randomize for i 0 to 10 b i int rnd 100 1 1 1 print b i ne...
怎麼用vb設計隨機產生100到200之間的數求出
1 首先需要啟動vb6.0，新建一個標準exe工程。2 開啟vb6.0之後，在窗體上繪製一個命令按鈕。3 接下來需要雙擊命令按鈕進入 視窗。4 接下來開始編輯按鈕的單擊事件。5 最後就可以按f5執行測試。求出最大值與最小值。dim a 9 as integer 定義一個整數變數陣列，大小為10 fo...
怎樣用vb做隨機產生1 100以內的整型數，求出其的最
這樣才對 初始化應加在for 迴圈裡 s要變為雙精度 這樣平均數才有小數點後幾位 樓主試我這個 private sub command1 click dim i j max min s for i 1 to 10 randomize j int rnd 100 1 if i 1 then min j...