VBA 子程序：判断字符串首字母是否为大写字母

以下是一个使用 VBA 编写的子程序，用于判断输入字符串的第一个大写字母是什么：\n\nvba\nSub 判断首字母()\n Dim inputString As String\n Dim firstChar As String\n\n ' 获取用户输入的字符串\n inputString = InputBox("请输入一个字符串：")\n\n ' 判断第一个字符是否为大写字母\n If Len(inputString) > 0 Then\n firstChar = Left(inputString, 1)\n If firstChar Like "[A-Z]" Then\n MsgBox "输入字符串的第一个大写字母是：" & firstChar\n Else\n MsgBox "输入字符串的第一个字符不是大写字母。"\n End If\n Else\n MsgBox "输入字符串为空。"\n End If\nEnd Sub\n\n\n要使用这个子程序，请按下 Alt + F11 打开 VBA 编辑器，然后在 Sheet1 的代码模块中插入一个新的模块，并将上述代码复制粘贴到新模块中。然后按下 F5 运行该程序。