求设计一个VB程序，找出3-1000万之间的所有守形数。

呵呵，

估计只有这里题目会是“1000万”，因为这样就溢出了，并且老师上课是按1000演示的，我这里也是1000记录的。

老师笔记（是按1000来的）：

Private Sub Command1_Click()

Dim n, pingfang, diwei As Double

For k = 3 To 1000

pingfang = k ^ 2

If k <10 Then

diwei = pingfang Mod 10

ElseIf k <100 Then

diwei = pingfang Mod 100

ElseIf k <1000 Then

diwei = pingfang Mod 1000

End If

If diwei = k Then

Print k

End If

Next k

End Sub

刚试验过，可以保证运行.

我们来体会作业最后一句话哈，呵呵，怎么“参考”，大家都懂的......

o(╯□╰)o

挺好玩的。

这个游戏里面玩家可以自己做菜和招兵买马，也可以拜师学艺到最后成立宗门。

万剑诀，国产单机游戏仙剑奇侠传中的经典仙术之一。属于蜀山仙剑派剑法，使剑芒如雨直落，造成大规模伤害。出现于仙剑奇侠传、新仙剑奇侠传、仙剑奇侠传三外传·问情篇和仙剑奇侠传五中，历代习得者为李逍遥、南宫煌、姜云凡，在剧情上亦有司徒钟等人拥有此剑术。

Private Sub Command1_Click()

Dim m As Currency, n As Currency, i As Integer

For i = 1 To 30

m = m + 0.01 * (2 ^ (i - 1))

n = n + 100000

Next

MsgBox "陌生人给富翁的钱是" &n &"元" &vbCrLf &"富翁给陌生人的钱是" &m &"元"

End Sub

---