'四舍五入到整数
Sub 四舍五入()
Dim x As Double
x = InputBox("请输入欲四舍五入的数值:")
MsgBox x & "四舍五入结果为:" & CInt(x), , "CInt()函数"
End Sub
'将输入的数值转换为百分数
Sub 百分数()
Dim x As Double
x = InputBox("请输入欲转化为百分数的数值:")
MsgBox x & "转化为百分数为:" & FormatPercent(x), , "FormatPercent()函数"
End Sub
'将数值四舍五入到指定位数
Sub 定位四舍五入()
Dim x As Double
Dim n As Integer
x = InputBox("请输入欲四舍五入的数值:")
n = InputBox("请输入进行四舍五入的位数:")
MsgBox x & "保留" & n & "位小数的结果为:" & Round(x, n), , "Round()函数"
End Sub
'将输入的数值转化为货币型
Sub 货币()
Dim x As Double
x = InputBox("请输入欲转化为货币的数值:")
MsgBox x & "转化的货币值为:" & FormatCurrency(x) _
, , "FormatCurrency()函数"
End Sub
'对输入数值取整,负数取小
Sub 取整1()
Dim x As Double
x = InputBox("请输入欲取整的数值:")
MsgBox x & "取整结果为:" & Int(x), , "Int()函数"
End Sub
'对输入的数值取整,负数取大
Sub 取整2()
Dim x As Double
x = InputBox("请输入欲取整的数值:")
MsgBox x & "取整结果为:" & Fix(x), , "Fix()函数"
End Sub
'获取不超过指定数值的非负随机数
Sub 随机数()
Dim x As Double
x = InputBox("请输入随机数的上界:")
MsgBox "取得" & x & "以内的随机数:" & Rnd(x) * x, , "Rnd()函数"
End Sub
'获取不超过指定数值的数随机整数
Sub 随机整数()
Dim x As Double
x = InputBox("请输入随机整数的上界:")
MsgBox "取得" & x & "以内的随机整数:" & Int(Rnd(x) * x) _
, , "Rnd()函数&Int()函数"
End Sub