간단한 덧셈, 뺄셈을 하여 메시지 박스로 결과를 표시하는 프로그램을 작성하시오.

  1) 입력되는 자료는 숫자이다.

  2) 덧셈과 뺄셈을 계산하여 메시지 박스로 출력한다.

  1) 변수란 데이터를 저장하기 위한 기억장소이다.

   변수 선언 형식 :  Dim 변수명 As 변수 타입

   변수타입은 선언되는 변수의 유형을 지정한다.

   정수형은 Integer, 문자열은 String 등의 유형을 지정한다.

  2) 사칙 연산자에 대한 설명

   덧셈(+), 뺄셈(-), 곱셈(*), 나눗셈(/)

   x = 5,  y = 2  이라면  s 의 값은 ( )에 표시된 값입니다.

   s = x + y (7)    s = x - y (3)    s = x * y (10)     s = x / y (2.5)

  3) Val : 문자열 형식을  숫자 형식의 값으로 반환한다.

    텍스트 박스에 입력된 내용은 일단 문자열로 인식을 하므로 사칙 연산을 위해서는 이를 숫자로 바꾸어 주어야 한다.  이 때 사용하는 함수가 val()이다.

  4) MsgBox은 대화 상자 안에 메시지를 보여준다.

Private Sub Command_더하기_Click()

    Dim x, y, 결과 As Integer      '계산을 위한 변수의 선언

    x = Val(Text_앞.Text)          '계산을 위해 텍스트를 숫자로 변환

    y = Val(Text_뒤.Text)          '계산을 위해 텍스트를 숫자로 변환

    결과 = x + y                   '덧셈한 값을 변수 [결과]에 저장

    MsgBox 결과                   '메시지 박스로 결과 출력

End Sub

Private Sub Command_빼기_Click()

    Dim x, y, 결과 As Integer      '계산을 위한 변수의 선언

    x = Val(Text_앞.Text)          '계산을 위해 텍스트를 숫자로 변환

    y = Val(Text_뒤.Text)          '계산을 위해 텍스트를 숫자로 변환

    결과 = x - y                   '뺄셈한 값을 변수 [결과]에 저장

    MsgBox 결과                   '메시지 박스로 결과 출력

End Sub