参考答案

Max = a(1)
    Min = a(1)
    For i = 2 To 100
        If isnarc(a(i)) = True Then
          If a(i) > Max Then Max = a(i)
          If a(i) < Min Then Min = a(i)
        End If
    Next
    Text1.Text = Max
    Text2.Text = Min
End Sub
'以下Function 过程用于判断某数是否为水仙花数
Function isnarc(p As Integer)
  x = Fix(p / 100)
  y = Fix((p - x * 100) / 10)
  z = p - x * 100 - y * 10
  If p = x ^ 3 + y ^ 3 + z ^ 3 Then
      isnarc = True
  Else
      isnarc = False
  End If
End Function
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out3.dat" For Output As #1
    Print #1, Val(Text1.Text)
    Print #1, Val(Text2.Text)
    Close #1
End Sub