作业帮 > 综合 > 作业

VB中怎么统计随机十组随机数数组后第一位出现最多的某个数字   

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/14 18:54:06
VB中怎么统计随机十组随机数数组后第一位出现最多的某个数字   
 
 
 
比如这十组数据 第一位出现最多的是 01 怎么统计
Private Sub Command1_Click()Dim a(10, 6) As String * 2, b(30) As IntegerDim max As Integer, maxi As Integer, maxj As IntegerRandomizeFor i = 1 To 6  Print "第" & i & "位  ";Next iPrintFor i = 1 To 10  For j = 1 To 6    a(i, j) = Format(Int(30 * Rnd() + 1), "00")    Print "  "; a(i, j); "   ";  Next j  PrintNext iFor i = 1 To 6  For j = 1 To 30    b(j) = 0  Next j  For j = 1 To 10    t = Val(a(j, i))    b(t) = b(t) + 1  Next j  For j = 1 To 30    If b(j) > max Then      max = b(j): maxi = i: maxj = j    End If  Next jNext iPrintPrint max, maxi, maxjPrint "第"; maxi; "位的 "; Format(maxj, "00"); " 出现最多."    End Sub
Private Sub Command2_Click()ClsEnd Sub