【题目】一个具有10个元素的一维数组a，下标从1到10，每个数组元素的值是随机函数产生的（150,310）之间的随机整数。请用Visual Basic6.0语言编写一个程序求出最大值和最小值的积，并将结果显示在文本框控件Text1中
Dim i As Integer, a(1 To 10) As Integer
Dim Max As Integer, Min As Integer, s As Long
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 159) + 151
Next
Max = a(1): Min = a(1)
For i = 1 To 10
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Next
s = Max * Min
Text1.Text = s
运行程序后，Vb说“”实时错误‘6’：溢出”，为什么

s = CLng(Max * Min)也不行

两个Integer类型进行运算的结果仍然是Integer类型，如果结果超出Integer的范围就会溢出
你可以先把其中一个变量转换成Long型，再进行运算，如CLng(Max)*Min