Question

接收键盘输入的英文字符串（单词之间用空格隔开），将字符串中出现的单词首字母改成大写后输出

Answer 1

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