Val(),Str()함수 사용예

Val() 함수

TextBox에 기본적으로 문자로 입력받기때문에 숫자를 입력해도 문자로 인식한다. 함수를 쓰기전까지는..Val()함수를 사용하여 수치로 바꿔주어야한다.

Str()함수

수치를 문자로 변환하는 함수이다.

Val(),Str()함수 사용예

Private Sub Command1_Click()//더하기버튼

Dim num1, num2
num1 = Val(Text1.Text)
num2 = Val(Text2.Text)
Text3.Text = Str(num1 + num2)

End Sub

Private Sub Command2_Click()// 빼기버튼
Dim num1, num2
num1 = Val(Text1.Text)
num2 = Val(Text2.Text)
Text3.Text = Str(num1 - num2)
End Sub

Private Sub Command3_Click()// 곱하기 버튼
Dim num1, num2
num1 = Val(Text1.Text)
num2 = Val(Text2.Text)
Text3.Text = Str(num1 * num2)
End Sub

Private Sub Command4_Click()// 나누기버튼
Dim num1, num2
num1 = Val(Text1.Text)
num2 = Val(Text2.Text)
Text3.Text = Str(num1 / num2)
End Sub

노래모아 블로그