VB中怎么统计随机十组随机数数组后第一位出现最多的某个数字 比如这十组数据 第一位出现最多的是 01 怎么统计
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/18 20:02:46
VB中怎么统计随机十组随机数数组后第一位出现最多的某个数字 比如这十组数据 第一位出现最多的是 01 怎么统计
VB中怎么统计随机十组随机数数组后第一位出现最多的某个数字
比如这十组数据 第一位出现最多的是 01 怎么统计
VB中怎么统计随机十组随机数数组后第一位出现最多的某个数字 比如这十组数据 第一位出现最多的是 01 怎么统计
Private Sub Command1_Click()
Dim a(10, 6) As String * 2, b(30) As Integer
Dim max As Integer, maxi As Integer, maxj As Integer
Randomize
For i = 1 To 6
Print "第" & i & "位 ";
Next i
For i = 1 To 10
For j = 1 To 6
a(i, j) = Format(Int(30 * Rnd() + 1), "00")
Print " "; a(i, j); " ";
Next j
Next i
For 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 j
Next i
Print max, maxi, maxj
Print "第"; maxi; "位的 "; Format(maxj, "00"); " 出现最多."
End Sub
Private Sub Command2_Click()
Cls
End Sub
