리포트 논문 자기소개서 이력서 시험자료 서식 PPT양식 표지/속지

[주민번호 확인] 주민번호 확인 프로그램

등록일 2001.11.29 파일확장자압축파일 (zip) | 15페이지 | 가격 500원

*해당 문서는 미리보기가 지원되지 않습니다.

컴파일 실행환경

없음

본문내용

Private Sub Command1_Click()

Dim juminf As Variant
Dim jumins As Variant
jumins = Text3.Text
juminf = Text2.Text

If Mid(jumins, 1, 1) = "1" And Len(jumins) = "7" And Len(juminf) = "6" Then
Text1.Text = Mid(juminf, 3, 2)
Text4.Text = Mid(juminf, 5, 2)
Check1.Value = 1
Check2.Value = 0
Check3.Value = 1
Check4.Value = 0

ElseIf Mid(jumins, 1, 1) = "2" And Len(jumins) = "7" And Len(juminf) = "6" Then
Text1.Text = Mid(juminf, 3, 2)
Text4.Text = Mid(juminf, 5, 2)
Check1.Value = 0
Check2.Value = 1
Check3.Value = 1
Check4.Value = 0




ElseIf Mid(jumins, 1, 1) = "2" Or Len(jumins) > "7" Or Len(juminf) > "6" Then
Text1.Text = Mid(juminf, 3, 2)

압축파일내 파일목록

완성주민.vbw
완성주민.vbp
다운로드 맨위로