ＧＶＢＡＳＩＣ求助

zcfaaagggl

这个我最近在编个程序

有一段代码总是报错

ＲＥＴＵＲＮ　ＷＩＴＨＯＵＴ　ＧＯＳＵＢ

大家帮忙研究下

３Ｑ
这是其中的一段


10 GOTO 770
200 PRINT "OK";
750 CLS:GOSUB 1000
760 GOTO 200

770 CLS:TEXT:INPUT "文件名:";W$
775 CLS : GRAPH :  LOCATE 3,7: PRINT "保存中...";
780 OPEN W$ FOR OUTPUT AS #1
790 FOR Q=1 TO 20
800 FOR P=1 TO 7
805 IF A(Q,1)=0 GOTO 840
810 WRITE #1,A(Q,P)
820 NEXT P
830 NEXT Q
840 CLOSE #1
845 CLS : LOCATE 3,7: PRINT "保存成功";
850 Z$=INKEY$
855 GOTO 750

1000 FOR Q=1 TO 20
1010 IF A(Q,1)=0 GOTO 1080
1020 IF A(Q,1)=1 THEN DRAW A(Q,4),A(Q,5),A(Q,7)
1030 IF A(Q,1)=2 THEN LINE A(Q,2),A(Q,3),A(Q,4),A(Q,5),A(Q,7)
1035 R=((A(Q,4)-A(Q,2))^2+(A(Q,5)-A(Q,3))^2)^0.5
1040 IF A(Q,1)=3 THEN CIRCLE A(Q,2),A(Q,3),R,A(Q,6),A(Q,7)
1050 IF A(Q,1)=4 THEN BOX A(Q,2),A(Q,3),A(Q,4),A(Q,5),A(Q,6),A(Q,7)
1055 ZA=ABS(A(Q,4)-A(Q,2)):ZB=ABS(A(Q,5)-A(Q,3))
1060 IF A(Q,1)=5 THEN ELLIPSE A(Q,2),A(Q,3),ZA,ZB,A(Q,6),A(Q,7)
1070 NEXT Q
1080 RETURN 谢了

[ 本帖最后由 zcfaaagggl 于 2007-12-23 12:46 编辑 ]

Loading

GVBASIC的BUG
  把GOSUB 1000换一行写应该没什么问题了

zcfaaagggl

还是不行啊......
就没办法了？

Loading

好象1010 行不能直接GOTO 到GOSUB 的
  我也忘个差不多了
你在1080行前面加个1075 …………
然后把1010行改为
IF A(Q,1)=0 GOTO 1075
如果还不行的话我也不知道怎么办了
GVBASIC的BUG实在太多了

vbff

我到现在 还是不会运用数组
以前电脑蛙蛙不是有个教程吗 ?说画100个精灵不可能就使用100次画图语句的，可以使用数组
  我是使用了数组的方法去画10个可移动的圆圈,可是圆圈并不是同时显示的，而是最快是1秒种显示一个,显示完一个就消失一次,若不用CLS,每次运动过的圆圈就会留轨迹

  我到现在还不理解,电脑蛙蛙精灵岛游戏里的两个甚至三个同时运动的精灵是如何弄的?

zcfaaagggl

不知道现在还有人用GVBASIC编程没

GVB编的大家还在玩没?

dragon_

加graph,别用cls,就这些.

dragon_

有啊,在自习室编个程序处理一下数据很方便的.

black

GVB便于编辑
有时用它模拟一下数学题啥的
还不错