VB程序设计一个从由字母、数字组成的字符串中找出所有大写字母并逆序输出的程序

2025-05-21 23:34:39
推荐回答(1个)
回答1:

Private Sub Command1_Click()
Dim strIn As String, I As Integer, T As String, strOut As String
strIn = InputBox("请输入字符串:")
For I = 1 To Len(strIn)
T = Mid(strIn, I, 1)
If T >= "A" And T <= "Z" Then
strOut = T & strOut
End If
Next
MsgBox strOut
End Sub