高校问答常州斯大机床总代理:VB的难题，求人帮忙
来源：百度文库 编辑：高校问答 时间：2024/05/01 13:25:03
随机产生15个不重复的大写字母。
请帮我写出用VB编程的代码。
请帮我写出用VB编程的代码。
'说明：数组a储存的是15个大写字母的ASCII码
Dim i As Integer, j As Integer, k As Boolean
Dim a(14) As Integer
For i = 0 To 14
Do
a(i) = Int(Rnd() * 26) + 65
For j = 0 To i - 1
k = False
If a(i) = a(j) Then
k = True
Exit For
End If
Next
If k = False Or i = 0 Then Exit Do
Loop
Next
'运行到这里，数组a已保存了15个不同大写字母的ASCII码
这个还要写?
你自己好好想想该怎么写,我只能给你提个思路.
第一种方法:
你把,A-Z这些大写字母存进一个数组里,然后,随机的抽取其中的数组元素,这也就是随机的字母了.至于重复与否,再作判断就是了。
第二种方法:
每个字符都有对应的ASCII码,你随机的抽取就可以了。