有一种方法可以确保名字和姓氏中的第一个字符仅在QB64上为大写

Question

DIM名字为STRINGDIM姓氏为STRING

CLS

输入“输入名字：”，名字输入“输入姓氏：”，姓氏

Answer 1

您可以同时使用字符串函数LEFT$和UCASE$：

first$ = LEFT$(FirstName, 1)
last$ = LEFT$(LastName, 1)
IF first$ <> UCASE$(first$) OR last$ <> UCASE$(last$) THEN
    PRINT "error: first letter of names must be capitalized"
    END
END IF

如果您不希望程序退出，则可以使用MID$语句将其更改为大写：

first$ = LEFT$(FirstName, 1)
last$ = LEFT$(LastName, 1)
IF first$ <> UCASE$(first$) THEN
    MID$(FirstName, 1, 1) = UCASE$(first$)
ELSEIF last$ <> UCASE$(last$) THEN
    MID$(LastName, 1, 1) = UCASE$(last$)
END IF

有关字符串操作和转换的更多信息以及其他信息，see the QB64 wiki。>>