用VB6编写一个函数，OK的话，绝对追加分数。

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

把下面的代码,复制到记事本中,另存为: Form1.frm,再打开这个文件

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.ListBox List1
Height = 2220
Left = 135
TabIndex = 1
Top = 600
Width = 1500
End
Begin VB.ComboBox Combo1
Height = 300
Left = 210
TabIndex = 0
Text = "Combo1"
Top = 150
Width = 1500
End
Begin VB.Menu mnuFind
Caption = "查找"
Vis