수다닷컴

오류에 대하여 질문하신다면, 어느 부분에서 어떤 내용의 오류가 나는지를 써주세요.

Private Sub CandyButton1_Click()
Dim i As Integer
Dim a(2) As Integer
If Text1.Text = And Text2.Text = And Text3.Text = Then
MsgBox 내용을 입력해주세요End If
If Text1.Text = And Not Text2.Text = And Text3.Text = Then
MsgBox 내용을 입력해주세요End If
If Text1.Text = And Text3.Text = And Not Text2.Text = Then
MsgBox 내용을 입력해주세요End If
If Text1.Text = And Text2.Text = And Not Text3.Text = Then
MsgBox 내용을 입력해주세요End If
If Text3.Text = And Not Text2.Text = And Not Text1.Text = Then
MsgBox 내용을 입력해주세요End If
If Text1.Text = And Not Text3.Text = And Not Text2.Text = Then
MsgBox 내용을 입력해주세요
End If
If Text1.Text = And Not Text2.Text = And Not Text2.Text = Then
MsgBox 내용을 입력해주세요
End If
a(0) = CInt(Text1.Text)
a(1) = CInt(Text2.Text)
a(2) = CInt(Text3.Text)
If (a(0) + a(1) = a(2)) / 3 50 Then
For i = 0 To 2
a(i) = a(i) = 5
Next i
End If
For i = 0 To 2
Label5.Caption = Label5.Caption & a( & i & )= & (i) &
Next i
End Sub소스가 이런 상황인데...저기 줄친게 한꺼번에 저렇게 되지는 않구요 ;텍스트 박스 첫번째를 비우면 첫번째께 줄쳐지고 두번째를 비우면 두번째가 줄쳐지고 이러면서형식이 일치하지 않습니다 라고 뜨더군요 ;;왠만해선 혼자 해볼랫는데 영 안되서 말이죠 ;;첨부파일 올렷습니다

신청하기