검색어 입력폼

[비주얼베이직] 연산자 프로그램

등록일 2003.05.05 한글파일한글 (hwp) | 5페이지 | 가격 600원

목차

①연산자를 이용한 프로그램 소스!!
②소스캡쳐!!^^

본문내용

rivate Sub cmdcomparison_Click(Index As Integer)
Dim BoolResult As Boolean '연산결과를 저장할 지역변수
'지역변수는 본 프로시저에서만 유효

Intoperand(2) = CInt(txtoperand3.Text)
Intoperand(3) = CInt(txtoperand4.Text)

'버튼에 따라 연산
Select Case Index
Case 0:
BoolResult = Intoperand(2) <> Intoperand(3)
Case 1:
BoolResult = Intoperand(2) <= Intoperand(3)
Case 2:
BoolResult = Intoperand(2) < Intoperand(3)
Case 3:
BoolResult = Intoperand(2) > Intoperand(3)
Case 4:
BoolResult = Intoperand(2) >= Intoperand(3)
End Select

참고 자료

비주얼 베이직 바로가기 6.0 연습문제
다운로드 맨위로