如果一个四位数等于它的各数位上的数字的四次方和，则称玫瑰花数
工具/原料
1
联想2020
2
Win11
方法/步骤
1
首先，启动VB6.0并新建一个标准exe工程。
2
然后，在窗体上绘制一个命令按钮，名称为Command1。
3
此时，双击命令按钮进入代码窗口。
4
于是，假设有一个名为mgh的函数过程进行调用，从1000到9999逐一查找。可以选择计数循环For....Next语句。
5
这时候，编写mgh函数过程，使用Do....loop While 进行各个位数分解判断，如果相等返回TRUE，否则返回FALSE。
6
按F5运行测试。
注意事项
1
iif的函数是IF...End If 的简化版，第一参数是条件，成立走第二参数，否则第三参数。
2
函数过程可以先定义再编写代码，也可以后定义，但必须在运行前完成。
3
函数过程的形参如果有定义，实参也应该定义，否则会出错。
上一篇：怎么让屏幕开满玫瑰花
下一篇：PS可选颜色制作不同颜色的玫瑰花