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

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/05/12 02:32:42

用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
再问：没这么复杂吧，vb语言?
再答：是的呀，我写的比较多，你可以参考一下。
再问：可是我看不懂啊，能不能用基础的语言编写下
再答：字数太多了，百度发不下，你可以加我QQ问，如果没时间我就下载一下这个文档，链接如下： http://pan.baidu.com/s/1kT5FLjT

用VB语言：输入一个3位数,使结果为各位数立方和用C语言编写:输出所有水仙花数.所谓水仙花数是指一个3位数.其各位数字立方和等于该数本身. 用C语言编写程序,输入一个任意整数,求它的位数及各位数字之立方和.【使用while语句】 C语言编程输入一个三位正整数判断是否为”水仙花数”所谓水仙花是指一个三位数其各位数子立方和等于其本身 VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数.输入一个整数判断其是否为水仙花数. C语言打印出所有的“水仙花数”,所谓“水仙花数”是指一个3位数,其各位数字立方和等于该数本身. 编写vb：“水仙花数”是指一个3位数,其各位数的立方和等于该数,如153＝1^3＋5^3＋3^3.编写程序,打印出 C语言：从键盘读入一个整数Num,按从小到大的顺序依次输出所有满足条件的3位数：该数各位数字的立方和 (1/2)VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数,如153=1^3+5... 输入一个3位数,判断是否是“水仙花数”C语言题目! 写出编程和流程图. 输入一个整数,输出它的位数以及各位数之和.用C语言完成~我是新手, c语言程序设计输入一个三位数,输出为各个位数上的数的立方和,求答