잘못된부분 지적좀 해주세요.
세이
Dim A As Integer
Private Sub Command1_Click()A = 0MsgBox 0~31까지의 자연수 중 한개의 숫자만 생각해 주세요, vbOKOnly, 숫자생각MsgBox 생각하신 숫자가 다음부터 나오는 숫자들 사이에 있으면 예(yes), 없으면 아니요(no)를 클릭해주세요, , If MsgBox(1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, vbYesNo, 1/5) = yes ThenA = A + 1End IfIf MsgBox(2, 3, 6, 7, 10, 11, 14, 15, 18, 19, 22, 23, 26, 27, 30, 31, vbYesNo, 2/5) = yes ThenA = A + 2End IfIf MsgBox(4, 5, 6, 7, 12, 13, 14, 15, 20, 21, 22, 23, 28, 29, 30, 31, vbYesNo, 3/5) = yes ThenA = A + 4End IfIf MsgBox(8, 9, 10, 11, 12, 13, 14, 15, 24, 25, 26, 27, 28, 29, 30, 31, vbYesNo, 4/5) = yes ThenA = A + 8End IfIf MsgBox(16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, vbYesNo, 5/5) = yes ThenA = A + 16End IfMsgBox 당신이 생각하신 숫자는 & & A & & 입니다, , End Sub
디버그 해보면 A에서 계속 0이 나와요ㅠㅠ
-
바름
Dim A As Integer
Private Sub Command1_Click()
A = 0
A = 0 이라고 선언을 하셔서
0 이 나오는게 아니구나~~!!
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2676241 | 이거왜이래, 짜증나게 (4) | 각티슈 | 2024-11-25 |
| 2676213 | 네이버 글작성 도배기에 대한질문좀... (5) | Sona | 2024-11-25 |
| 2676183 | 후킹? (1) | 꼬꼬마 | 2024-11-24 |
| 2676153 | 아차! 음악링크좀 쓰게 올려주실분.. 많이있는곳으로! | 사이 | 2024-11-24 |
| 2676125 | Themida 패킹시 윈도우7은 호환 하지 못하나요? | 라 | 2024-11-24 |
| 2676093 | 현재프로그램 파일이름을 추출하는걸알고싶습니다 (1) | 도1도캣 | 2024-11-24 |
| 2676066 | exe를 소스로 만드는법좀.. (3) | 회전력 | 2024-11-23 |
| 2676034 | 이런 창은 어떻게 지우나요? | 수련 | 2024-11-23 |
| 2676006 | 질문하나더~ | 찬바리 | 2024-11-23 |
| 2675930 | 작업관리자 차단 | 별빛 | 2024-11-22 |
| 2675901 | 숫자를 제외한 문자를 어떻게 나타내야될까요? | 진나 | 2024-11-22 |
| 2675871 | 거의마지막질문인데요 | 아메 | 2024-11-22 |
| 2675846 | 제가 완성햇는데요 ㅎ; | 거늘 | 2024-11-21 |
| 2675824 | 타이머. 프로그래스바 코드 질문입니다. (10) | 빛글 | 2024-11-21 |
| 2675798 | 이걸 머라고해야 할지모르지만 질문합니다 (2) | 리라 | 2024-11-21 |
| 2675772 | 구구단 함수 질문이요~! (1) | 테이 | 2024-11-21 |
| 2675746 | exe저장시 런타임53 에러 | 아픔이보여 | 2024-11-20 |
| 2675718 | ocx 설치법 | 달달한캔디 | 2024-11-20 |
| 2675630 | ""안에 큰따음표 넣기. | 터전 | 2024-11-19 |
| 2675519 | 컴파일 오류 ?? | 슬아라 | 2024-11-18 |