在qbasic中将大写转换为相同单词的小写

Question

您好我想得到的想法或代码将大写转换为小写和小写为同一个单词的大写例如：将StAcKOVERfloW转换为sTaCkoverFLOw请任何人给我的想法或qbasic编程语言的代码

Answer 1

以下是代码：

INPUT "ENTER STRING"; S$
DIM A$, B$ (LEN(S$))
FOR I = 0 TO (LEN(S$)-1)
    A$(I) = MID$(S$,I,1)
NEXT I
FOR J = 0 TO (LEN(S$)-1)
    SELECT CASE A$(J)
        CASE UCASE$(A$(J))
            B$(J) = LCASE$(A$(J))
        CASE LCASE$(A$(J))
            B$(J) = UCASE$(A$(J))
        CASE ELSE
            B$(J) = A$(J)
    END SELECT
NEXT J
FOR K =  0 TO (LEN(S$)-1)
   PRINT B$(K);
NEXT K  
PRINT " THE STRING WITH THE CASES SWITCHED IS:"; S$
END

希望它有所帮助...