[비주얼베이직] (문법) 조건 판단하기

Text1 변환하려는 수 입력 텍스트
Text2 변환된값 텍스트
Command1 변환 단추
Command2 끝내기 단추

디자인을 이렇게 배치해주세요



소스

Private Sub Command1_Click()     '// 변환 단추
입력값 = Val(Text1.Text)              '// 문자로 입력되는 것을 숫자로 변환하는 함수이다.
If 입력값 < 0 Then          '//만약 입력값이 0 보다 작으면
Text2.Text = "형태 : 음수, " & "절대값 : " & 입력값 * -1           '// 입력값에 -1을 곱하여 양수로 변환한 후 표시한다
Else          '//다를때
Text2.Text = "형태 : 양수, " & "절대값 : " & 입력값                 '// 입력값이 0 보다 크면 문자와 값을 변환없이 그대로 출력한다.
End If
End Sub

Private Sub Command2_Click()   '//끝내기 단추
Unload Me        '// 나를 종료한다
End Sub

조건 판단하기 예제

조건판단.zip

조건문의 문법

If 조건 Then
문장
End If  
조건이 참이면 문장을 수행한다.


If 조건 Then
문장1
Else
문장2
조건이 참이면 문장1을 수행하고 거짓이면 문장 2를 실행한다.

 * 관계를 표시하는 연산자

연산자	의미	연산자	의미
=	같다.	<	작다.
<>	같지 않다.	<=	작거나 같다.
>	크다.	>=	크거나 같다.

더많은 강좌를 보시려면