作业帮 > 综合 > 作业

vb中多次随机随机数 指定位置随机数出现的次数

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/13 11:13:58
vb中多次随机随机数 指定位置随机数出现的次数
vb中多次随机随机数后 统计指定位置随机数出现次数 如 生成了十组随机数 每组中第一位数字出现的次数
vb中多次随机随机数 指定位置随机数出现的次数
Private Sub Command1_Click()
Dim i, n As Integer
Dim a() As Integer
ReDim a(10)
Me.Cls
Randomize

    For i = 0 To 9
        a(i) = Int(Rnd * 101)
    Next i
    
  Print "数组大小:" & UBound(a)
 
    For i = 0 To UBound(a) - 1
           Print a(i)
    Next i
    
    For i = 0 To UBound(a) - 1
        If a(0) = a(i) Then
            n = n + 1
        End If
    Next i
    Text1.Text = Str(n)
End Sub