栏目分类:
子分类:
返回
终身学习网用户登录
快速导航关闭
当前搜索
当前分类
子分类
实用工具
热门搜索
终身学习网 > IT > 面试经验 > 笔试题库

[填空题] 本程序的功能是找出10到60之间所有不可以表示成两个平方数之和的数,请完善本程序Option ExplicitPrivate Sub CmdFind

笔试题库 更新时间:发布时间: 百科书网 趣学号

[填空题] 本程序的功能是找出10到60之间所有不可以表示成两个平方数之和的数,请完善本程序Option ExplicitPrivate Sub CmdFind_Click()Dim i As Integer,j As Integer,k As IntegerDim p As Integer,q As IntegerFor i=10 To 60For j=1 To Int(Sqr(i))()q=i-PIf q<>0 And judge(q) Then Exit ForNext jIf () Thenk=k+1Text1.Text=Text1.Text & i & " "If k Mod 5=0 Then Text1.Text=Text1.Text & vbCrlfEnd IfNext iEndSubPublic Function judge(ByVal x As Integer)As BooleanIf () Thenjudge=TrueElsejudge=FalseEnd IfEnd Function

正确答案:

p=j*j;j=int(sqr(i))+1 或j>int(sqr(i));int(sqr(x))=sqr(x)

转载请注明:文章转载自 www.051e.com
本文地址:http://www.051e.com/it/586777.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

版权所有 ©2023-2025 051e.com

ICP备案号:京ICP备12030808号