第18节 常用函数

1．  求某一范围[n,m]内的随机整数,(n,m是正整数)

　　Rnd产生一个（0，1）之间的随机整数。

　　Fix(Rnd*(m-n+1))+n产生一个[n,m]之间的随机整数。

2．  对小数x按四舍五入保留小数点后n位。

　　Fix(x*10^n+0.5)/10^n  或  10^(-n)*Int(10^n*(x+0.5*10^(-2)))

例如：按四舍五入保留小数点后两位

　　Fix(x*100+0.5)/100    或     0.01*Int(100*(x+0.005))

3．分离数字：将三位数n分离为三位数字分别存放在a、b、c中。

例如：

Private Sub Form_Activate()

  Dim n As Integer

  Dim a As Integer, b As Integer, c As Integer

  n = InputBox("")              '三位数

  a = n \ 100                   '百位数字

  b = Fix((n Mod 100) / 10)     '十位数字

  c = n - a * 100 - b * 10      '个位数字

  Print a, b, c

End Sub