计算机键盘大写英文,电脑键盘设定大写英文字母怎么弄

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

取消

评论