试用函数输出水仙花数

以下是使用VBScript函数输出水仙花数的代码：

Function IsNarcissisticNumber(num)
    Dim sum, digit
    sum = 0
    For i = 1 To Len(num)
        digit = CInt(Mid(num, i, 1))
        sum = sum + digit ^ 3
    Next
    If sum = CInt(num) Then
        IsNarcissisticNumber = True
    Else
        IsNarcissisticNumber = False
    End If
End Function

For i = 100 To 500
    If IsNarcissisticNumber(CStr(i)) Then
        WScript.Echo i
    End If
Next

该代码定义了一个名为`IsNarcissisticNumber`的函数，用于判断一个数是否为水仙花数。然后使用循环从100到500遍历每个数，如果是水仙花数则输出。