求VB程序代码，有加分，谢谢。

来源：百度知道 编辑：UC知道 时间：2024/06/05 20:06:58
编写一个函数，判断一个数是否为水仙花数，将所有水仙花数显示在组合框中，将所有三位的素数显示在列表框中，整个程序通过右击鼠标显示弹出式菜单指令查找输出水仙花数和三位素数。
有函数就行了，如果还能把窗体列出来，就更好了，谢谢。
OK的完成后，绝对加分。

Private Sub Form_Click()
Dim a, b, c As Integer 'a(个)b(十)c(百)

For a = 0 To 9
For b = 0 To 9
For c = 1 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then
MsgBox 100 * c + 10 * b + a
End If
Next c
Next b
Next a

End Sub

FORTRAN的"水仙花数"实现代码：

WRITE(*,30)

DO 10 K=100,999

IA=K/100

IB=MOD(K,100)/10

IC=MOD(K,10)

IF(K.NE.IA**3+IB**3+IC**3) GOTO 10

WRITE(*,20)K, IA,IB,IC

10 CONTINUE

20 FORMAT(5X,4I4)

30 FORMAT(5X,18HN=I**3+J**3+K**3)

STOP

END

真的太羡慕你了