1第1章如何用计算机解决问题课件9627.pptVIP

水仙花数自然语言描述 1、将N的初始值赋为100 2、如果N的个位数的三次方加上N的十位数的三次方再加上N的百位数的三次方等于N,输出N值,否则转入第3步 3、如果N=999,将N的值加1，转到第2步,否则转入第4步 4、输出运算结果，结束程序 水仙花数流程图描述 开始 N=N+1 结束 N Y N的个位数的三次方 +N的十位数的三次方+N的百 位数的三次方=N ? N=100 输出N值 N=999 Y N 用伪代码描述水仙花数算法 For N=100 to 999 if N的个位数的三次方+N的十位数的三次方+N的百位数的三次方=N then 输出n end if next1 Private Sub Command1_Click() Dim i As Integer For i = 100 To 999 If Int((i / 100)) ^ 3 + (Int((i / 10)) Mod 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print (i) End If Next End Sub 水仙花数源程序 1.3初始身手，体验编程 VB界面的初步了解 1.主窗口 应用程序窗口,由标题栏、菜单栏和工具栏组成 2.窗体(Form)窗口（编辑器） 设计VB程序的 界面 3.代码(Co