QuickBASIC源程式，在MicrosoftQuickBASIC7.1下透過：CLSPRINT"InputYourtexthere:"LINEINPUTm$Flag=1"用Flag變數判別該換大寫還是換小寫，初始值1，即換大寫FORi=1TOLEN(m$)"找出字串長度j$=LEFT$(m$,1)"取一個字元開始m$=RIGHT$(m$,LEN(m$)-1)"截去一個字元留下次用IFFlag=1THEN"轉換字元，跟據前一個Flag變數j$=UCASE$(j$)ELSEj$=LCASE$(j$)ENDIFIFj$=""THEN"判斷所取字元是否為空格Flag=1"若為空格，即將Flag變數置1，下次迴圈時換大寫ELSE"若非空格，Flag變數置0，下次迴圈時換小寫Flag=0ENDIFPRINTj$;"轉換一個字元就顯示一個NEXTiEND執行除錯如下：InputYourtexthere:dSfwsdopifweDewsdFDweifjsasdafwopqeasoudfweDFSAwerasdfuiQ!23DsfwSdopifweDewsdfdWeifjsaSdafwopqeAsoudfweDfsawerAsdfuiq!23

#include#includeintmain(){chara[80];inti,len,j;printf("輸入英文單詞以一個空格分開");gets(a);len=strlen(a);for(i=0;i