VB程序 随机产生一个字符(ASCII码值在33到126之间) 判断是否为英文字母

 VB.net  应该跟VB一样的吧   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Randomize()
        TextBox1.Text = Chr(Int(Rnd() * (126 - 33 + 1) + 33))   '产生 33-126 随机数
        Select Case Asc(TextBox1.Text)
            Case Asc("a") To Asc("z")
                TextBox2.Text = "小写字母"
            Case Asc("A") To Asc("Z")
                TextBox2.Text = "大写字母"
            Case Else
                TextBox2.Text = "非字母"
        End Select
    End Sub