수다닷컴

랜덤으로 1~4를 돌려서 어떤 수를 받아들엿을떄 (a 가어떤수 인풋으로 받아봣어요)a (어떤수)와 r(1~4의 랜덤수) 가 다를 경우전b라구햇는데 b(어떤 변수에)에 +1 을출력하는프로그램을 짜고 싶엇는데요b= b+1로 해서 같다붙엿는데프린트가 되면나 : 좌측상 컴퓨터 우측상 득점 1나 : 좌측상 컴퓨터좌측하 득점 1자꾸 득점 1이 뜨는데전 득점이 또 되면 득점된 점수에 + 1을 시켜서 프린트가 되게뜨게하고싶어요...득점이 안됫을경우에는그대루 가구요 !!!첫글 올려봅니다 vb 공수형아들 도와주세요~~~~아차차 그리고 전 이렇게 하나하나 다 적어서햇느데이 프로그래밍한거 더 간략하게 할수잇을까요???Private Sub Command1_Click()
Dim r As Double
Dim a, b As Integer
a = InputBox(aa, aa)
b = 0
r = Int(Rnd * (5 - 1)) + 1

Select Case a

Case Is = 1 And r = 1
Print 나: 좌 측 상 ; ; 컴퓨터; 좌측상; 득점; b
Case Is = 1 And r = 2
b = b + 1
Print 나: 좌 측 상 ; ; 컴퓨터; 우측상; 득점; b

Case Is = 1 And r = 3
b = b + 1
Print 나: 좌 측 상 ; ; 컴퓨터; 좌측하; 득점; b

Case Is = 1 And r = 4
b = b + 1
Print 나: 좌 측 상 ; ; 컴퓨터; 우측하; 득점; b

Case Is = 2 And r = 1
b = b + 1
Print 나: 우 측 상 ; ; 컴퓨터; 좌측상; 득점; b
Case Is = 2 And r = 2
Print 나: 우 측 상 ; ; 컴퓨터; 우측상; 득점; b
Case Is = 2 And r = 3
b = b + 1
Print 나: 우 측 상 ; ; 컴퓨터; 좌측하; 득점; b
Case Is = 2 And r = 4
b = b + 1
Print 나: 우 측 상 ; ; 컴퓨터; 우측하; 득점; b

Case Is = 3 And r = 1
b = b + 1
Print 나: 좌 측 하 ; ; 컴퓨터; 좌측상; 득점; b
Case Is = 3 And r = 2
b = b + 1
Print 나: 좌 측 하 ; ; 컴퓨터; 우측상; 득점; b
Case Is = 3 And r = 3

Print 나: 좌 측 하 ; ; 컴퓨터; 좌측하; 득점; b
Case Is = 3 And r = 4
b = b + 1
Print 나: 좌 측 하 ; ; 컴퓨터; 우측하; 득점; b

Case Is = 4 And r = 1
b = b + 1
Print 나: 우 측 하 ; ; 컴퓨터; 좌측상; 득점; b
Case Is = 4 And r = 2
b = b + 1
Print 나: 우 측 하 ; ; 컴퓨터; 우측상; 득점; b
Case Is = 4 And r = 3
b = b + 1
Print 나: 우 측 하 ; ; 컴퓨터; 좌측하; 득점; b
Case Is = 4 And r = 4

Print 나: 우 측 하 ; ; 컴퓨터; 우측하; 득점; b

End Select

End Sub

신청하기