如何计算在VB.NET中使用Int(Rnd())的机会百分比？

Dim randomCount As Integer = 1000 ' 生成1000个随机数
Dim zeroCount As Integer = 0 ' 计数器，用于统计随机数为0的次数

For i As Integer = 1 To randomCount
    Dim randomNumber As Integer = Int(Rnd())
    If randomNumber = 0 Then
        zeroCount += 1
    End If
Next

Dim chancePercentage As Double = (zeroCount / randomCount) * 100
Console.WriteLine("使用Int(Rnd())的机会百分比为: " & chancePercentage & "%")