用“for”语句编写程序“输入一个数ABCD,判断其是否符合(AB+CD)(AB+CD)=ABCD”
题目
用“for”语句编写程序“输入一个数ABCD,判断其是否符合(AB+CD)(AB+CD)=ABCD”
ABCD是据我理解应该是指从1000到9999这之间的数,即四位数.而AB应该是这四位数的前两位 CD同理
Private Sub Command1_Click()
Dim i As Integer
For i = 1000 To 9999
Next i
a = i 100
b = i - a * 100
If i = (a + b) * (a + b) Then
Print
Else
Print "没有符合条件的数"
End If
End Sub
不知道是哪里错了呢
答案
楼上的,你写的好像是C代码的思路,如果用VB的话应该注意取整.
下面是VB的代码
Private Sub Command1_Click()
Dim a As Integer,b(1) As Long,c As String
For a = 1000 To 9999 Step 1
b(0) = Int(a / 100)
b(1) = Int(a Mod 100)
If (b(0) + b(1)) * (b(0) + b(1)) = a Then
c = c & CStr(a) & " "
End If
Next a
If c = "" Then
MsgBox "没有满足要求的数.",vbOKOnly
Else
MsgBox "满足要求的数为:" & c & " .",vbOKOnly
End If
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 换底公式log(a) (b)=log(n)(b)/log(n)(a)的n可以为任何数吗?且n与a有很么关系?
- 一件工作,单独做,甲要12天完成,乙要15天完成,甲先做3天后,再由甲、乙合作,还要几天才能完成?
- We are____(please)to see you again.
- 有一节油罐车装了30m^3的石油,从中取出30ml的石油,称得其质量是27g.
- f(x,y)=y3-x2+6x-12y+5的极值如题
- 将1粒碘和高锰酸钾分别放入2ml水和汽油中振荡,有什么现象?
- 怎么样的首都(形容词)
- 代指星星的字、词有哪些?
- ambitious,aspiration区别
- 8分钟比0.25小时快多少分钟