VB編程,如果一個(gè)三位整數(shù)等于其各位數(shù)字的立方和,則稱這個(gè)數(shù)為水仙花數(shù).輸入一個(gè)整數(shù)判斷其是否為水仙花數(shù).
Private Sub Form_Load()
Dim x%,a%,b%,c%,y%
x = InputBox("請(qǐng)輸入三位數(shù)","提示框")
If Len(x) = 3 Then
a = Val(Mid(x,1,1))
b = Val(Mid(x,2,1))
c = Val(Mid(x,3,1))
y = Val(x)
If a ^ 3 + b ^ 3 + c ^ 3 = y Then
Print "是水仙花水"
Else
Print "不是水仙花數(shù)"
End If
Else
Print "輸入錯(cuò)誤"
End If
End Sub
以上哪里錯(cuò)了?