VB 随机产生20个不重复的A~Z之间的字母(包括A 和Z)字符,放在字符数组中.求 出其
答案:1 悬赏:10 手机版
解决时间 2021-11-22 03:20
- 提问者网友：树红树绿
- 2021-11-21 05:25
VB 随机产生20个不重复的A~Z之间的字母(包括A 和Z)字符,放在字符数组中.求 出其
最佳答案
- 五星知识达人网友：woshuo
- 2021-11-21 06:24
Dim a(20) As String
Dim b(26, 2) As Integer
For i = 1 To 26
b(i, 1) = 64 + i
b(i, 2) = 0
Next i
Dim n As Integer, m As Integer, s As String
n = 1
s = ""
Do While n <= 20
Randomize
m = Int(Rnd * 26) + 1
If b(m, 2) = 0 Then
a(n) = Chr(b(m, 1))
b(m, 2) = 1
n = n + 1
End If
Loop
Dim max As Integer, min As Integer
max = 65
min = 90
For i = 1 To 20
s = s & a(i) & " "
Next i
Print s
Dim b(26, 2) As Integer
For i = 1 To 26
b(i, 1) = 64 + i
b(i, 2) = 0
Next i
Dim n As Integer, m As Integer, s As String
n = 1
s = ""
Do While n <= 20
Randomize
m = Int(Rnd * 26) + 1
If b(m, 2) = 0 Then
a(n) = Chr(b(m, 1))
b(m, 2) = 1
n = n + 1
End If
Loop
Dim max As Integer, min As Integer
max = 65
min = 90
For i = 1 To 20
s = s & a(i) & " "
Next i
Print s
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯