用VB语言：输入一个3位数,使结果为各位数立方和例如123,结果是1的立方加2的立方加3的立方.

Question

用VB语言：输入一个3位数,使结果为各位数立方和
例如123,结果是1的立方加2的立方加3的立方.

Answer 1

'楼主您好!
'在窗体上画一个按钮,一个文本框
'代码如下：
Option Explicit
Dim intNumber1 As Long, intNumber2 As Long, intNumber3 As Long

Private Sub Command1_Click()
    If IsNumeric(Text1.Text) = False Then
        MsgBox "错误,请输入一个数值!", 16 + vbOKCancel + vbDefaultButton1, "错误报告"
        Exit Sub
    ElseIf Len(Text1.Text) > 3 Then
        MsgBox "错误,请输入一个三位数!", 16 + vbOKCancel + vbDefaultButton1, "错误报告"
        Exit Sub
    Else
        intNumber1 = Val(Mid(Text1.Text, 1, 1))
        intNumber2 = Val(Mid(Text1.Text, 2, 1))
        intNumber3 = Val(Mid(Text1.Text, 3, 1))
        MsgBox "百位数为：" & intNumber1 & ",百位数的立方为：" & intNumber1 ^ 3 & vbCrLf & _
               "十位数为：" & intNumber2 & ",十位数的立方为：" & intNumber2 ^ 3 & vbCrLf & _
               "个位个数为：" & intNumber3 & ",个位个数的立方为：" & intNumber3 ^ 3 & vbCrLf & _
               "三个数的立方和为：" & intNumber1 ^ 3 + intNumber2 ^ 3 + intNumber3 ^ 3 _
               , 64 + vbOKCancel + vbDefaultButton1, "计算结果"
    End If
End Sub
Private Sub Form_Load()
    Text1.Text = ""
End Sub