用VB6.0找出所有的玫瑰花数
若是一个四位数等于它的各数位上的数字的四次方和，则称玫瑰花数
方式/步调
- 1
启动VB6.0，新建一个尺度exe工程。
- 2
在窗体上绘制一个号令按钮，名称为Command1。
- 3
双击号令按钮进入代码窗口。
- 4
假设有一个名为mgh的函数过程进行挪用，从1000到9999一一查找。可以选择计数轮回For....Next语句。
- 5
编写mgh函数过程，利用Do....loop While 进行各个位数分化判定，若是相等返回TRUE，不然返回FALSE。
- 6
按F5运行测试。
注重事项
- iif的函数是IF...End If 的简化版，第一参数是前提，当作立走第二参数，不然第三参数。
- 函数过程可以先界说再编写代码，也可今后界说，但必需在运行前完当作。
- 函数过程的形参若是有界说，实参也应该界说，不然会犯错。
- 发表于 2018-03-10 00:00
- 阅读 ( 2559 )
- 分类：其他类型
admin
0 篇文章
作家榜 »
-
xiaonan123
189 文章
-
汤依妹儿
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
华志健
23 文章