영문포함여부 A-Z a-z
*
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

다운로드.png

 

이 게시물을

공유하기

SEARCH

MENU NAVIGATION