UC知道VB作业 编程
来源：百度知道 编辑：UC知道 时间：2024/05/31 17:49:38
1、编写程序，显示所有的水仙花数。所谓水仙花数，是指一个三位数其各位数字立方和等于该数字本身。例如：153是水仙花数，因为：153=13+53+33。。
Private Sub Form_Click()
End Sub
2、求 的值。直接将结果输出到窗体上。
Private Sub Form_Click()
End Sub
3、编程计算1!+2!+…10！的值，并将结果输出到窗体上。
Private Sub Form_Click()
End Sub
Private Sub Form_Click()
End Sub
2、求 的值。直接将结果输出到窗体上。
Private Sub Form_Click()
End Sub
3、编程计算1!+2!+…10！的值，并将结果输出到窗体上。
Private Sub Form_Click()
End Sub
一
Private Sub form_Click()
Dim b, c, d, sxh As Integer
For i = 100 To 999
b = i \ 100
c = (i - b * 100) \ 10
d = i - b * 100 - c * 10
sxh = b ^ 3 + c ^ 3 + d ^ 3
If sxh = i Then
Print sxh;
End If
Next i
End Sub
二、不知道你要求的是什么的值！
三
Private Sub form_Click()
Dim n, s As Long
n = 1: s = 0
For i = 1 To 10
n = n * i
s = s + n
Next i
Print s
End Sub
1-100000000000000000000000000000000000000000000000000000000000000000000之间的水仙花数？