VB中怎么统计随机十组随机数数组后第一位出现最多的某个数字 比如这十组数据 第一位出现最多的是 01 怎么统计
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/18 22:28:56
![VB中怎么统计随机十组随机数数组后第一位出现最多的某个数字 比如这十组数据 第一位出现最多的是 01 怎么统计](/uploads/image/z/1799447-23-7.jpg?t=VB%E4%B8%AD%E6%80%8E%E4%B9%88%E7%BB%9F%E8%AE%A1%E9%9A%8F%E6%9C%BA%E5%8D%81%E7%BB%84%E9%9A%8F%E6%9C%BA%E6%95%B0%E6%95%B0%E7%BB%84%E5%90%8E%E7%AC%AC%E4%B8%80%E4%BD%8D%E5%87%BA%E7%8E%B0%E6%9C%80%E5%A4%9A%E7%9A%84%E6%9F%90%E4%B8%AA%E6%95%B0%E5%AD%97++++++%E6%AF%94%E5%A6%82%E8%BF%99%E5%8D%81%E7%BB%84%E6%95%B0%E6%8D%AE+%E7%AC%AC%E4%B8%80%E4%BD%8D%E5%87%BA%E7%8E%B0%E6%9C%80%E5%A4%9A%E7%9A%84%E6%98%AF+01+%E6%80%8E%E4%B9%88%E7%BB%9F%E8%AE%A1)
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