잘못된부분 지적좀 해주세요.
세이
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 이 나오는게 아니구나~~!!
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2698883 | 배열에 관련하여 (1) | 민트맛캔디 | 2025-06-21 |
| 2698856 | 빤짝거리는 내 툴의 재목 !? | 초롱꽃 | 2025-06-20 |
| 2698830 | 리스트 인덱스 질문 (2) | 말글 | 2025-06-20 |
| 2698803 | 리스트 뷰 질문이요. (2) | 딸기향 | 2025-06-20 |
| 2698750 | 헐 웹브앙대요 | 꺆잉 | 2025-06-19 |
| 2698694 | 모듈의 핸들 | 렁찬 | 2025-06-19 |
| 2698674 | VB 고수분들 봐주세요 (6) | 세이 | 2025-06-19 |
| 2698617 | 윈속.ocx다운받는곳좀여 | 안토니 | 2025-06-18 |
| 2698588 | 자 나를 즐겁게 해봐요 | 다흰 | 2025-06-18 |
| 2698529 | 이거 저작권 상,고,명인데 점부탇드림 (3) | 서향 | 2025-06-17 |
| 2698503 | 오늘도~윈속질문이요~ | 텐시 | 2025-06-17 |
| 2698478 | 비베6에서 exe파일만들때 자동링커되려면 | 달달한캔디 | 2025-06-17 |
| 2698431 | 파일 주소 숨기고 다운로드 하게 하는 방법! (질문임..) (1) | 비마중 | 2025-06-16 |
| 2698405 | 어떤 dll 이 제 보안프로그램 메모리를 자꾸 변조하는데. (2) | 귀염포텐 | 2025-06-16 |
| 2698372 | 웹브라우저 특정부분 보여주기 | 보물선 | 2025-06-16 |
| 2698343 | 위도우 8 - 비주얼베이직 6.0 설치 오류..(Heple...Me..ㅠ_ㅠ) (2) | 접시 | 2025-06-16 |
| 2698319 | 하다가 도중에 오류가떠서 특정부분으로 가게하는건어떻게하나요? | 연하늘 | 2025-06-15 |
| 2698292 | 밑 질문에 이어서 하나 더 질문합니다. | 단화한 | 2025-06-15 |
| 2698262 | 컴포넌트를 내장시킬 방법이 있나요? (1) | 늘다 | 2025-06-15 |
| 2698236 | 소스를 프로그램이 실행하는 기능을 뭐라하나요? | 단순랩퍼 | 2025-06-15 |