使得程序运行时，在第一个文本框中随机产生一个正整数，在第二个文本框里给出对应大写英文字母形式。

新建一个VB工程,在窗体中添加三个文本框,内容为空;添加三个标签,标签内容分别为"产生一个65-90的随机正整数","ASCII码对应的大写字符为","小写字符为";添加一个按钮,按钮上显示"随机产生大写字母".在按钮的事件过程中编写代码,使得程序运行时,在第一个文本框中随机产生一个正整数,在第二个文本框里给出对应大写英文字母形式.

Option Explicit

Private Sub Command1_Click()
    Dim c As Integer
    c = Int(Rnd() * (90 - 65 + 1)) + 65
    Text1.Text = c
    Text2.Text = Chr(c)
    Text3.Text = Chr(c - (Asc("A") - Asc("a")))
    
    
End Sub

Private Sub Form_Load()
    Label1.Caption = "产生一个65-90的随机正整数"
    Label2.Caption = "ASCII码对应的大写字符为"
    Label3.Caption = "小写字符为"
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Command1.Caption = "随机产生大写字母"
    

End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/s8827v88f2fmpp4mps.html