FormatPercent([數值])
過程源代碼:
'將輸入的數值轉換為百分數Sub百分數()Dim x AsDouble
x =InputBox("請輸入欲轉化為百分數的數值:")MsgBox x &"轉化為百分數為:"&FormatPercent(x),,"FormatPercent()函數"EndSub
執行過程:按F5鍵運行“百分數”過程,在輸入對話框中輸入數字。