VB 随机数代码怎么写

来源：百度知道 编辑：UC知道 时间：2024/06/04 06:50:49
随机生成0和1
是0则变量a=a+1
是1则变量b=b+1

Randomize
If 2 * Rnd() > 1 Then
Form1.Caption = 1
Else
Form1.Caption = 0
End If
End Sub

Private Sub Form_Click()
Dim inta As Integer
Dim ss As Single
ss = ren * 100
If ss Mod 2 = 0 Then
a = a + 1
Else
b = b + 1
End If

End Sub

if fix(rnd)=0 then
a=a+1
elseif fix(rnd)=1 then
b=b+1
endif