VBA로 가위바위보를 짜보았다.

해석주님의 C로 만든 가위바위보 와

NABU님의 ruby로 만든 가위바위보

를 보고 심심해서(...) 만들어봤습니다. 덧붙이자면 VBS는 세상에서 사라져야할 지상 최악의 언어찌(삐─)입니다.

두 분께서 짜신 내용하고는 좀 다르지만요(...)

 장소가 장소인 만큼 사진은 못 찍고

Sub rps()

Dim Player As String

Dim CPU, p,c,win, lose, draw, judge As Integer

Dim go As boolean 

Dim arr(3) As String

arr(0) = "가위"

arr(1) = "바위"

arr(2) = "보"

While 1

go = true

player = InputBox("가위, 바위, 보 중 하나를 입력해주세요. 끝내고 싶으면 취소를!")

Select Case player

Case "가위":

p = 1

go = true

Case "바위":

p = 2

go = true

Case "보":

p = 3

go = true

Case ""

MsgBox("게임을 종료합니다.")

MsgBox("당신은 " & win & "승, " & lose & "패, " & draw & "무의 전적을 가지셨습니다.")

Exit Sub

Case else

MsgBox("제대로 내세요!")

go = false

End Select

If go = true Then

cpu = Int ( ( 3 - 1 + 1 ) * Rnd + 1 ) 

c= cpu

MsgBox("당신은 " & arr(p-1) & ", 컴퓨터는 " & arr(c-1) & "를 내서," )

judge = judgeSub(p,c)

Select Case judge

Case 0

MsgBox("비겼습니다!")

draw = draw + 1

Case 1

MsgBox("이겼습니다!")

win = win + 1

Case 2

MsgBox("졌습니다!")

lose = lose + 1

End Select

End If

end while

End Sub

Function judgeSub(byval p as  integer, byval c as integer )  as integer

'1 = 가위 2 = 바위 3 = 보

'0 = draw 1 = win 2 = lose

Select Case p

Case 1

Select Case c

Case 1

judgeSub = 0

Case 2

judgeSub = 2

Case 3

judgeSub = 1

End Select

Case 2

Select Case c

Case 1

judgeSub = 1

Case 2

judgeSub = 0

Case 3

judgeSub = 2

End Select

Case 3

Select Case c

Case 1

judgeSub = 2

Case 2

judgeSub = 1

Case 3

judgeSub = 0

End Select

End Select

End Function

라고 하나의 서브와 하나의 함수로 구성!

...라고 만들었는데 손코딩이라서 돌아갈지 모르겠네요 =_=...;;;;

ps. ...시스템 내부 컴파일러로 돌려본 가위바위보 프로그램입니다(...)

rsp.exe