若是一个四位数等于它的各数位上的数字的四次方和，则称玫瑰花数
方式/
1启动VB6.0，新建一个尺度exe工程 。
文章插图
2在窗体上绘制一个号令按钮，名称为Command1 。
文章插图
3双击号令按钮进入代码窗口 。
文章插图
4假设有一个名为mgh的函数过程进行挪用，从1000到9999一一查找 。 可以选择计数轮回For....Next语句 。
文章插图
5编写mgh函数过程，利用Do....loop While 进行各个位数分化判定，若是相等返回TRUE，不然返回FALSE 。
文章插图
6【用VB6.0找出所有的玫瑰花数】按F5运行测试 。
文章插图
注重事项iif的函数是IF... If 的简化版，第一参数是前提，当作立走第二参数，不然第三参数 。
函数过程可以先界说再编写代码，也可今后界说，但必需在运行前完当作 。
函数过程的形参若是有界说，实参也应该界说，不然会犯错 。
以上内容就是用VB6.0找出所有的玫瑰花数的内容啦，希望对你有所帮助哦！
推荐阅读
- 如何用PS做一个草地
- Word中如何绘图
- iOS 应用内更换App图标
- 2018最新微信零钱免费提现之招商信用卡
- iphone苹果耳机在电脑上不能正常使用的解决方法
- 微信怎么给表情排序
- QQ绑定招商信用卡领现金红包
- 招商信用卡 2018支付宝免费提现方法掌上生活
- 如何用QQ账号直接登录微信
- 常用计量相关英语单词以及缩写