编译程序 显示所以水仙花数的实验报告。

VB程序设计实验
一、实验目的
1． 了解Visual Basic系统对计算机软、硬件的要求。
2． 掌握启动与退出Visual Basic的方法。
3． 掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。
4． 掌握常用控件（文本框、标签、命令按钮）的应用。
二、实验内容
编一程序，显示出所有的水仙花数，所谓水仙花数，是指一个三位数，其各位数字立方和等于该数字本身，例如，153是水仙花数，因为153=1的三次方+5的三次方+3的三次方
提示：（1）利用三重循环，将三个数连成一个3位数进行判断。例如，将1～9连接成一个123456789的9为数
程序如下：
S=0
Fori=1 TO 9
S=S*10+i
NextI
三．水仙花数的程代码为：
Private Sub Form_Load()
Show
Dim i As Integer, j As Integer, m As Integer
For i = 1 To 9
For j = 0 To 9
For m = 0 To 9
If i ^ 3 + j ^ 3 + m ^ 3 = i * 100 + j * 10 + m Then
Print CStr(i * 100 + j * 10 + m)
End If
D