VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数.输入一个整数判断其是否为水仙花数.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/10/02 23:57:50

VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数.输入一个整数判断其是否为水仙花数.
Private Sub Form_Load()
Dim x%,a%,b%,c%,y%
x = InputBox("请输入三位数","提示框")
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 "不是水仙花数"
End If
Else
Print "输入错误"
End If
End Sub
以上哪里错了?

Private Sub Form_Click()
Dim x As String
Dim a%,b%,c%,y%
x = InputBox("请输入三位数","提示框")
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 "不是水仙花数"
End If
Else
Print "输入错误"
End If
End Sub
两个问题：
1、在Form_Load里执行print是看不到的
2、将x定义为string类型方可

VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数.输入一个整数判断其是否为水仙花数. (1/2)VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数,如153=1^3+5... C语言编程输入一个三位正整数判断是否为”水仙花数”所谓水仙花是指一个三位数其各位数子立方和等于其本身 VF编程：输入一个三位数,判断其是否为水仙花为数（所谓水仙花数是指其各位数字的立方和等于该数本身） matlab循环语句一个三位整数各位数字的立方和等于该数本身则称该数为水仙花数.试输出全部的水仙花数.要求（1）用循环结 MATLAB 函数实现判别输入数是否为“水仙花数”,所谓“水仙花数”是指一个三位数,其各位数字立方之和等于该数本身. 编程求“水仙花数”.所谓水仙花数是指一个三位数,其各位数字立方和等于该数本身用VF编程:输出所有的"水仙花数"."水仙花数"是指一个三位数,其各位数字的立方和等于该数本身,如153 编程求出所有的水仙花数,并在窗体显示.所谓水仙花数,是指一个三位数,其各位数字的立方和等于该数本身编程求出所有的水仙花数,所谓水仙花数,是指一个三位数,其各位数字的立方和等于该数本身. 编程输出1000以内的所有水仙花数,所谓水仙花数是指一个3位数,其各位数字的立方和等于其本身写一个函数,判断一个整数是否为水仙花数.