Access二级考试考试相关题-求1000 至 3000 的完全平方数

每年都有大批的学子需要考计算机二级考试。也有很大一部分选择access，而编程类的操作题会难到很多人。

这里给出一道完全平方数的解法。若一个数能表示成某个整数的平方的形式，则称这个数为完全平方数。

如1024=32*32 就是完全平方数，这里求1000 至 3000 的完全平方数，

第一步：先算出两数之间的最大（3000 ^ (1 / 2) + 1）和最小完全平方数 （ 1000 ^ (1 / 2) - 1）

第二步：循环这两个求得值，依次判断循环的数是否在1000-3000的区间

第三步：输出所有完全平方数即完全平方数个数

详细代码如下：

Sub Square()
 '求1000 至 3000 的完全平方数，如1024=32*32 就是完全平方数

     Dim i As Long
    Dim intMin As Long
    Dim intMax As Long
    Dim j As Long
    intMin = 1000 ^ (1 / 2) - 1
    intMax = 3000 ^ (1 / 2) + 1
    
    For i = intMin To intMax
       If i * i > 1000 And i * i < 3000 Then j = j + 1 sq = sq & i & "；" End If Next MsgBox "完全平方数：" & sq MsgBox "共有" & j & "个" End Sub

效果如图：