Question

26、求出1~1000之间的所有能被7整除的树，并计算和输出每5个的和。 30、编写一个类，其中包含一个排序的方

用VB，谢谢，30、编写一个类，其中包含一个排序的方法SORT（），当传入的是一串整数，就按照从小到大的顺序输出，如果传入的是一个字符串，就将字符串反序输出。

Answer 1

26. 代码如下
Dim i, j, k As Integer
Dim Value(5) As Integer
Dim Sum() As Integer
j = 0
ReDim Sum(0)
For i = 1 To 1000
If i Mod 7 = 0 Then
Value(j) = i
j = j + 1
End If
If j = 5 Then
k = UBound(Sum) + 1
ReDim Preserve Sum(k)
Sum(k) = Value(0) + Value(1) + Value(2) + Value(3) + Value(4)
j = 0
End If
Next

Answer 2

用什么语言