这是一个使用QuickBASIC 7.1编写的源程序，功能是输入文本后按空格交替转换大小写。程序首先设定Flag变量为1，用于判断转换大写还是小写。然后遍历输入的字符串，每次取出一个字符，根据Flag的值将其转换为大写或小写，并即时显示转换后的字符。如果遇到空格，Flag被设为1，下次转换将变为大写；否则，Flag设为0，转换为小写。
Quick BASIC 源程序，在Microsoft Quick BASIC 7.1下通过：
CLS
PRINT Input Your text here:
LINE INPUT m$
Flag = 1 '用Flag变量判别该换大写还是换小写，初始值1，即换大写
FOR i = 1 TO LEN(m$) '找出字符串长度
j$ = LEFT$(m$, 1) '取一个字符开始
m$ = RIGHT$(m$, LEN(m$) - 1) '截去一个字符留下次用
IF Flag = 1 THEN '转换字符，跟据前一个Flag变量
j$ = UCASE$(j$)
ELSE
j$ = LCASE$(j$)
END IF
IF j$ = THEN '判断所取字符是否为空格
Flag = 1 '若为空格，即将Flag变量置1，下次循环时换大写
ELSE '若非空格，Flag变量置0，下次循环时换小写
Flag = 0
END IF
PRINT j$; '转换一个字符就显示一个
NEXT i
END
运行调试如下：
Input Your text here:
dSfw sdopifwe DewsdFD weifjsa sdafwopqe asoudfwe DFSAwer asdfuiQ!23
Dsfw Sdopifwe Dewsdfd Weifjsa Sdafwopqe Asoudfwe Dfsawer Asdfuiq!23
取消
评论
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
