我寫了很久..但卻執行不出來..
這個題目在要求輸入一個數值,例:78965
必須顯示出 1=>7
2=>8
3=>9
4=>6
5=>5
x = Text1.Text
If x <= 0 Then
t = Fix(Log(x) / Log(10)) + 1
End
End If
For y = 1 To t
If y <> t Then
c = 10 ^ (t - y)
x1 = x Mod c
x2 = x \ c
x = x2
Else
c = 1
x1 = x Mod c
End If
List1.AddItem y & "=>" & x1
Next y
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()