VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/03 13:52:20
VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值
Private Sub Form_click()
Dim n(1 To 20) As Integer
Dim i,j,ave,temp
Randomize
For i = 1 To 20
n(i) = Int((51 * Rnd) + 50)
Print n(i)
Next i
For j = 1 To 19
For i = j + 1 To 20
If n(i) >= n(j) Then
temp = n(i)
n(i) = n(j)
n(j) = temp
End If
Next
Next
ave = 0
For i = 1 To 20
ave = ave + n(i)
Next
ave = ave / 20
Print "最大值为:"; n(1)
Print "最小值为:"; n(20)
Print "平均值为:"; ave
End Su
Dim n(1 To 20) As Integer
Dim i,j,ave,temp
Randomize
For i = 1 To 20
n(i) = Int((51 * Rnd) + 50)
Print n(i)
Next i
For j = 1 To 19
For i = j + 1 To 20
If n(i) >= n(j) Then
temp = n(i)
n(i) = n(j)
n(j) = temp
End If
Next
Next
ave = 0
For i = 1 To 20
ave = ave + n(i)
Next
ave = ave / 20
Print "最大值为:"; n(1)
Print "最小值为:"; n(20)
Print "平均值为:"; ave
End Su
VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值
用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写
用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值.
利用随机函数产生50-100范围内的20个随机数,显示其中最大值,最小值和平均值
pascal 利用随机函数产生的20个50—100范围内的随机数,显示它们的最大值、最小值和平均值.
写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值
利用随机函数产生50-100范伟内的20个随机数,显示其中的最大值,最小值和平均值
利用随即函数产生50-100范围内的20个随即数,显示其中的最大值、最小值和平均值.
vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,
急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”,
利用随机函数产生50-100范围内的20个随机整数,显示其中的最大值、最小值、平均值
vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和