急！函数问题！

Question

编程实现随机产生一个“F”~“S”范围内的大写字母，并输出该字母及其对应的ASCII码值，同时输出其小写字母及其对应的ASCII码的值。
【提示】可利用随机函数、取整函数和转换函数来实现。今晚做了两个小时，总是出错。下面是我自己做的
Private Sub Form_Load()
Randomize
Text1 = (Chr(Int(Rnd * 7 + 70)))
End Sub
有哪位高手告诉接下来怎么做。。或已经做错了。

Answer 1

Private Sub Form_Load()
    Dim intAsc As Integer
    Randomize
    intAsc = Int(Rnd * (Asc("S") - Asc("F") + 1)) + Asc("F")
    Me.AutoRedraw = True
    Me.Print "字母为:" & Chr(intAsc)
    Me.Print "ASCII码为:" & intAsc
    Me.Print "小写字母为:" & LCase(Chr(intAsc))
    Me.Print "ASCII码为:" & Asc(LCase(Chr(intAsc)))
End Sub

Answer 2

楼上的很完美了，结帖吧，本楼不要分。
If 本楼给分 Then
    楼主木有小jj
End If