求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并并将它们显示在窗体上提示:使用选择结构和循环结构

来源:学生作业帮助网 编辑:作业帮 时间:2024/12/01 10:03:23
求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并并将它们显示在窗体上提示:使用选择结构和循环结构
xRMKP+1Фf]Xg0&IK*3boJZi?jNq!.E{=sߍ5>H?dAbUa^ܗa.q+lrL5݌tIn\c߻B5YƦtťK7~sE+~x1qEK+jJq?g^,?cev@nwH}o!Y e)votWcT'3ѷ3phM}N&a$$RDbF2)ChH7@ +0Et(C ݔ@1 @d~Ne@G.#H 9  @{;3 \/7~I8(xB(#x'$糠?GL ]B, ۠PW⋫ٴf_\9^

求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并并将它们显示在窗体上提示:使用选择结构和循环结构
求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并
并将它们显示在窗体上
提示:使用选择结构和循环结构

求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并并将它们显示在窗体上提示:使用选择结构和循环结构
Private Sub Command1_Click()
Randomize
Dim a(1 To 10)
Dim max,min,ave
min = 50:max = 20
For i = 1 To 10
a(i) = Int(Rnd * 21 + 30)
Print a(i);
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
ave = ave + a(i)
Next i
ave = ave / 10
Print
Print " 最大值"," 最小值"," 平均值"
Print max,min,ave
End Sub

求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并并将它们显示在窗体上提示:使用选择结构和循环结构 VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均 VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且 用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码 急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 利用随机函数产生10个30~100之间的随机正整数,求最大值,最小值 平均值,并显示数组的值和结果用VB程序设计 编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果 VB随机产生3位数的代码 VB编程:单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中.单击command2,则弹出对话框,接受用户输入的任意一个数,并在一维数组中查找该数,若查找失败,则 用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计大于平均值的元素个数并把它们显示出来. vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出 随机产生100个元素的一维数组a和10X10的二维数组b,求a,b数组的最大值,最小值,均值,总和. VB随机产生10个10到100的整数,每行输出10个代码怎么写?必须是基数 Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数(使用数组 VB:随机产生 10 个整数,求其中最小的数.若随机产生n个整数又如何实现 VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数(使用数组急 求 亲们! 在VB中,随机产生10个两位数保存在数组中随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数