26、求出1~1000之间的所有能被7整除的树,并计算和输出每5个的和。 30、编写一个类,其中包含一个排序的方
用VB,谢谢,30、编写一个类,其中包含一个排序的方法SORT(),当传入的是一串整数,就按照从小到大的顺序输出,如果传入的是一个字符串,就将字符串反序输出。...
用VB,谢谢,30、编写一个类,其中包含一个排序的方法SORT(),当传入的是一串整数,就按照从小到大的顺序输出,如果传入的是一个字符串,就将字符串反序输出。
展开
2个回答
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询