用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值.
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/21 05:27:49
用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值.
Dim a(1 To 20) As Integer
Private Sub Command1_Click()
Cls
Scale (0,0)-(100,100)
For u = 1 To 20
a(u) = Int(Rnd * 50) + 50
b = b + a(u)
Print a(u)
Next u
c = b / 20
For i = 1 To 19
For j = i + 1 To 20
If a(i) > a(j) Then temp = a(i):a(i) = a(j):a(j) = temp
Next j
Next i
CurrentX = 10:CurrentY = 20
Print "最大值为" & a(20) & " " & "最小值为" & a(1) & " " & "平均值为" & c
End Sub
我试过的 没问题 你看看,有疑问再联系我!
Private Sub Command1_Click()
Cls
Scale (0,0)-(100,100)
For u = 1 To 20
a(u) = Int(Rnd * 50) + 50
b = b + a(u)
Print a(u)
Next u
c = b / 20
For i = 1 To 19
For j = i + 1 To 20
If a(i) > a(j) Then temp = a(i):a(i) = a(j):a(j) = temp
Next j
Next i
CurrentX = 10:CurrentY = 20
Print "最大值为" & a(20) & " " & "最小值为" & a(1) & " " & "平均值为" & c
End Sub
我试过的 没问题 你看看,有疑问再联系我!
用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值.
利用随机函数产生50-100范围内的20个随机数,显示其中最大值,最小值和平均值
用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写
VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值
利用随机函数产生50-100范伟内的20个随机数,显示其中的最大值,最小值和平均值
pascal 利用随机函数产生的20个50—100范围内的随机数,显示它们的最大值、最小值和平均值.
利用随即函数产生50-100范围内的20个随即数,显示其中的最大值、最小值和平均值.
写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值
vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,
急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”,
利用随机函数产生50-100范围内的20个随机整数,显示其中的最大值、最小值、平均值
利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决