首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)
admin
2020-07-22
56
问题
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计均在60以内的三个数满足上述关系的整数组合的个数,并显示在标签Label1中。
注意:不得修改原有程序的控件属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 窗体代码 Private Sub Command1_Click() ’===考生编写程序开始==== ’===考生编写程序结束==== ’不要改动以下内容 save Label1 End Sub 模块代码 Public Sub save(l As Control) Open App.Path & "\out5.txt" For Output As #1 Print #1, l.Caption Close #1 End Sub 程序结束 参考答案 Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 60 For j = 1 To 60 For k = 1 To 60 If i ^ 2 = j ^ 2 + k ^ 2 Then m = m + 1 End If Next k Next j Next i Label1 = m / 2 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/PXHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有三个关系R,S和T如下图所示:则由关系R和s得到关系T的运算是()。
窗体上有一个名称为Commandl的命令按钮,编写如下事件过程:PrivateSubCommandl_Click()i=0DoWhilei<6For
在软件生命周期中,能准确确定软件系统必须做什么和必须具备哪些功能的阶段是
下列说法中,错误的是
要使得文件列表框Filel中只显示文件扩展名为jpg的图片文件,则下列正确的语句是
下列打开“代码窗口”的操作中错误的是
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是
为了使窗体的大小可以改变,必须把它的BorderStyle属性设置为
在软件开发中,需求分析阶段产生的主要文档是
数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符构成。下面图符名标识的图符不属于数据流图合法图符的是
随机试题
关于一般抹灰的说法,正确的是()。
资产负债表详细地反映公司在某一个时间段(例如2006年)资产、负债和所有者权益的状况。()
税务机关对单价()元以下的其他生活用品,不采取税收保全措施。
非同一系统的任何机关相互行文都使用()。
()是应用高科技进行开发,依靠人工能源不受气象和季节的限制,可常年在工厂进行大规模生产的,资源可循环利用的微生物工业型的农业。
下列______不属于故障的主要类型。
有三个关系R、S和T如下图所示,其中关系T由关系R和S通过运算得到,则所使用的运算为
A.RewardsfollowingtheUSfinancialinjection.B.Mir’sfirstsinscientificexperimentsandspaceexploration.C.UndeniableMir
She______scarletfeverwhenshewasababyandlosthereyesight.
Holidaysarecelebratedforallsortsofreasons.Somehonorheroes,otherscommemoratereligiousevents,butApril1ststandso
最新回复
(
0
)