在VB中，随机产生10个两位数保存在数组中

Question

随机产生10个两位数保存在数组中，找出最大值，最小值，计算最大值与最小值的平均值，统计小于该平均数的个数

Answer 1

 

 

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 

追问

怎么编辑不出来结果呀

追答

在窗体上弄一个图片框，两个按钮，再把代码复制粘贴过去，这都不会？！

Answer 2

参考答案: 目琼琼兮情感。佩随香兮夜闻，肃肃兮愔愔。