急!急!急!马上就VB的上机考试了，请教大家2个题是考试...

精选知识

Private Sub CommandButton1_Click()

Dim s(1 To 10) As Integer

Dim i As Integer

'''''''''''''''第一题

For i = 1 To 10

s(i) = Rnd * 100

Next

For i = 1 To 10

Debug.Print s(i)

Next

jiaohuan s

For i = 1 To 10

Debug.Print s(i)

Next

'''''''''''''''第一题完

'''''''''''''''第二题

For i = 100 To 999

If shuixian(i) Then Debug.Print i

Next

'''''''''''''''第二题完

End Sub

Function shuixian(ByVal num As Integer) As Boolean

Dim i As Integer

Dim b, s, g As Integer

b = num \ 100

s = (num - b * 100) \ 10

g = num Mod 10

shuixian = False

If num = b * b * b + s * s * s + g * g * g Then shuixian = True

End Function

Sub jiaohuan(s() As Integer)

Dim i, l, u, j As Integer

l = LBound(s)

u = UBound(s)

For i = l To u / 2

j = s(i)

s(i) = s(u - i + 1)

s(u - i + 1) = j

Next

End Sub