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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 06:27:04
在VB中,随机产生10个两位数保存在数组中随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数

在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 

在VB中,随机产生10个两位数保存在数组中随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数 VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且 编写程序,将利用随机函数产生的10个不大于100的整数保存在数组中,并从中找出最接近平均值的元素.比如此编写程序,将利用随机函数产生的10个不大于100的整数保存在数组中,并从中找出最接 vb编程:随机产生10个0~100之间整数放到一个数组中,单击窗体,在窗体上显示这10个数以及10个数中的最小值 VB随机产生10个1~100的整数放入数组中并将各元素的值显示在窗体上,求出最小值并显示. 在线等!VB随机给数!VB生成三个不相同的0到9随机数!然后保存在一个数组中!三个数字要不相同 编写程序利用随机函数产生10个两位数存入数组a中,并按照从大到小顺序排列输出 (1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行(矩阵形式)输出到窗体,最大元素及行、列下标输出在数组的下方.( 用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计大于平均值的元素个数并把它们显示出来. 在VB中单击菜单产生随机产生10个大写字母 VB随机函数 产生2个两位数的随机正整数 放在数据1和数据2两个文本框中 代码应该怎么打? 在VB里怎样产生N个随机两位数啊,N根据TEXT里自己输入的值变化. Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 VB编程:单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中.单击command2,则弹出对话框,接受用户输入的任意一个数,并在一维数组中查找该数,若查找失败,则 急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 利用随机函数产生10个30~100之间的随机正整数,求最大值,最小值 平均值,并显示数组的值和结果用VB程序设计 vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出 VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值