검색어 입력폼
평가점수B

[비쥬얼베이직] VB-계산기만들기

등록일 2004.06.29 한글파일한컴오피스 (hwp) | 8페이지 | 가격 700원

목차

없음

본문내용

Private Sub And_bt_Click() 'And 논리연산
Result_lb.Caption = CBool(Text1.Text) And CBool(Text2.Text)
Operator.Caption = "And"
End Sub

Private Sub Clear_bt_Click() '초기화
Text1.Text = ""
Text2.Text = ""
Operator.Caption = "?"
Result_lb.Caption = ""
End Sub

Private Sub Divide_bt_Click() '나누기
If Val(Text2.Text) <> 0 Then
Result_lb.Caption = Format(Val(Text1.Text) / Val(Text2.Text), "###,###,###.#####")
Else
Result_lb.Caption = "Error"
End If
Operator.Caption = "/"
End Sub

참고 자료

없음
다운로드 맨위로