【题目】一个具有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’:溢出”,为什么
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’:溢出”,为什么