VB.NET
영문포함여부 A-Z a-z
2020.11.17
* | Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim zzTemp As String = Mid(TextBox1.Text, 1, 1) If (Asc(zzTemp) >= 65 And Asc(zzTemp) <= 90) Or (Asc(zzTemp) >= 97 And Asc(zzTemp) <= 122) Then MsgBox("ok") Else MsgBox("err") End If End Sub End Class |
---|