VB 게임을 만드는 것은 너무 어렵지 않습니다. 프로그램은 약 10 문장입니다. 간단하고 사례문만 있으면 충분합니다. 온라인 도움을 바랍니다. (데이비드 아셀, Northern Exposure (미국 TV 드라마), 성공명언)

개인 하위 명령 1_Click ()

Iguess = Int(Rnd * 3)+1

하다

YouGuess = Val(InputBox) ("나는 이미 결정했습니다. 당신의 문제는 무엇입니까? (1= 망치, 2= 가위, 3= 천: ","주먹 추측 "))

YouGuess & lt= 3 및 YouGuess & gt= 1

Iguess = YouGuess 인 경우

K = 1

ElseIf Iguess & lt 그렇게 you guess xor ABS (I guess-you guess) = 2

K = 2

기타

K = 0

만약 ... 끝날거야

MsgBox "나 아웃됐다:" +Mid ("망치 가위 천", Iguess * 2- 1, 2)+ ",너 아웃됐다:"+_

Mid ("망치와 가위", 맞춰봐 * 2- 1, 2)+vbcrlf+mid ("네가 무승부를 이겼다", k * 3+/kloc-;

끝단 접합

개인 하위 양식 _Load ()

명령 1. Caption = "추측 시작"

무작위화 타이머

끝단 접합