마지막으로 한번 더 질문합니다.
딸기향
Private Sub Command1_Click(Index As Integer)
Dim i As Integer
Randomize
i = Int(Rnd * 3) + 1
Select Case IndexCase 0
Label3.Caption = 가위
If i = 1 Then
Label5.Caption = 가위
MsgBox 비겼습니다. , ,
ElseIf i = 2 Then
Label5.Caption = 바위
MsgBox 졌습니다. , ,
Text1.Text = Val(Text1.Text) - 100
ElseIf i = 3 Then
Label5.Caption = 보
MsgBox 이겼습니다. , ,
Text1.Text = Val(Text1.Text) + 100
End If
Case 1
Label2.Caption = 바위
If i = 1 Then
Label5.Caption = 바위
MsgBox 비겼습니다. , ,
ElseIf i = 2 Then
Label5.Caption = 보
MsgBox 졌습니다. , ,
Label4.Caption = Label4.Caption - 100
ElseIf i = 3 Then
Label5.Caption = 가위
MsgBox 이겼습니다. , ,
Label4.Caption = Label4.Caption + 100
End If
Case 2
Label5.Caption = 보
If i = 1 Then
Label5.Caption = 보
MsgBox 비겼습니다. , ,
ElseIf i = 2 Then
Label5.Caption = 가위
MsgBox 졌습니다. , ,
Label4.Caption = Label4.Caption - 100
ElseIf i = 3 Then
Label5.Caption = 바위
MsgBox 이겼습니다. , ,
Label4.Caption = Label4.Caption + 100
End If
End Select
End Sub
위 소스일 때, -100이 되면 게임을 종료하고 싶은데.. 어떻게 해냐하나요?
-
상처입은마음
If먼저쓰세요
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2699581 | &articleid 이게 뭔가요.? | 봄여우 | 2025-06-27 |
| 2699502 | 비베 초보자가 쉽게 배울 수 있는 책 추천좀요 | 사이 | 2025-06-26 |
| 2699445 | 파싱말인데요 잘 이해가 안가서요.. | 횃대비 | 2025-06-26 |
| 2699387 | 파싱프로그램으로 제꺼 사이트에있는 자료를 무단으로 긁어가는대 | 돌심보 | 2025-06-25 |
| 2699337 | 매서드나 데이터구성원을 찾을수없습니다 해결좀요 ㅠㅠ | 하예진 | 2025-06-25 |
| 2699305 | 비베6.0 을 이용해서 가가라이브채팅을 할수 있나요? (1) | 에녹 | 2025-06-24 |
| 2699273 | 숫자만 인식하고 싶어요 (6) | 간지포텐 | 2025-06-24 |
| 2699244 | Form에 노래를 넣을려구 하는데요 .. (4) | 초록이 | 2025-06-24 |
| 2699193 | 디자인 설정하면 | 두온 | 2025-06-23 |
| 2699136 | 수다님의 네이버 로그인 모듈을 사용하여 프로그램을 작성하고 있는데 텍스트박스 질문이 있습니다. | 얀새 | 2025-06-23 |
| 2699106 | 오류좀 봐주세요; (2) | 맞빨이 | 2025-06-23 |
| 2699079 | 파싱 질문입니다 (4) | 피네 | 2025-06-22 |
| 2699025 | 블루투스 시리얼통신으로 리스트뷰에 등록 | 목화 | 2025-06-22 |
| 2698995 | [사진有] 비밀번호 틀리면 다음 창으로 안넘어가지게 하는법없나요?? (3) | 슬현 | 2025-06-22 |
| 2698939 | 메세지박스 줄띄우는법 | 누리별 | 2025-06-21 |
| 2698910 | 런타임 424 질문 | 야미 | 2025-06-21 |
| 2698883 | 배열에 관련하여 (1) | 민트맛캔디 | 2025-06-21 |
| 2698856 | 빤짝거리는 내 툴의 재목 !? | 초롱꽃 | 2025-06-20 |
| 2698830 | 리스트 인덱스 질문 (2) | 말글 | 2025-06-20 |
| 2698803 | 리스트 뷰 질문이요. (2) | 딸기향 | 2025-06-20 |