安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

2018-06-23 10:48:00
tmtony8
原创
1034

每年都有大批的学?#26377;?#35201;考计算机二级考试。也有很大一部分选择access,而编程类的操作题会?#35757;?#24456;多人。

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

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


第一步?#21512;?#31639;出两数之间的最大(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


效果如图:

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.15
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    十二生肖排行 c重庆时时彩走势图 银弹是什么 龙之战士投注 点石成金网 新疆福彩35选7开奖 ag金龙珠 分分彩走势图 百人推筒子源码 华东联销15选5走势图