vb随机三位数判断是否为水仙花数

在Visual Basic (VB) 中，水仙花数是指一个三位数，其各位数字立方之和等于该数本身。例如，153是一个水仙花数，因为1^3 + 5^3 + 3^3 = 1 + 125 + 27 = 153。

为了编写一个VB函数来判断一个三位数是否为水仙花数，你可以按照以下步骤：

Function IsPythagoreanTriangle(num As Integer) As Boolean
    Dim digits(2) As Integer ' 创建一个数组来存储每一位数字
    digits(0) = num Mod 10 ' 取百位数字
    digits(1) = (num \ 10) Mod 10 ' 取十位数字
    digits(2) = num \ 100 ' 取个位数字

    ' 检查各个数字立方和是否等于原数
    If digits(0)^3 + digits(1)^3 + digits(2)^3 = num Then
        IsPythagoreanTriangle = True ' 返回True表示是水仙花数
    Else
        IsPythagoreanTriangle = False ' 否则返回False
    End If
End Function

你可以通过调用这个函数，并传入一个三位数来检查它是否是水仙花数。例如：

Dim num As Integer
num = InputBox("请输入一个三位数:")
If IsPythagoreanTriangle(num) Then
    MsgBox(num & " 是一个水仙花数.")
Else
    MsgBox(num & " 不是水仙花数.")
End If