VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数.输入一个整数判断其是否为水仙花数.Private Sub Form_Load()Dim x%,a%,b%,c%,y%x = InputBox("请输入三位数","提示框")If Len(x) = 3 Th
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/22 09:35:36
VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数.输入一个整数判断其是否为水仙花数.Private Sub Form_Load()Dim x%,a%,b%,c%,y%x = InputBox("请输入三位数","提示框")If Len(x) = 3 Th
VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数.输入一个整数判断其是否为水仙花数.
Private Sub Form_Load()
Dim x%,a%,b%,c%,y%
x = InputBox("请输入三位数","提示框")
If Len(x) = 3 Then
a = Val(Mid(x,1,1))
b = Val(Mid(x,2,1))
c = Val(Mid(x,3,1))
y = Val(x)
If a ^ 3 + b ^ 3 + c ^ 3 = y Then
Print "是水仙花水"
Else
Print "不是水仙花数"
End If
Else
Print "输入错误"
End If
End Sub
以上哪里错了?
VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数.输入一个整数判断其是否为水仙花数.Private Sub Form_Load()Dim x%,a%,b%,c%,y%x = InputBox("请输入三位数","提示框")If Len(x) = 3 Th
Private Sub Form_Click()
Dim x As String
Dim a%,b%,c%,y%
x = InputBox("请输入三位数","提示框")
If Len(x) = 3 Then
a = Val(Mid(x,1,1))
b = Val(Mid(x,2,1))
c = Val(Mid(x,3,1))
y = Val(x)
If a ^ 3 + b ^ 3 + c ^ 3 = y Then
Print "是水仙花水"
Else
Print "不是水仙花数"
End If
Else
Print "输入错误"
End If
End Sub
两个问题：
1、在Form_Load里执行print是看不到的
2、将x定义为string类型方可
Private Sub Form_Click()
Dim x As String
Dim a%, b%, c%, y%
x = InputBox("请输入三位数", "提示框")
If Len(x) = 3 Then
a = Val(Mid(x, 1, 1))
b = Val(Mid(x, 2, 1))
c = Val(Mid(x, 3, 1...
全部展开
Private Sub Form_Click()
Dim x As String
Dim a%, b%, c%, y%
x = InputBox("请输入三位数", "提示框")
If Len(x) = 3 Then
a = Val(Mid(x, 1, 1))
b = Val(Mid(x, 2, 1))
c = Val(Mid(x, 3, 1))
y = Val(x)
If a ^ 3 + b ^ 3 + c ^ 3 = y Then
Print "是水仙花水"
Else
Print "不是水仙花数"
End If
Else
Print "输入错误"
End If
End Sub
两个问题：
1、在Form_Load里执行print是看不到的
2、将x定义为string类型方可
收起