많은 오류를 보고 이렇게 저렇게 생각하고, 코딩하려는 습관은 참 좋습니다.

그리고...오류는 꼭 스스로 해결해 보도록 노력하는 것도 중요하죠...오류를 해결하는 힘을 키워야 합니다.

아래의 소스를 참고하시면 됩니다. 배열보다 복잡죠?^^

Option Explicit

Sub main()

    ''변수선언
    Dim 점수1, 점수2, 점수3, 점수4, 점수5, 최소값, K As Variant

    ''변수저장
    점수1 = 50
    점수2 = 30
    점수3 = 20
    점수4 = 10
    점수5 = 50

    ''최소값 구하기
    최소값 = 99999999
   
    If 최소값 > 점수1 Then
        최소값 = 점수1
    End If
   
    If 최소값 > 점수2 Then
        최소값 = 점수2
    End If
   
    If 최소값 > 점수3 Then
        최소값 = 점수3
    End If
   
    If 최소값 > 점수4 Then
        최소값 = 점수4
    End If
   
    If 최소값 > 점수5 Then
        최소값 = 점수5
    End If
   
    ''변수출력
    MsgBox 최소값
   
End Sub