[비주얼베이직] 연산자 프로그램
- 최초 등록일
- 2003.05.05
- 최종 저작일
- 2003.05
- 5페이지/ 한컴오피스
- 가격 1,000원
목차
①연산자를 이용한 프로그램 소스!!
②소스캡쳐!!^^
본문내용
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 연습문제