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