利用随机函数产生50-100范围内的20个随机整数,显示其中的最大值、最小值、平均值

希望你们帮帮忙
要求变量名;最大值max最小值min平均值avg;变量声明;在commandl-Click()事件中编写

Max = 49。

min = 101 。

for i= 1 to 20。

x = int (rnd* 50)+50 。

if x > max then max = x。

if x< min then min = x。

s = s+x。

next、i、最大值为 49、 最小值为 101、 还有x = int (rnd* 50)+50。


扩展资料:

函数随机整数的方法:

大多数的数值都是十进制的(基数为 10)。但有时用十六进制数(基数为 16)或八进制数(基数为 8)更方便。visual basic 用前缀 &h 表示十六进制数,而用 &o 表示八进制数。下表说明同一个数的十进制、八进制和十六进制表示。

十进制 八进制 十六进制。

9、&o11、&h9、15、&o17、&hf、16、&o20、&h10、0、&o24、&h14、255、&o377、&hff。

通常不必掌握十六进制或八进制数制,因为计算机可以用任何数制的数工作。但是,对某些任务来说,有的数系就比其它数系更合适,例如利用十六进制数设置屏幕和控件的颜色。

visual basic 的命名约定。

在编写 visual basic 代码时,要声明和命名许多元素(sub 和 function 过程、变量、常数等等)。在 visual basic 代码中声明的过程、变量和常数的名字,必须遵循这些规则:

它们必须以字母开头。

它们不可以包含嵌入的句号或者类型声明字符(规定数据类型的特殊字符)。

它们不能超过 255 个字符。控件、窗体、类和模块的名字不能超过 40 个字符。

它们不能和受到限制的关键字同名。

受到限制的关键字是 visual basic 使用的词,是语言的组成部分。其中包括预定义语句(比如 if 和 loop)、函数(比如 len 和 abs)和操作符(比如 or 和 mod)。

窗体和控件可以和受到限制的关键字同名。例如,可以将某个控件命名为 loop。但在代码中不能用通常的方法引用该控件,因为 visual basic 会认为 loop 意味着关键字。例如,这样的代码就会出错。

loop.visible = true’ 出错。

为了引用那些和受到限制的关键字同名的窗体或控件,就必须限定它们,或者将其用方括号 [ ] 括起来。例如,下面的代码就不会出错。

myform.loop.visible = true ‘用窗体名’将其限定。

[loop].visible = true ‘方括号 ’起了作用。

在引用窗体和控件时都可以用这种方式使用方括号,但在声明变量或定义过程期间,当变量名或过程名与受到限制的关键字相同时,这种方式是不能使用的。方括号还可以用来强制 visual basic 接受其它类型库提供的名称,这些名称与受到限制的关键字冲突。

注意 因为键入方括号也是令人厌倦的事情,所以希望少用受到限制的关键字作窗体或控件名。但是,如果 visual basic 的新版本定义了与现有窗体或控件冲突的新关键字,那么,在为使用新版本而更新代码时,可以使用这个技巧。

温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2016-12-02
Private Sub Command1_Click()
Dim a%(1 To 20), max%, min%
max = 50
min = 100
Randomize
Cls

For i = 1 To 20
a(i) = Int(Rnd * 51 + 50) '产生20个50到100的随机数
Print Tab(5 * ((i - 1) Mod 10) + 1); a(i); '加tab是为了使打印出来的数对齐
If i Mod 10 = 0 Then Print
If a(i) >= max Then max = a(i)
If a(i) <= min Then min = a(i)
Sum = Sum + a(i)
Next i
Print "最小值是:" & min
Print "最大值是:" & max
Print "平均值是:" & Sum / 20
End Sub本回答被提问者采纳
第2个回答  2010-07-04
用以下公式产生50到100的随机数
在A1输入:
=int(50+rand()*50)
下填充到A20
最大值:=MAX(A1:A20)
最小值:=MIN(A1:A20)
平均值:=AVERAGEA(A1:A20)