Question

VB高手请进!!小弟跪谢!!

随机产生20个50-108(包括50和108)的整数赋给一个一维数组,求其最大值,最小值和平均值,并显示整个数组的值和结果?

随机产生10个不重复的A-Z(包括A和Z)的大写字母,放在字符数组中,并求出最大的字符和最小的字符,要求将10个字符,最大和最小的字符输出在窗体上.

Answer 1

第一题
Dim a(1 To 20)
Private Sub Command1_Click()
Randomize
Max = 50
Min = 108
For i = 1 To 20
a(i) = Int(Rnd * 59 + 50)
Print a(i);
If i Mod 5 = 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 "max="; Max
Print "min="; Min
Print "avg="; Sum / 20
End Sub

Answer 2

这么点事儿还用跪着求人？
为什么不自己试试呢？

其实很简单的，用个随机函数、数组、循环 就行了。