VB小程序求助

要求：编写一个函数，判断一个数是否为水仙花数，将所有水仙花数显示在组合框中，将所有三位的素数显示在列表框中，整个程序通过右击鼠标显示弹出式菜单指令查找输出水仙花数和三位素数。

如果题目感觉说的不明白可以留下QQ
做好了就加分哈~！

'求出水仙花数，并添加到组合框中
Private Sub Command1_Click()
Dim a%, b%, c%, n%
For n = 100 To 999
a = n \ 100
b = (n Mod 100) \ 10
c = n Mod 10
If n = a ^ 3 + b ^ 3 + c ^ 3 Then
Combo1.AddItem Str(n)'此处添加到组合框中，注意类型是字符串型，所以要将数字转换成字符串后添加，下面列表框同样
End If
Next n
End Sub
'求素数的方法
Private Sub Command2_Click()

Dim n%, flag%, I%, k%
For n = 100 To 999
k = Int(Sqr(n))
flag = 0
For I = 2 To k
If n Mod I = 0 Then
flag = I
Exit For
End If
Next I
If flag = 0 Then
List1.AddItem Str(n)'将100至999之间的素数添加到列表框
End If
Next n
End Sub

补充，只要添加到这两个控件中，这些数据就能显示，至于通过快捷菜单输出，我不明白你的目的是什么，不过这里可以说一下制作快捷菜单的方法。
菜单-》工具-》菜单编辑器-》
设置菜单
将主菜单的“可见”设为不选择。