VB算法：從字母數字組成的字符串中找出所有大寫字母，並逆序輸出。 越簡單越好。

假設妳的字符串已經在變量s裏面了：

Dim?i?As?Integer,?s?As?String

Dim?x?As?Integer,?c?As?String

Dim?arr(1?To?26)?As?Integer

s?=?InputBox("輸入字符串")

For?i?=?1?To?26

arr(i)?=?0

Next?i

For?i?=?1?To?Len(s)

c?=?Mid(s,?i,?1)

If?c?>=?"A"?And?c?<=?"Z"?Then

x?=?Asc(c)?-?Asc("A")?+?1

arr(x)?=?arr(x)?+?1

End?If

Next?i

c?=?""

For?i?=?26?To?1?Step?-1

If?arr(i)?>?0?Then?c?=?c?&?Chr(Asc("A")?+?i?-?1)

Next?i

MsgBox?"妳的字符串中出現的大寫字母有："?&?c

End?Sub