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
以上哪里错了?
人气:444 ℃ 时间:2019-08-20 12:21:44
解答
Private Sub Form_Click()Dim x As StringDim a%,b%,c%,y%x = InputBox("请输入三位数","提示框")If Len(x) = 3 Thena = 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...
推荐
- (1/2)VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数,如153=1^3+5...
- C语言编程输入一个三位正整数判断是否为”水仙花数”所谓水仙花是指一个三位数其各位数子立方和等于其本身
- 编写vb:“水仙花数”是指一个3位数,其各位数的立方和等于该数,如153=1^3+5^3+3^3.编写程序,打印出
- 编程求“水仙花数”.所谓水仙花数是指一个三位数,其各位数字立方和等于该数本身
- 编程输出1000以内的所有水仙花数,所谓水仙花数是指一个3位数,其各位数字的立方和等于其本身
- question:今年春节××和父母去长江三峡游玩,回来时坐江轮顺流而下直到上海,在途中有一个问题让他百思不得其解:每到一个地方,轮船在码头靠岸处都要来个180度转弯,再逆流停到岸边,而不是直接停下,最后他请教船员,终于搞清楚了奥秘,你知道
- (作文)瞬间也精彩
- 高分子材料是研究什么的
猜你喜欢