Module Module1

    Sub Main()
        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()
    End Sub

End Module

 

질문 1 . 임의의 세자리 숫자를 입력하면 결과값이 나오잖아요? 뭐 1스트라이크 1볼이라든가 아웃이라든가.. 근데 한번입력하고나면 창이 꺼지거든요

이거를 저장하면서 계속 할수 있는 방법은 없을까요 ?