VB⼯程---百例57--判断是否为⼤写字母
Option Explicit
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then  （ 数65--90代表的是ASCii中的A---W 26个字母）若keyascii不在65--90之间
Label1.Caption = "输⼊的不是⼤写字母，请重新输⼊"  显⽰不是⼤写字母的信息        If Text1.Text <> "" Then  若⽂本框不为空
Text1.Text = ""        清除⽂本框中的内容
End If                      先将⽂本框中刚输⼊的字符删除，然后在重新输⼊
Else
Label1.Caption = "恭喜你，输⼊成功"
If Text1.Text <> "" Then
Text1.Text = ""
mvc和三层架构的理解End If
End If
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。