用VB语言:输入一个3位数,使结果为各位数立方和例如123,结果是1的立方加2的立方加3的立方.
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 04:35:02
![用VB语言:输入一个3位数,使结果为各位数立方和例如123,结果是1的立方加2的立方加3的立方.](/uploads/image/z/8555750-62-0.jpg?t=%E7%94%A8VB%E8%AF%AD%E8%A8%80%EF%BC%9A%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA3%E4%BD%8D%E6%95%B0%2C%E4%BD%BF%E7%BB%93%E6%9E%9C%E4%B8%BA%E5%90%84%E4%BD%8D%E6%95%B0%E7%AB%8B%E6%96%B9%E5%92%8C%E4%BE%8B%E5%A6%82123%2C%E7%BB%93%E6%9E%9C%E6%98%AF1%E7%9A%84%E7%AB%8B%E6%96%B9%E5%8A%A02%E7%9A%84%E7%AB%8B%E6%96%B9%E5%8A%A03%E7%9A%84%E7%AB%8B%E6%96%B9.)
用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