首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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-06-30
44
问题
在考生文件夹下有一个工程文件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:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 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’m为记录满足条件的个数 End If Next k Next 3 Next i Label1=m/2’去掉相同的项 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过循环嵌套实现遍历60以内的整数,通过勾股定理表达式判断是否为勾股数整数组合,并通过变量的累加实现勾股定理整数组合个数的统计。
转载请注明原文地址:https://kaotiyun.com/show/iQHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对下列二叉树进行前序遍历的结果为
如果把命令按钮的Cancel属性设置为True,则程序运行后( )。
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dimn()AsIntegerDima,bAsIntegera=Inpu
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger m=1:n=0 DoWhilem
确定图片框Picturel在窗体上位置的属性是()。
编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerx=10Printfun1(x,12)+xEndSubPrivateFunctionfun1(mAsI
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Commanl的命令按钮。Forml的代码如下:Form2的代码如下:Public
下列有关文件的叙述中,正确的是
一个教师可讲授多门课程,一门课程可由多个教师讲授。则实体教师和课程间的联系是( )。
随机试题
下面四个选项中正确的是()。
已知E(X)=μ,D(X)=2.5,由切比雪夫不等式估计P{|X-μ|≥5)≤________.
混合性血栓可见于
A.Murphy(莫菲征)阳性B.麦氏点压痛C.Courvoisier(库瓦济埃征)阳性D.Courvoisier(库瓦济埃征)阴性E.板状腹急性胆囊炎,可见
A.感染性休克B.神经性休克C.心源性休克D.损伤性休克E.失血性休克绞窄性肠梗阻,体温39.8℃,寒战,血压90/65mmHg,临床诊断为
电子报关单和纸质报关单具有同等的法律效力;电子报检方式比原来的纸质方式要快7~10天。()
下列关于抵质押率的说法中有误的一项是()。
下列对于软件测试的描述中正确的是()。
ParkandBurgess’smodelhascometobeknownasthe"concentric-zonemodel"(representedbythefigure).Becausethemodelwaso
Itisfrequentlyassumedthatthemechanizationofworkhasarevolutionaryeffectonthelivesofthepeoplewhooperatethene
最新回复
(
0
)