Dim sum,max,minSub aaa(ByRef sum,ByRef max,ByRef min)min = 100 ' 给最小值先给一个比较大的值For i = 1 To 100s = Int(Rnd(1) * (67 - 0)) + 0 's为算出0-67之间的随机数sum = sum + sIf s > max Then max = sIf...