VB：用调用函数的方法找出所有三位数的水仙花数.

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/05/03 15:24:06

VB：用调用函数的方法找出所有三位数的水仙花数.
这是我写的代码：
Private Sub Command1_Click()
Dim a(101,999) As Integer
For a = 101 To 999 Step 1
If isnum = True Then Print a;
Next
End If
End Sub
Private Function isnum(n As Integer) As Boolean
a As Integer,b As Integer,c As Integer
a = n \ 100
b = n \ 10 Mod 10
c = n Mod 10
If n = a ^ 3 + b ^ 3 + c ^ 3 Then
isnum = True
Else
isnum = False
End If
End Function
运行时说我类型不匹配.
哪个类型啊?
帮我解决掉的加分.

Private Sub Command1_Click()
Dim a As Integer
For a = 101 To 999 Step 1
If isnum(a) = True Then Print a;
Next
End Sub
Private Function isnum(n As Integer) As Boolean
Dim a As Integer, b As Integer, c As Integer
a = n \ 100
b = (n - a * 100) \ 10
c = n - a * 100 - b * 10
If n = a ^ 3 + b ^ 3 + c ^ 3 Then
isnum = True
Else
isnum = False
End If
End Function

VB：用调用函数的方法找出所有三位数的水仙花数. 编写一个函数用于判断一个三位数是否为“水仙花数”,用主函数调用其实现所有三位数的判断.（水仙花数：编写一个函数用于判断一个三位数是否为“水仙花数”,用主函数调用其实现所有三位数的判断. Java 编程找出所有的水仙花数（水仙花数）. 功能：调用函数fun判断一个三位数是否"水仙花数". 写一函数,判断一个数是否水仙花数,用主函数调用该函数,在主函数中完成数的输入和判断该数是否三位数, 1．编写Application程序,找出所有水仙花数,水仙花数是三位数,它的各位数字的立方和等于这三个数本身, 编写一个计算机程序,找出100-999之间的所有"水仙花数",并打印运算结果.(所谓"水仙花数"是指一个三位数,其各位数程序设计题找出所有的“水仙花数”,所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数本身.例 VB编程.找出所有三位数的升序数,就是个位数字大于十位数,十位数大于百位数. 用VF编程:输出所有的"水仙花数"."水仙花数"是指一个三位数,其各位数字的立方和等于该数本身,如153 用java求1000之内所有的 “水仙花数 “,所谓 “水仙花数 “是指一个三位数,其各位数字立方和等于该数本身