Private Sub Command1_Click()
Dim i%
For i = 1112 To 9999
If W(i) And W(i - 1111) Then Print i
Next
End Sub
Private Function W(i As Integer) As Boolean
W = False
If Sqr(i) = Int(Sqr(i)) Then W = True
End Function
'结果＝3136
最新问答： 写景的作文400字要好的 放热反应和吸热反应怎么区分? 写出f(x)=ax^2+bx+c(a大于0)的单调区间,并证明f(x)在每个单调区间上的单调性 学生的出勤率越高,老师讲课就会越卖力用英语怎么说 数学一道方程算式的简写 x乘﹙10-2x﹚×﹙6-2x﹚就是不要这么麻烦 例如：2x+1x =3x 燃料燃烧：把什么能转化为热能 碳酸锌能否反应生成氧化锌,碳酸钾能否分解成二氧化碳? 乌鸦喝水给人什么启示 （2012•邗江区一模）根据题目要求作图 阅读下面的文字，回答后面的问题。 【甲】燕地寒，花朝节后，余寒犹厉。冻风时作，作则飞砂走砾。局促一室之内，欲出不得。 100以内18的倍数最大的是 菩萨蛮 人人尽说江南好用了什么修辞手法 齐王韩信,楚王项羽,汉王刘邦到底谁最优秀? 有机化学里,不饱和酮或者二酮中,如何判断烯醇化的难易程度? 正比例函数y=x和y=mx（m＞0）的图象与反比例函数y= k x （k＞0）的图象分别交于第一象限内的A、C两点，过A 传送带中已知相对位移求热量? 蘑菇是真菌,请问真菌是分解者还是消费者? 为什么向量的积不满足结合律 选出下列各项中字形有误的一项（） 很希望,很希望你答应我英文怎么说?
