계산 연습 MULTI

calc-multiply.bas

원래 파일

LAN/QB/MULTI.BAS

날짜

1994-09-07

크기

739바이트, 17줄

저장 형식

QB 4.5 바이너리 저장본("Fast Load and Save")을 QB에서 텍스트로 다시 저장한 뒤 UTF-8로 바꿈

웹 버전

계산 연습

내려받기

calc-multiply.bas (UTF-8)

설명

덧셈·뺄셈 20문제를 곱셈으로 바꾼 것입니다.
0~99와 0~9를 곱하는 문제를 20개 냅니다.

소스

CLSRANDOMIZE TIMERFOR i = 1 TO 20a = INT(RND * 100)b = INT(RND * 10) PRINT a; "X"; b; "="; ca = a * bINPUT cIF c = ca THENPRINT "Ok"s = s + 1END IFIF ca <> c THEN PRINT "no,correct answer is "; caNEXT iPRINT "Total Correct answer is "; s