[求助]BAS一个很奇怪的问题,请大家给予我帮助

谷虫

这个是BAS通病,莫名其妙的问题......少用GOSUB

bob881021

那就是没办法咯
如过你与到这种事情你该怎么处理?

轩辕小侠

60 GOSUB 40 :O$="    XXXXX  数据释放":GOSUB 50
把这句分开写,不然O$="    XXXXX  数据释放":GOSUB 50相当于没写一个样,因为GOSUB 40,并且RETURN后会直接运行70

谷虫

啊......自己严重失误,对不起楼主了......
看来的确有一段时间没接触GVB了......
算了,再说一点奇怪错误的原因: IF后不可以加GOSUB...

wangyu2u

以下是引用谷虫在2005-7-3 7:27:41的发言：

啊......自己严重失误,对不起楼主了......

看来的确有一段时间没接触GVB了......

算了,再说一点奇怪错误的原因: IF后不可以加GOSUB...

对,我也发现了,而且也不能用POP

bob881021

以下是引用轩辕小侠在2005-7-2 7:57:22的发言：
60 GOSUB 40 :O$="    XXXXX  数据释放":GOSUB 50
把这句分开写,不然O$="    XXXXX  数据释放":GOSUB 50相当于没写一个样,因为GOSUB 40,并且RETURN后会直接运行70

不对,我试过了,GOSUB之后不一定运行其下语句,应该是运行紧接着的语句
不信你试试

bob881021

我有一段BAS程序如下,40~57行可以不看,那是一个子程序,我没次运行到30句就回出现"UNDEF`D STATMENT ERROR IN 30"

可是30句中的 GOTO 60 ,60句确实存在啊

另:我是用TXT在PC上编好的,用WQXBAS精灵1.0转成.BAS传回WQX的,(NC2600C)

请大虾帮我解决问一下这个问题,谢谢~


10 :
20 POKE 914,1
30 GOTO 60
40 FOR I=704 TO 860 OKE I,0 :NEXT
41 PRINT
42 RETURN
50 IF T=O THEN T=703
51 POKE 947,255 OKE 915,0
52 FOR I=1 TO LEN(O$)
53 W=ASC(MID$(O$,I,1))
54 IF W<>31 THEN T=T+1 OKE T,W
55 NEXT I
56 PRINT:T=0 :O$=""
57 RETURN
60 GOSUB 40 :O$="    XXXXX  数据释放":GOSUB 50
70 O$="      确认释放?(Y/N)":T=781 :GOSUB 50
80 W$= INKEY$
90 IF W$="y" THEN 150
95 IF W$="n" THEN 100