vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,

来源:学生作业帮助网 编辑:六六作业网 时间:2024/04/29 20:01:12
vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,vb利用随机函数产生50到100

vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,
vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,

vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,
Private Sub Command1_Click()
Dim i,max,min,s As Integer
max = 0
min = 100
s = 0
Dim a(30) As Integer
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Randomize Now
For i = 1 To 30
a(i) = Int((100 - 50 + 1) * Rnd + 50)
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
s = s + a(i)
Next i
Text1.Text = Text1.Text & max
Text2.Text = Text2.Text & min
Text3.Text = Text3.Text & s / 30
End Sub

vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值, vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果 急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和 写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 VB利用随机函数Rnd(),随机产生3个50至100的整数,按从小到大的顺序显示.求代码代码要简单一点的,我才大一. VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值 用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写 利用随机函数产生50-100范伟内的20个随机数,显示其中的最大值,最小值和平均值VB 的题, 用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值. 利用随机函数产生10个30~100之间的随机正整数,求最大值,最小值 平均值,并显示数组的值和结果用VB程序设计 利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言. vb 编程 如何利用随机函数产生15个10到90的奇数组成的数列,并显示在标签中?要程序 VB随机产生3位数的代码 Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 VB题 .利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出 VB利用随机函数产生30个[3,99]整数,打印输出其中的素数(要求用数组存放) vb利用随机函数产生50个1—6之间的整数,分别统计出1的个数,2的个数,3的个数,4的个数,5的个