假定10000個(gè)數(shù)在全局變量的數(shù)組a里,
Sub sort()
For i = 1 To 9999
k = i
For j = i + 1 To 10000
If a(j) < a(k) Then k = j
Next j
t = a(i): a(i) = a(k): a(k) = t
Next i
調(diào)用sort過程就能對(duì)10000個(gè)數(shù)排序.
調(diào)用Mycount函數(shù)就能統(tǒng)計(jì)前5000個(gè)數(shù)中能被3整除的數(shù)的個(gè)數(shù)
Function mycount() As Integer
Dim x As Integer
x = 0
For i = 1 To 5000
If a(i) Mod 3 = 0 Then x = x + 1
Next
mycount = x
End Function