回 帖 发 新 帖 刷新版面

主题:MID$()有什么特点

请问一下QBASIC里用MID$()有什么需要注意的地方.

回复列表 (共7个回复)

沙发

MID$()有以下用法:
1.作为字符串函数用
格式[MID$(N$,X,Y)]
N$是母串,X是从哪取,Y是取几个
2.作为替换函数用
格式[MID$(N$,M$)]
N$是被替换的字符或字符串,M$是替换的N$的字符或字符串

板凳

mid$()一个很奇怪的调用规则
这里我只说函数,不说mid$语句
mid$(f$,i%,j%)
其中i%>len(f$)不会抱错
i%<=0则会报错

3 楼

是整体替换吗?
换完后M$呢?

4 楼

[quote]MID$()有以下用法:
1.作为字符串函数用
格式[MID$(N$,X,Y)]
N$是母串,X是从哪取,Y是取几个
2.作为替换函数用
格式[MID$(N$,M$)]
N$是被替换的字符或字符串,M$是替换的N$的字符或字符串
[/quote]

5 楼

[quote][quote]MID$()有以下用法:
1.作为字符串函数用
格式[MID$(N$,X,Y)]
N$是母串,X是从哪取,Y是取几个
2.作为替换函数用
格式[MID$(N$,M$)]
N$是被替换的字符或字符串,M$是替换的N$的字符或字符串
[/quote]
[/quote]

6 楼

可以从字符串中取数,mid$(要取得字符串,从第几位取,取多少)。

7 楼

CLS
K = 1
B = 30
FOR I = 1 TO 20
 LOCATE K, B
 PRINT "*"
 FOR J = 1 TO 1000000: NEXT J
 IF I = 20 THEN BEEP
 K = K + 1
 CLS
NEXT I
FOR I = 1 TO 10
 LOCATE K, B
 PRINT "*"
 FOR J = 1 TO 1000000: NEXT J
 K = K - 1
 CLS
NEXT I
FOR I = 1 TO 7
 LOCATE K, B
 PRINT "*"
 FOR J = 1 TO 1000000: NEXT J
 IF I = 7 THEN BEEP
 K = K + 1
 CLS
NEXT I
FOR I = 1 TO 6
 LOCATE K, B
 PRINT "*"
 FOR J = 1 TO 1000000: NEXT J
 K = K - 1
 CLS
NEXT I
FOR I = 1 TO 6
 LOCATE K, B
 PRINT "*"
 FOR J = 1 TO 1000000: NEXT J
 IF I = 6 THEN BEEP
 K = K + 1
 CLS
NEXT I
FOR I = 1 TO 3
 LOCATE K, B
 PRINT "*"
 FOR J = 1 TO 1000000: NEXT J
 K = K - 1
 CLS
NEXT I
END

我来回复

您尚未登录,请登录后再回复。点此登录或注册