您所在位置：主题：请问RETURN与GOSUB不匹配怎么解决
tearangel
[专家分：0] 发布于 2009-05-31 16:00:00
下面是程序：
130 SCREEN 0: SCREEN 1: COLOR 9, 1: CLS : LINE (12, 10)-(304, 168), 2, B:
LINE (8, 8)-(308, 170), 2, B
140 LOCATE 1, 14: PRINT "fafangxuanze": PRINT : J = 3:
A$ = "1.yeyandiana": GOSUB 1300:
A$ = "2.shenboshia": GOSUB 1300:
A$ = "3.DC zhish": GOSUB 1300:
A$ = "4.YEYANMIDU": GOSUB 1300:
A$ = "5.EATEN FAQ": GOSUB 1300:
150 A$ = "6.zonghefa": GOSUB 1300:
A$ = "7.fanhui": GOSUB 1300:
LOCATE J - 1, 32: PRINT "*"; : LOCATE 25, 11:
PRINT "qingjianru";
1300 WL$ = "": FOR I = 1 TO 25 - LEN(A$): WL$ = WL$ + "-": NEXT:
WL$ = WL$ + "": LOCATE I, 5: PRINT A$ + WL$ + "[" + RIGHT$(STR$(I - 2), 1) + "] jian": I = I + 1: RETURN
130 SCREEN 0: SCREEN 1: COLOR 9, 1: CLS : LINE (12, 10)-(304, 168), 2, B:
LINE (8, 8)-(308, 170), 2, B
140 LOCATE 1, 14: PRINT "fafangxuanze": PRINT : J = 3:
A$ = "1.yeyandiana": GOSUB 1300:
A$ = "2.shenboshia": GOSUB 1300:
A$ = "3.DC zhish": GOSUB 1300:
A$ = "4.YEYANMIDU": GOSUB 1300:
A$ = "5.EATEN FAQ": GOSUB 1300:
150 A$ = "6.zonghefa": GOSUB 1300:
A$ = "7.fanhui": GOSUB 1300:
LOCATE J - 1, 32: PRINT "*"; : LOCATE 25, 11:
PRINT "qingjianru";
1300 WL$ = "": FOR I = 1 TO 25 - LEN(A$): WL$ = WL$ + "-": NEXT:
WL$ = WL$ + "": LOCATE I, 5: PRINT A$ + WL$ + "[" + RIGHT$(STR$(I - 2), 1) + "] jian": I = I + 1: RETURN