用VB语言：输入一个3位数,使结果为各位数立方和例如123,结果是1的立方加2的立方加3的立方.
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/22 19:13:13
用VB语言：输入一个3位数,使结果为各位数立方和例如123,结果是1的立方加2的立方加3的立方.
用VB语言：输入一个3位数,使结果为各位数立方和
例如123,结果是1的立方加2的立方加3的立方.
用VB语言：输入一个3位数,使结果为各位数立方和例如123,结果是1的立方加2的立方加3的立方.
'楼主您好!
'在窗体上画一个按钮,一个文本框
'代码如下：
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