Question

编写VB程序，从由字母数字组成的字符串中找出所有大写字母并逆序输出。

Answer 1

Private Sub Command1_Click()
Dim i As Integer, m As Integer
text2.text=""
i = Len(Text1.Text)
For m = 1 To i
s = Mid(Text1.Text, m, 1)
If Asc(s) >= 65 And Asc(s) <= 90 Then
Text2.Text = s + Text2.Text
End If
Next m
End Sub

Answer 2

s=你的输入dim sout,stmpfor i = len(s) to 1 step -1stmp = mid(s,i,1)if asc(stmp) >=asc("A") and stmp <= asc("Z") then sout=sout & stmpnextmsgbox sout