Private?Sub?Command1_Click()
Dim?a?As?Integer
Dim?a1?As?Integer
Dim?a2?As?Integer
a?=?Val(Text1.Text)
If?a?>?99?Or?a?<?0?Then
MsgBox?("請輸入壹個大於0的兩位數!")
Else
If?a?<?10?Then
Text2.Text?=?a
Else
a1?=?Int(a?/?10#)
a2?=?a?-?a1?*?10
Text2.Text?=?a1?+?a2
End?If
End?If
End?Sub