13问答网 > 随机产生15个不重复的A-Z的大写字母，存放在字符数组中（VB解决此题）

随机产生15个不重复的A-Z的大写字母，存放在字符数组中（VB解决此题）

2025-03-09 13:32:57

推荐回答（1个）

回答1：

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) then
i=i-1
exit for
end if
next
next
最后的结果存储在mychar(1)到mychar(15)中，数据类型忘记了，自己在定义数组的时候写上吧，还有好象可以用dim mychar(1 to 15)吧，我没有vb，你自己试一下。