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

来源：学生作业帮编辑：搜搜考试网作业帮分类：数学作业时间：2024/07/10 10:39:38

在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
再问：怎么编辑不出来结果呀
再答：在窗体上弄一个图片框，两个按钮，再把代码复制粘贴过去，这都不会？！

VB编程：单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中. 用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计 VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且 vb编程：随机产生10个0~100之间整数放到一个数组中,单击窗体,在窗体上显示这10个数以及10个数中的最小值编写程序利用随机函数产生10个两位数存入数组a中,并按照从大到小顺序排列输出（1）VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行 1.编写程序,随机生成30个10-99之间的整数保存到数组中,在输出此数组后,要求删除数组中的所有重复元素之后 VB中要求随机产生10个在［10,30］的不同整数怎么编写程序? 用VB在1-100中产生10个随机整数,按从小到大的顺序排列如题..求代码 vb随机产生10个两位数随机正整数,求其中素数之和（用过程实现判断一个数是否是素数） VB语言中,在固定的10个数中随机产生3个数,怎么编 VB程序设计简答题编写程序,利用随机函数产生100个0~99之间的整数,存放在数组中,然后在窗体上显示所有小于50的随