qb64 - 确保字符串的第一个字符在 QB64 中是大写的

Question

有没有办法确保第一个字符是大写FirstName的？LastName

DIM FirstName AS STRING
DIM LastName AS STRING

CLS

INPUT "Enter First Name: ", FirstName
INPUT "Enter Last Name: ", LastName

标签： qb64

Answer 1

看看这个：

A$ = LEFT$(FirstName$, 1) // get first character
B = ASC(A$) //change it to ascii
IF B >= 65 AND B <= 90 THEN //is it uppercase?
CK$ = "FIRST CHARACTER IS UPPERCASE"
END IF
PRINT CK$