在VB中,随机产生10个两位数保存在数组中随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 13:07:13
![在VB中,随机产生10个两位数保存在数组中随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数](/uploads/image/z/12586910-14-0.jpg?t=%E5%9C%A8VB%E4%B8%AD%2C%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F10%E4%B8%AA%E4%B8%A4%E4%BD%8D%E6%95%B0%E4%BF%9D%E5%AD%98%E5%9C%A8%E6%95%B0%E7%BB%84%E4%B8%AD%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F10%E4%B8%AA%E4%B8%A4%E4%BD%8D%E6%95%B0%E4%BF%9D%E5%AD%98%E5%9C%A8%E6%95%B0%E7%BB%84%E4%B8%AD%2C%E6%89%BE%E5%87%BA%E6%9C%80%E5%A4%A7%E5%80%BC%2C%E6%9C%80%E5%B0%8F%E5%80%BC%2C%E8%AE%A1%E7%AE%97%E6%9C%80%E5%A4%A7%E5%80%BC%E4%B8%8E%E6%9C%80%E5%B0%8F%E5%80%BC%E7%9A%84%E5%B9%B3%E5%9D%87%E5%80%BC%2C%E7%BB%9F%E8%AE%A1%E5%B0%8F%E4%BA%8E%E8%AF%A5%E5%B9%B3%E5%9D%87%E6%95%B0%E7%9A%84%E4%B8%AA%E6%95%B0)
在VB中,随机产生10个两位数保存在数组中随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数
在VB中,随机产生10个两位数保存在数组中
随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数
在VB中,随机产生10个两位数保存在数组中随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数
Dim a(1 To 10)
Private Sub Command1_Click()
Randomize
Picture1.Print "产生的随机数为:"
For i = 1 To 10
a(i) = Int(Rnd * 99 + 1)
Picture1.Print a(i);
Next i
Picture1.Print
End Sub
Private Sub Command2_Click()
Dim max, min, pv, count
max = a(1)
min = a(1)
pv = 0.1 * a(1)
For i = 2 To 10
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
pv = pv + 0.1 * a(i)
Next i
For j = 1 To 10
If a(j) < pv Then count = count + 1
Next j
Picture1.Print "最大数为:"; max
Picture1.Print "最小数为:"; min
Picture1.Print "平均数为:"; pv
Picture1.Print "小于平均数的个数:"; count
End Sub