关于VB的随机函数

randomize
dim intX as integer
if rnd() >= 0.5 then
intx=0
else
intx=1
endif

由于 Rnd 函数的值 0～0.9999，所以，用 0.5 分界时，大于 0.5 的可能性稍微小于小于 0.5 的可能性，所以把 0.5 加上

代码如下。
=====================
Option Explicit
Private Function Rnd1Or0() As Integer '你要求的函数
Rnd1Or0 = Round(Rnd)
End Function

Private Sub Form_Click() '每单击一次窗体产生一个随机数
Print Rnd1Or0
End Sub

Private Sub Form_Load()
Randomize
End Sub

Function suijishu()
randomize
suijishu=iif(rnd()>=0.5,0,1)
End Function

其实不需要函数，直接让变量等于iif(rnd()>=0.5,0,1)就可以了

Function SuiJiShu
If Second(NOW) Mod 2 then
SuiJiShu = 1
ELSE
SuiJiShu = 0
End if
End Function

思路就是判断现在的时间，看秒数，如果是奇数那么随机数为1，如果是偶数那么随机数为0.

randomize
a = Int(Rnd * 2)
Print a

Public Function D_To_B(ByVal Dec As Long) As String
Do
D_To_B = Dec Mod 2 & D_To_