如何用vb中的随机函数产生奇数？（只要奇数）

Question

如题所述

Answer 1

Public
Function
SJJS(iMin,
iMax)'随机奇数
'iMin：下限
'iMax：上限
SJJS
=
Int(Rnd
*
(iMax
/
2
-
iMin
+
1)
+
iMin)
*
2
-
1
End
Function
------
调用：
a=sjjs(1,10)
'随机一个奇数，范围1~10之间，即1、3、5、7、9