VB：水仙花数问题

半月斩

于 2023-09-01 15:03:45 发布

阅读量515

点赞数

分类专栏： VB 文章标签：开发语言

本文链接：https://blog.csdn.net/wanglongjiayou/article/details/132624415

版权

VB 专栏收录该内容

19 篇文章 0 订阅

订阅专栏

这篇文章详细介绍了如何使用VisualBasic(VB)编程语言解决水仙花数问题，通过For循环和Fix函数计算三位数中每个数位立方和等于该数本身的数，输出满足条件的水仙花数。

摘要由CSDN通过智能技术生成

VB：水仙花数问题

Private Sub Command1_Click()
    Rem 水仙花数问题
    Dim x%, a%, b%, c%, z%
    'n = 0
    For x = 100 To 999
        a = Fix(x / 100) 'Fix函数是去尾的作用，只保留整数部分，当然也可以直接用整除(\)
        b = Fix((x - a * 100) / 10)
        c = x Mod 10
        z = a ^ 3 + b ^ 3 + c ^ 3
        If z = x Then
            Print Tab((n Mod 10) * 5 + 2); x; '要让它们这些数字每10个在一整行，缺了后边这个;是不行的，这个;的作用就是让后边的数据挨着输出。
            n = n + 1
        End If
    Next x
End Sub