vb.net生成随机数，并且统计生成的个数

最新推荐文章于 2022-12-05 22:38:38 发布

CHEN_DO_IT

最新推荐文章于 2022-12-05 22:38:38 发布

阅读量2k

点赞数

分类专栏： ——VB.Net编程——

本文链接：https://blog.csdn.net/jasonkao001/article/details/8938981

版权

这篇博客展示了如何在VB.NET中生成100个随机数并统计每个不同数值出现的次数。通过`Randomize()`函数初始化随机数种子，然后在`rannum`子程序中生成1到10的随机数，存储在数组`a`中。接着在`howmany`函数中遍历数组，计算每个值的出现频率。最后，当用户点击按钮时，将结果输出到文本框中。

摘要由CSDN通过智能技术生成

Public Class Form1
    Dim n As Integer = 100
    Dim a(n) As String
    Dim count As Integer = 0
    '****************************************
    '生成随机数
    '****************************************
    Private Sub rannum()
        Dim i As Integer
        For i = 0 To n - 1
            a(i) = Int(Rnd() * 10) + 1
        Next
    End Sub
    '****************************************
    '统计各随机数的个数
    '****************************************
    Private Function howmany(ByVal value As Integer) As Integer
        count = 0
        Dim i As Integer
        howmany = 0
        For i = 0 To n - 1
            If a(i) = value Then
                count = count + 1
            End If
        Next
        Return count