利用随机函数产生20 个 50 ~ 100范围内的随机数,显示它们的最大值、最小值和平均值。 答案 答:Private Sub Command1_Click()Dim i%, t%, Max%, Min%, Avr!Form1.FontSize = 12Avr = 0Print "随机数为:";Randomizet = Int(Rnd() * 51 + 50)Print t;Avr = Avr + tMax = tMin = tFor ...
VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值 相关知识点: 试题来源: 解析Private Sub Form_click()Dim n(1 To 20) As IntegerDim i,j,ave,tempRandomizeFor i = 1 To 20n(i) = Int((51 * Rnd) + 50)Print n(i)Next...
利用随机函数产生20个50100范围内的随机数(包括50,100),显示它们的最大值、最小值和平均值。 保存工程和窗体,窗体文件名为:昵称-3-3.frm;工程名为:昵称-3-3.vbp。将工程文件和窗体文件压缩成:昵称-3-3.rar,以附件形式提交。暂无答案更多“利用随机函数产生20个50[图]100范围内的随机数(包括50...”相关...
ave = ave / 20 Print "最大值为："; n(1)Print "最小值为："; n(20)Print "平均值为："; ave End Sub