用VB语言:输入一个3位数,使结果为各位数立方和
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/08 12:09:29
用VB语言:输入一个3位数,使结果为各位数立方和
例如123,结果是1的立方加2的立方加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
'在窗体上画一个按钮,一个文本框
'代码如下:
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语言程序设计 输入一个三位数,输出为各个位数上的数的立方和,求答