谁能解释一下以下简单Qbasic代码的含义
qbasic吧
全部回复
仅看楼主
level 1
沸腾岩浆 楼主
OPEN "hide.in" FOR INPUT AS #1 OPEN "hide.out" FOR OUTPUT AS #2 INPUT #1, a$ imax = 0 l = LEN(a$) FOR i = 1 TO l n$ = RIGHT$(a$, l + 1 - i) n = VAL(n$) IF n > imax THEN imax = n w = i END IF NEXT i PRINT #2, LTRIM$(STR$(w)) CLOSE END 我是学c的,谁能解释一下,以下简单Qbasic代码的含义,非常感谢,我看不懂QBasic 
2008年12月03日 14点12分 1
level 0
INPUT #1, a$ (输入一个整型,一个字符串)
imax = 0 
l = LEN(a$) (A$的长度赋值给L)
FOR i = 1 TO l (FOR 循环)
 n$ = RIGHT$(a$, l + 1 - i) (取字符串右边L+1-I个)
 n = VAL(n$) (应该是将字符转成数字)
 IF n > imax THEN (如果N>IMAX 则 IMAX=N)
 imax = n 
 w = i 
 END IF 
NEXT i 
PRINT #2, LTRIM$(STR$(w)) (输出) 
CLOSE 
END
2009年01月29日 12点01分 2
level 0
楼上可以用
2009年02月13日 12点02分 3
1