当前位置:网站首页 > 创业 > 正文

用VB6.0找出所有的玫瑰花数

0 张子豪 张子豪 2025-10-15 03:57 1

若是一个四位数等于它的各数位上的数字的四次方和,则称玫瑰花数

方式/步调

  1. 1

    启动VB6.0,新建一个尺度exe工程。

  2. 2

    在窗体上绘制一个号令按钮,名称为Command1。

  3. 3

    双击号令按钮进入代码窗口。

  4. 4

    假设有一个名为mgh的函数过程进行挪用,从1000到9999一一查找。可以选择计数轮回For....Next语句。

  5. 5

    编写mgh函数过程,利用Do....loop While 进行各个位数分化判定,若是相等返回TRUE,不然返回FALSE。

  6. 6

    按F5运行测试。

注重事项

  • iif的函数是IF...End If 的简化版,第一参数是前提,当作立走第二参数,不然第三参数。
  • 函数过程可以先界说再编写代码,也可今后界说,但必需在运行前完当作。
  • 函数过程的形参若是有界说,实参也应该界说,不然会犯错。

来源:百闻(微信/QQ号:9397569),转载请保留出处和链接!


本文链接:https://www.ibaiwen.com/web/283848.html

张子豪

张子豪

TA很懒,啥都没写...

@百闻娱乐 本站部分内容转自互联网,若有侵权等问题请及时与本站联系,我们将在第一时间删除处理。 | 粤ICP备2024343649号 | (地图