当前位置:编程学习 > VB >>

急!函数问题!

编程实现随机产生一个“F”~“S”范围内的大写字母,并输出该字母及其对应的ASCII码值,同时输出其小写字母及其对应的ASCII码的值。
【提示】可利用随机函数、取整函数和转换函数来实现。

今晚做了两个小时,总是出错。下面是我自己做的
Private Sub Form_Load()
Randomize
Text1 = (Chr(Int(Rnd * 7 + 70)))
End Sub
有哪位高手告诉接下来怎么做。。或已经做错了。 --------------------编程问答--------------------
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
--------------------编程问答-------------------- 楼上的很完美了,结帖吧,本楼不要分。
If 本楼给分 Then
    楼主木有小jj
End If
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,