64,654
社区成员
发帖
与我相关
我的任务
分享
//1
bool f(int x)
{
return rand() % 100 < x;
}
//2
bool f(int x)
{
return (float)rand() / (float) RAND_MAX < (float)x / (float)100;
}
Public Function f(x As Integer)As Boolean
Dim iRand As Integer
iRand = Int(Rnd * 100)
f = iRand < x
End Function
'Sub Main里面写Randomize即可,然后调用函数