国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

 VB.net  應(yīng)該跟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))   '產(chǎn)生 33-126 隨機(jī)數(shù)
        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