Private Sub Command1_Click()
Dim i, a, b As Integer
For i = 1000 To 9999
a = i 100
b = i - a * 100
If (a + b) ^ 2 = i Then Print i
Next
End Sub
答案是:
2025
3025
9801
Private Sub Command1_Click()
Dim i, a, b As Integer
For i = 1000 To 9999
a = i 100
b = i - a * 100
If (a + b) ^ 2 = i Then Print i
Next
End Sub
答案是:
2025
3025
9801
最新问答: 帮我写一篇三分钟的英语演讲稿,题目为why we work hard today?(work hard为学习) 1帕斯卡是否等于1牛顿/平方米? 英文翻译 该项运输船舶船龄超过25年,所以进行加费. 一个算术谜问题从1、2、3、4、5、6、7、8、9中任选四个数组成一个四位数除以其中一个数等于剩下的四个数所组成的四位数 夏天为了降低这个城市的温度 市政部门往往会派出许多洒水车沿街洒水 从而使行人感到凉爽 同时使得路 默默地 作文 X属于A和B的交集是X属于A和B 的并集的什么条件 诚求初中人教版语文所有课文的知识点锦集 化简 4(x+y+z)^2-(x-y-z)^2 关于微分方程y'=x/y+y/x,y|(x=1)=2,怎样验证答案y^2=2x^2(lnx+2)是正确的 一道简单的高一数列问题设等比数列{an}的前n项和为Sn,若S3+S6=2S9(1)求数列的公比q(2)求证:2S3 S 求在某科学的超电磁炮里上条当麻登场的集数,要每一次的 He was still ____ when I came in.A.sleeping B.sleepy C.aslee 霍尔片工作在哪个磁场的哪个范围灵敏度最高 如图,∠AOB=90°,OA 如图,∠AOB=90°,OA=25m,OB=5m,一机器人在点B处看见一个小球从点A出发沿 法语复合代词lequel等的用法 数学一题(其实很容易,就是我不会) 1、对于x≥1的一切有理数,不等式0.5(X-a)≥2都成立,求a的范围 《我读书,我收获》的作文忽忽 ,急需呐。可以是读书的读后感,感受。 初中化学反应中条件是高温的有哪些?
相关问答: 数字