Question

用VB语言：输入一个3位数，使结果为各位数立方和

用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

追问

没这么复杂吧，vb语言?

追答

是的呀，我写的比较多，你可以参考一下。

追问

可是我看不懂啊，能不能用基础的语言编写下

追答

字数太多了，百度发不下，你可以加我QQ问，如果没时间我就下载一下这个文档，链接如下：

http://pan.baidu.com/s/1kT5FLjT

Answer 2

给你一个写得简单的，参考一下吧：

Private Sub Command1_Click()
   Dim i&, k&, m&, n&
   n = Val(InputBox("请输入一个3位的整数：", "输入数据"))
   If (n < 100 Or n > 999) Then
      MsgBox "输入的数据不合法！要求在100到999之间。", 32, "错误"
      Exit Sub
   End If
   k = 0: m = n
   For i = 1 To 3
      k = k + (n Mod 10) ^ 3
      n = n \ 10
   Next
   MsgBox "输入的数值为：" & m & vbLf _
               & "各位数的立方和：" & k, 32, "计算结果"
End Sub

追问

不要坑我啊，再简单点好吗

追答

已经很简单了！

如果不进行数据合法性检查，可以这样写：

Private Sub Command1_Click()
   Dim k&, n&
   n = Val(InputBox("请输入一个3位的整数：", "输入数据"))
   k = (n \ 100) ^ 3 + (n \ 10 Mod 10) ^ 3 + (n Mod 10) ^ 3
   MsgBox "输入的数值为：" & n & vbLf _
               & "各位数的立方和：" & k, 32, "计算结果"
End Sub

追问

还是有点看不懂啊

追答

这个代码你还看不懂，你自己还是好好看看书吧。

追问

不是，你这个打上去说编辑错误

追答

那我倒是要请教你了，我贴出来的代码，有哪点错误？
汗……

追问

第一句之后就有问题了

追答

已经结贴了？　-_-!!!

如果说有什么错误，那只能说明是你输入错了！！！
“编辑错误”，就是你的输入问题（应该是“编译错误”吧！）
你直接复制代码，不就行了？？？