Dim a, u, a1, a2, a3, u1, u2, u3 As Integer

        a = Rnd() * 899 + 100

        Console.WriteLine("{0}", a)
        a1 = Mid(a, 1, 1)
        a2 = Mid(a, 2, 1)
        a3 = Mid(a, 3, 1)

        If a1 <> a3 And a1 <> a2 And a3 <> a2 Then
            Console.WriteLine("임의의 세자리 숫자 입력")
        End If

 

        u = Console.ReadLine()

        u1 = Mid(u, 1, 1)
        u2 = Mid(u, 2, 1)
        u3 = Mid(u, 3, 1)

        If a1 = u1 And a2 = u2 And a3 = u3 Then
            Console.WriteLine("홈 런! 정답은 {0}입니다", a)
        ElseIf u1 = a1 And u2 <> a2 And u2 <> a3 And u3 <> a2 And u3 <> a3 Then
            Console.WriteLine("1 스트라이크")
        ElseIf u2 = a2 And u1 <> a1 And u1 <> a3 And u3 <> a1 And u3 <> a3 Then
            Console.WriteLine("1 스트라이크")
        ElseIf u3 = a3 And u1 <> a1 And u1 <> a2 And u2 <> a1 And u2 <> a2 Then
            Console.WriteLine("1 스트라이크")
        ElseIf u1 = a1 And u2 <> a2 And u2 <> a3 And u3 <> a3 And u3 = a2 Then
            Console.WriteLine("1스트라이크 1볼")
        ElseIf u1 = a1 And u2 = a3 And u2 <> a2 And u3 <> a2 And u3 <> a3 Then
            Console.WriteLine("1스트라이크 1볼")
        ElseIf u2 = a2 And u1 <> a1 And u1 <> a3 And u3 = a1 Then
            Console.WriteLine("1스트라이크 1볼")
        ElseIf u2 = a2 And u1 <> a1 And u1 = a3 And u3 <> a1 And u3 <> a2 Then
            Console.WriteLine("1스트라이크 1볼")
        ElseIf u3 = a3 And u1 = a2 And u1 <> a1 And u2 <> a1 And u2 <> a2 Then
            Console.WriteLine("1스트라이크 1볼")
        ElseIf u3 = a3 And u2 = a1 And u2 <> a2 And u1 <> a1 And u1 <> a2 Then
            Console.WriteLine("1스트라이크 1볼")
        ElseIf u1 = a1 And u2 = a3 And u3 = a2 Then
            Console.WriteLine("1스트라이크 2볼")
        ElseIf u2 = a2 And u1 = a3 And u3 = a1 Then
            Console.WriteLine("1스트라이크 2볼")
        ElseIf u3 = a3 And u1 = a2 And u2 = a1 Then
            Console.WriteLine("1스트라이크 2볼")
        ElseIf u1 = a1 And u2 = a2 And u3 <> a3 Then
            Console.WriteLine("2스트라이크")
        ElseIf u1 <> a1 And u2 = a2 And u3 = a3 Then
            Console.WriteLine("2스트라이크")
        ElseIf u1 = a1 And u2 <> a2 And u3 = a3 Then
            Console.WriteLine("2스트라이크")
        ElseIf u1 = a3 And u2 = a1 And u3 = a2 Then
            Console.WriteLine("3볼")
        ElseIf u1 = a2 And u2 = a3 And u3 = a1 Then
            Console.WriteLine("3볼")
        ElseIf u1 <> a1 And u1 <> a2 And u1 <> a3 And u2 <> a2 And u2 <> a3 And u3 <> a3 Then
            Console.WriteLine("아웃")
        End If

        Console.ReadLine()

 

질문.. 이거 하나 숫자입력하면 창이 꺼지잖아요. 그거 안꺼지고 계속 저장하면서 할순없을까요

 

아 참고로 이거 1볼 ,2볼을 제가 안했네요

 

코드자체는 이상할겁니다