수다닷컴

제가 처음이라 뭐 어떻게 정리를 하고 그런것을 못하는데요
폼은
------ 출력창이구요
------
7 8 9 X
4 5 6 /
1 2 3 +
0 = C-

이런식으로 구성햇는데 다른건 다되는데 = 을 눌렸을때.... 곱을할지 나눗셈을 할찌 더하기를 할찌
제나름대로 전역 변수로 곱은 1 나눗셈은 2 더하기는 3 빼기는 4 를햇는데요 제가 빨간부분으로
해놓은부분인데요 제 나름대로 머리를 굴렸는데.. 어떻게 되질않네요... 조금 도와주셧으면합니당~

Private Sub 곱_Click()
Static G As Integer, B As Integer
B = 1
G = Val(출력)
출력 =
End Sub

Private Sub 구_Click()
Dim key As Integer
key = Val(출력)
출력 = key * 10 + 9
End Sub

Private Sub 나_Click()
Static N As Integer
B = 2
N = Val(출력)
출력 =
End Sub

Private Sub 더_Click()
Static D As Integer
B = 3
D = Val(출력)
출력 =
End Sub

Private Sub 빼_Click()
Static BB As Integer
B = 4
BB = Val(출력)
출력 =
End Sub

Private Sub 사_Click()
Dim key As Integer
key = Val(출력)
출력 = key * 10 + 4
End Sub

Private Sub 삼_Click()
Dim key As Integer
key = Val(출력)
출력 = key * 10 + 3
End Sub

Private Sub 영_Click()
Dim key As Integer
key = Val(출력)
출력 = key * 10
End Sub

Private Sub 오_Click()
Dim key As Integer
key = Val(출력)
출력 = key * 10 + 5
End Sub

Private Sub 육_Click()
Dim key As Integer
key = Val(출력)
출력 = key * 10 + 6
End Sub

Private Sub 이_Click()
Dim key As Integer
key = Val(출력)
출력 = key * 10 + 2
End Sub

Private Sub 일_Click()
Dim key As Integer
key = Val(출력)
출력 = key * 10 + 1
End Sub

Private Sub 칠_Click()
Dim key As Integer
key = Val(출력)
출력 = key * 10 + 7
End Sub

Private Sub 팔_Click()
Dim key As Integer
key = Val(출력)
출력 = key * 10 + 8
End Sub

Private Sub Command15_Click()
Dim key As Integer
key = Val(출력)
Select Case B
Case Is = 1
출력 = G * key
Case Is = 2
출력 = N / key
Case Is = 3
출력 = D + key
Case Is = 4
출력 = BB - key
End Select
End Sub

Private Sub Command16_Click()
출력 =
End Sub

신청하기