그 뭐지 폼형식? 그거 아니고

 

그냥 콘솔박스로만 하는 진짜 기본적인거에요

 

보시면 어설픈게 좀 있는데

 

조언좀 ㅠ

 

Module Module1

    Sub Main()
        Dim a, u, a1, a2, a3, u1, u2, u3 As Integer

        Randomize()

        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 And a2 > 0 And a3 > 0 Then
            Console.WriteLine("게임을 시작하겠습니다")
            Console.WriteLine("1~9 를 사용하여 중복없는 세 자리 수를 입력하십시오")
        Else
            Console.WriteLine("게임을 다시 실행해주십시오")
        End If

        Do
            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("Home Run! 정답은 {0} 입니다", a)
                Console.WriteLine("게임을 종료하겠습니다.")
            ElseIf u1 = a1 And u2 <> a2 And u2 <> a3 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("1 Strike")
            ElseIf u2 = a2 And u1 <> a1 And u1 <> a3 And u3 <> a1 And u3 <> a3 Then
                Console.WriteLine("1 Strike")
            ElseIf u3 = a3 And u1 <> a1 And u1 <> a2 And u2 <> a1 And u2 <> a2 Then
                Console.WriteLine("1 Strike")
            ElseIf u1 = a1 And u2 <> a2 And u2 <> a3 And u3 <> a3 And u3 = a2 Then
                Console.WriteLine("1 Strike 1 Ball")
            ElseIf u1 = a1 And u2 = a3 And u2 <> a2 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("1 Strike 1 Ball")
            ElseIf u2 = a2 And u1 <> a1 And u1 <> a3 And u3 = a1 Then
                Console.WriteLine("1 Strike 1 Ball")
            ElseIf u2 = a2 And u1 <> a1 And u1 = a3 And u3 <> a1 And u3 <> a2 Then
                Console.WriteLine("1 Strike 1 Ball")
            ElseIf u3 = a3 And u1 = a2 And u1 <> a1 And u2 <> a1 And u2 <> a2 Then
                Console.WriteLine("1 Strike 1 Ball")
            ElseIf u3 = a3 And u2 = a1 And u2 <> a2 And u1 <> a1 And u1 <> a2 Then
                Console.WriteLine("1 Strike 1 Ball")
            ElseIf u1 = a1 And u2 = a3 And u3 = a2 Then
                Console.WriteLine("1 Strike 2 Ball")
            ElseIf u2 = a2 And u1 = a3 And u3 = a1 Then
                Console.WriteLine("1 Strike 2 Ball")
            ElseIf u3 = a3 And u1 = a2 And u2 = a1 Then
                Console.WriteLine("1 Strike 2 Ball")
            ElseIf u1 = a1 And u2 = a2 And u3 <> a3 Then
                Console.WriteLine("2 Strike")
            ElseIf u1 <> a1 And u2 = a2 And u3 = a3 Then
                Console.WriteLine("2 Strike")
            ElseIf u1 = a1 And u2 <> a2 And u3 = a3 Then
                Console.WriteLine("2 Strike")
            ElseIf u1 = a3 And u2 = a1 And u3 = a2 Then
                Console.WriteLine("3 Ball")
            ElseIf u1 = a2 And u2 = a3 And u3 = a1 Then
                Console.WriteLine("3 Ball")
            ElseIf u1 <> a1 And u1 <> a2 And u1 <> a3 And u2 = a1 And u2 <> a2 And u2 <> a3 And u3 <> a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("1 Ball")
            ElseIf u1 <> a1 And u1 <> a2 And u1 <> a3 And u2 <> a1 And u2 <> a2 And u2 <> a3 And u3 = a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("1 Ball")
            ElseIf u1 = a2 And u1 <> a1 And u1 <> a3 And u2 <> a1 And u2 <> a2 And u2 <> a3 And u3 <> a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("1 Ball")
            ElseIf u1 <> a1 And u1 <> a2 And u1 <> a3 And u2 <> a1 And u2 <> a2 And u2 <> a3 And u3 = a2 And u3 <> a1 And u3 <> a3 Then
                Console.WriteLine("1 Ball")
            ElseIf u1 = a3 And u1 <> a1 And u1 <> a2 And u2 <> a1 And u2 <> a2 And u2 <> a3 And u3 <> a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("1 Ball")
            ElseIf u1 <> a1 And u1 <> a2 And u1 <> a3 And u2 = a3 And u2 <> a1 And u2 <> a2 And u3 <> a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("1 Ball")
            ElseIf u1 = a2 And u1 <> a1 And u1 <> a3 And u2 <> a1 And u2 <> a2 And u2 <> a3 And u3 = a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("2 Ball")
            ElseIf u1 <> a1 And u1 <> a2 And u1 <> a3 And u2 = a1 And u2 <> a2 And u2 <> a3 And u3 <> a1 And u3 = a2 And u3 <> a3 Then
                Console.WriteLine("2 Ball")
            ElseIf u1 = a2 And u1 <> a1 And u1 <> a3 And u2 = a1 And u2 <> a2 And u2 <> a3 And u3 <> a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("2 Ball")
            ElseIf u1 = a3 And u1 <> a1 And u1 <> a2 And u2 <> a1 And u2 <> a2 And u2 <> a3 And u3 = a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("2 Ball")
            ElseIf u1 = a3 And u1 <> a1 And u1 <> a2 And u2 = a1 And u2 <> a2 And u2 <> a3 And u3 <> a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("2 Ball")
            ElseIf u1 <> a1 And u1 <> a2 And u1 <> a3 And u2 = a3 And u2 <> a1 And u2 <> a2 And u3 = a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("2 Ball")
            ElseIf u1 = a2 And u1 <> a1 And u1 <> a3 And u2 = a3 And u2 <> a1 And u2 <> a2 And u3 <> a1 And u3 <> a2 And u3 <> a3 Then
                Console.WriteLine("2 Ball")
            ElseIf u1 <> a1 And u1 <> a2 And u1 <> a3 And u2 = a3 And u2 <> a1 And u2 <> a2 And u3 = a2 And u3 <> a1 And u3 <> a3 Then
                Console.WriteLine("2 Ball")
            ElseIf u1 = a3 And u1 <> a1 And u1 <> a2 And u2 <> a1 And u2 <> a2 And u2 <> a3 And u3 = a2 And u3 <> a1 And u3 <> a3 Then
                Console.WriteLine("2 Ball")
            Else
                Console.WriteLine("OUT")
            End If

        Loop Until u1 = a1 And u2 = a2 And u3 = a3

        Console.ReadLine()
    End Sub

End Module

 

이렇게까지 경우의수를 적는게 복잡해야하는건지.. 사실상 게임이용하는데에는 무리는 없는데 암튼 좀 잡다하네요

 

그리고 처음 부분있잖아요

 

게임을 다시실행하십시오.. 저 부분 정말 어설프죠.. 저것좀 어떻게 없앨수없을까요

 

그냥 깔끔하게 바로 시작하게끔