帮忙解决这个VB程序，要简单

来源：百度知道 编辑：UC知道 时间：2024/05/14 15:23:44
已知：窗体中有一个Label型控件Label1，用于显示计算结果。一个TextBox控件 Ta，用于输入一个3位整数，编写单击按钮Bt事件处理程序，判断这个数是否是水仙花数，并将计算结果赋值给Label1的控件的适当属性中。如果数据不是三位，则能够用简单对话框提示相应错误消息，并放弃处理。（所谓水仙花数是指一个3位数的立方和恰好等于该数本身。例如：153就是一个水仙花数，因为153=1³+3³+5³。）

以下是代码，如果需要窗体设计部分的内容，可以在线我

Private Sub Bt_Click()
Dim n As Integer, a As Integer, b As Integer, c As Integer

n = Val(Ta)
If n < 100 Or n > 999 Then MsgBox "输入的不是三位数！": Ta.SetFocus: Exit Sub
a = n \ 100
b = (n - a * 100) \ 10
c = n Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 = n Then
Label1.Caption = n & "是水仙花数：" & n & "=" & a & "^3+" & b & "^3+" & c & "^3"
Else
Label1.Caption = n & "不是水仙花数！"
End If

End Sub

Private Sub Form_Load()
Ta = ""
Label1.Caption = ""
Label1.AutoSize = True
End Sub