关于VB的随机函数
来源:百度知道 编辑:UC知道 时间:2024/09/12 21:54:56
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_