题目
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_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
以上哪里错了?
提问时间:2020-05-24
答案
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...
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1心酸的英语单词怎么写
- 2塑料捆扎带是日常用品.如图所示,先将捆扎带打个结,然后两手用力反方向一扯,它就会在打结处断开.关于这个现象的讨论,下列说法中正确的( ) A.用力一扯,打结处发生摩擦,温
- 3环境承载力,环境人口容量,人口合理容量有什么区别?
- 4求定积分 f上限1,下线0(3^x+根号x)dx
- 5夜深人静之时,面对挂在东墙上的藤野先生的照片,模仿作者口吻给藤野先生写一封信表露作者当时的心迹
- 6初三化学溶液溶解性口诀
- 7求苏教版,小学四年级的素数、和数、奇数、偶数的习题,越多越好,
- 814,下列能体现"换位思考,与人为善"的有()
- 9将2个a和2个b共四个字母填入4X4的16个小方格内
- 10数学证明题(三角形一边的平行线)回答好的有赏
热门考点
- 1库仑定律使用的条件为___与____.在____中也近似使用
- 2如图,在Rt△ABC中,∠C=90°,AC=6,BC=8,动点P从点A开始,沿边AC向点C以每秒1个……
- 3若方阵A、B满足A=E+B,且B^2=B.证明A可逆,并求A^-1
- 4欧姆定律适用范围(高中)
- 5某文具店出售一种电子辞典,每售出一台可获得利润15元,售出4/5后,为了尽快回收资金,每台降价3元出售,当全部售完后,共获利润864元.文具店共卖出这种电子辞典多少台?
- 6There is (a) watch on the desk.(对括号部分提问)
- 7填入正确的冠词
- 8To improve our education system is ______ we should do right now.
- 9梯形的计算公式
- 10水是怎么来的?天上下的雨水?