編程VB語言代碼:在十個數中找出所有兩位數,滿足其個位,十位三個數字之和為10

Dim?i?As?Integer,?strInput?As?String

For?i?=?1?To?UBound(n)

n(i)?=?CInt(InputBox(""))

strInput?=?strInput?&?vbTab?&?n(i)

Next?i

Print?strInput

For?i?=?1?To?UBound(n)

x?=?CStr(n(i))

If?Len(x)?=?2?Then

If?CInt(Mid(x,?1,?1))?+?CInt(Mid(x,?2,?1))?=?10?Then?Print?x

End?If

Next