Private Sub Command1_Click()RandomizeText1.Text = Chr(_______)t = ______(Text1.Text)Text2.Text = t >= __________End Sub帮忙填一下 横线
第1个回答 2013-05-13
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
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
