QB实例.docVIP

DECLARE SUB SJK () DECLARE SUB SJZ () DECLARE SUB sjy () DECLARE SUB ZBZS () DECLARE SUB ZBFS () DIM SHARED SD, SC AS INTEGER DIM SHARED K AS DOUBLE DIM SHARED D AS DOUBLE DIM SHARED V AS DOUBLE DIM SHARED A AS DOUBLE DIM SHARED B AS DOUBLE DIM SHARED C AS DOUBLE DIM SHARED P AS DOUBLE DIM SHARED R AS DOUBLE DIM SHARED KQ AS DOUBLE DIM SHARED KZ AS DOUBLE DIM SHARED X AS DOUBLE DIM SHARED Y AS DOUBLE DIM SHARED F AS DOUBLE DIM SHARED N AS DOUBLE DIM SHARED E AS DOUBLE CONST PI = 3.141592654# ON ERROR GOTO ERRADD 10 : CLS LOCATE 5, 20: PRINT Welcome to Use QBasic ! LOCATE 7, 20: PRINT 1=Route Left LOCATE 8, 20: PRINT 2=Route Right LOCATE 10, 20: INPUT Sselect Route ; SD IF SD = 0 OR SD = 9 THEN GOTO 10 20 : CLS : LOCATE 5, 20: PRINT Welcome to Use QBasic ! LOCATE 7, 20: PRINT 1=Normal Count LOCATE 8, 20: PRINT 2=Conrmal Count LOCATE 10, 20: INPUT Select Module ; SC IF SC = 0 OR SC = 9 THEN GOTO 20 IF SC = 2 THEN GOTO 40 30 : CLS LOCATE 5, 20: PRINT Welcome to Use QBasic ! 31 : LOCATE 7, 20: INPUT K= ; K IF K = NULL THEN GOTO 31 IF K = 10086 THEN GOTO ERRADD 32 : LOCATE 8, 20: INPUT D= ; D IF D = NULL THEN D = 0: LOCATE 8, 20: PRINT D=; D LOCATE 9, 20: INPUT V= ; V IF V = NULL THEN V = 90: LOCATE 9, 20: PRINT V=; V CALL SJK CALL ZBZS X = X + D * COS(PI * (F + 90) / 180) Y = Y + D * SIN(PI * (F + 90) / 180) CLS : LOCATE 5, 20: PRINT Welcome to Use QBasic ! LOCATE 7, 20: PRINT k=, K LOCATE 8, 20: PRINT X=, X LOCATE 9, 20: PRINT Y=, Y LOCATE 10, 20: PRINT F=, F LOCATE 15, 20: INPUT PAUSE.PRESS ANY KEY TO NEXT..; WANT: GOTO 30 40 : CLS LOCATE 5, 20: PRINT Welcome to Use QBasic ! LOCATE 7, 20: INPUT K= ; K IF K = NULL THEN GOTO 40 IF K = 10086 THEN GOTO ERRADD 42 : LOCATE 8, 20: INPUT X= ; N LOCATE 9, 20: INPUT Y= ; E CALL ZBFS CLS : LOCATE 5, 20: PRINT Welcome to Use QBasic ! LOCATE 7, 20: PRINT k=, K LOCATE 8, 20: PRINT D=