본문내용
text2값을 곱하고
연산자를 label1에 표시
Private Sub Command4_Click()
Text3 = Val(Text1) / Val(Text2)
Label1.Caption = "/"
End Sub//(나눗셈)
text1값을 text2값으로 나누고
연산자를 label1에 표시
Private Sub Command5_Click()
Text3 = Val(Text1) ^ Val(Text2)
Label1.Caption = "^"
End Sub//(제곱)
text1값의 text2제곱 값을 구하고
연산자를 label1에 표시
Private Sub end_Click()
MsgBox "계산기를 이용해 주셔서 감사합니다."
End
End Sub//(종료)
프로그램을 종료한다.
메시지박스에 메시지가 표시된다.
연산자를 label1에 표시
Private Sub Command4_Click()
Text3 = Val(Text1) / Val(Text2)
Label1.Caption = "/"
End Sub//(나눗셈)
text1값을 text2값으로 나누고
연산자를 label1에 표시
Private Sub Command5_Click()
Text3 = Val(Text1) ^ Val(Text2)
Label1.Caption = "^"
End Sub//(제곱)
text1값의 text2제곱 값을 구하고
연산자를 label1에 표시
Private Sub end_Click()
MsgBox "계산기를 이용해 주셔서 감사합니다."
End
End Sub//(종료)
프로그램을 종료한다.
메시지박스에 메시지가 표시된다.