把U盘带上或许有用.docVIP

**（5）在窗体上输出所有的“水仙花数”，并按照一行5个的格式输出，最后计算出所有水仙花数之和。所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1*1*1＋5*5*5＋3*3*3。 Private Sub Form_Load() Show Dim n As Integer Dim i As Integer Dim g As Integer Dim s As Integer Dim b As Integer Dim sum As Integer n = 1 For i = 100 To 999 Step 1 g = i Mod 10 s = ((i Mod 100) - g) / 10 b = (i - 10 * s - g) / 100 If i = g ^ 3 + s ^ 3 + b ^ 3 Then If n = 6 Then Print n = 1 End If Print i; sum = sum + i n = n + 1 End If Next Print Print sum=; sum End Sub **（3）在TextBox任意