if else문으로 짜는건데요 밑에 첫번째 자리가 서로 다를경우에는 어떻게 짜야하는지갈켜주세요
Option Explicit
Dim i, j, k, cnt As Integer
Private Sub cmdcheck_Click()
Dim s, b As Integer
s = 0
b = 0
If i = Val(txtsu1.Text) Then ' 첫번째 자리가 서로 같은경우
s = s + 1
If j = Val(txtsu2.Text) Then ' 두번째 자리가 서로 같은경우
s = s + 1
If k = Val(txtsu3.Text) Then ' 세번째 자리가 서로 같은경우
s = s + 1
MsgBox ("축하합니다. " & cnt & "번만에 맞추었습니다.")
End If
Else '두번째 자리가 다른경우
If k = Val(txtsu3.Text) Then '세번째 자리가 같을경우
s = s + 1
Else '세번째 자리가 다를 경우
If i = Val(txtsu3.Text) Then b = b + 1
If k = Val(txtsu2.Text) Then b = b + 1
End If
End If
Else '첫번째 자리가 다른 경우
<----------------------------------------여기요
End If