UC知道VB中定义数组、调用数组问题
来源：百度知道 编辑：UC知道 时间：2024/09/24 19:19:36
我想请你编个程序，要求如下：
1.定义一个数组，每个数组含6个元素
2.共含7个数组，如下：
04 07 11 15 16 17
02 03 07 11 19 32
07 09 14 20 23 30
03 08 11 14 25 29
02 06 07 14 18 31
01 11 20 31 32 33
03 16 22 25 26 33
3.计算每个数组中最大元素与最小元素的差，并显示出来
1.定义一个数组，每个数组含6个元素
2.共含7个数组，如下：
04 07 11 15 16 17
02 03 07 11 19 32
07 09 14 20 23 30
03 08 11 14 25 29
02 06 07 14 18 31
01 11 20 31 32 33
03 16 22 25 26 33
3.计算每个数组中最大元素与最小元素的差，并显示出来
Dim a As Variant
Dim maxnum, minnum As Integer
a = Array(4, 7, 11, 15, 16, 17)
maxnum = a(0)
minnum = a(0)
For i = 0 To UBound(a)
If maxnum < a(i) Then
maxnum = a(i)
End If
If a(i) < minnum Then
minnum = a(i)
End If
Next i
这是计算其中一组的代码
maxnum最大值
minnum最小值
dim a(1 to 7,1 to 6) as integer,b(1 to 7) as integer
for i=1 to 7
for k=1 to 5
for j=k+1 to 6
if abs(a(i,j)-a(i,k))>b(i) then b(i)=abs(a(i,j)-a(i,k))
next j
next k
print "第"&i&"组中最大元素与最小元素的差是："&b(i)
next j
你这是彩票数据吧，呵呵