vb水仙花数
Private Sub Command1_Click()
s = Val(InputBox("请输入一个三位整数"))
a = s Mod 10
b = s \ 10 Mod 10
c = s \ 100 Mod 10
If s = a ^ 3 + b ^ 3 + c ^ 3 Then
Print "是水仙花数"
Else
Print "不是水仙花数"
End If
End Sub
您的采纳就是对我最大的支持
标签：vb,水仙花
2023-01-14 11:58:59 编辑：leo 浏览量：553次
vb水仙花数
Private Sub Command1_Click()
s = Val(InputBox("请输入一个三位整数"))
a = s Mod 10
b = s \ 10 Mod 10
c = s \ 100 Mod 10
If s = a ^ 3 + b ^ 3 + c ^ 3 Then
Print "是水仙花数"
Else
Print "不是水仙花数"
End If
End Sub
您的采纳就是对我最大的支持
标签：vb,水仙花
