两道二级VB题

1、随机产生15哥不重复的A-Z（包括A、Z）的大写字母，存放在字符数组中。
2、速记产生10哥递增的100-400的随机数，存放倒数组中，并显示结果。
请把编程写出，谢谢
以上错字纠正
1、随机产生15个不重复的A-Z（包括A、Z）的大写字母，存放在字符数组中。
2、随机产生10个递增的100-400的随机数，存放倒数组中，并显示结果。
请把编程写出，谢谢

第一题:
Dim str(15) As String
dim i as integer
For i = 1 To 15
str(i - 1) = Chr(Rnd * (25 - 0 + 1) + 67)
Next

For i = 1 To 15
Print str(i - 1)
Next

第二题:

Dim num(10) As Integer '定义10个元素的数组，用来存放产生的10个随机数。
Dim i, j As Integer '循环变量
Dim temp As Integer '临时变量，用做排序时交换两数

For i = 1 To 10 '产生随机数
num(i) = Int(Rnd() * 301) + 100
Next i

For i = 1 To 10
For j = i + 1 To 10
If num(i) > num(j) Then
temp = num(i)
num(i) = num(j)
num(j) = temp
End If
Next j
Next i

For i = 1 To 10
Print num(i);
Next i

楼上的第一题的回答有点问题,没有解决不重复的问题
正确的应该是这样:
第一题
Dim str(1 To 15) As String
Dim i As Integer
For i = 1 To 15
con:
str(i) = Chr(Rnd * (25 - 0 + 1) + 67)
For j = i To 1 Step -1
If str(i) = str(j) Then GoTo con