首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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-04-08
446
问题
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计均在60以内的三个数满足上述关系的整数组合的个数,并显示在标签I_abel l中。
注意:不得修改原有程序的控件属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开本题工程文件。 步骤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 j Next i Labell=m/2′去掉相同的项 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】注意通过嵌套循环得出的m值,为所求m值的2倍,例如5^2=4^2+3^2,同时5^2=3^2+4^2,因此最后的值应为m/2。
解析
通过循环嵌套实现遍历60以内的整数,通过勾股定理表达式判断是否为勾股数整数组合,并通过变量的累加实现勾股定理整数组合个数的统计。
转载请注明原文地址:https://kaotiyun.com/show/jNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于( )。
设有如下事件过程:PrivateSubForm_Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
结构化程序所要求的基本结构不包括()。
下面关于文件叙述中错误的是( )。
(1)考生文件夹中有工程文件sjt3.vbp。窗体上有一个名称为Label1、标题为“标签控件”的标签;有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件,则在标签Label2中显示所单击控件的标题内容(标题内容前添加“
有两个关系R与S如下,由关系R和S得到关系T,则所使用的操作为
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()CD1.ShowOpenOpen
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommand1_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10
随机试题
跟进战略的特点
下列作品中,具有悲剧色彩的有()
足月新生儿,第一胎,男,生后第3天,母乳喂养,生后24小时出现黄疸,皮肤黄染逐渐加重,查:Hb110g/L,母血型O,子血型B。该患儿最有可能的诊断为
患儿男性,5岁,主诉近1年来右腰部间断胀痛,无血尿、尿频、尿急和尿痛,无排尿困难。查体:右上腹略饱满,双合诊右肾区可触及一软性包块,并随呼吸上下活动。该患儿最可能为以下哪一种疾病
胎产式是指
不同的征税主体(即不同国家)对不同纳税人的同一税源进行的重复征税,称为()。
是日也,________,惠风和畅。(王羲之《兰亭集序》)
LeoTolstoywasaRussianwriterandmoralphilosopher,andoneoftheworld’sgreatestnovelists.HewasbornonApril30,1828
Biologicaldiversity—orbiodiversity—isthetermgiventototalvarietyandcomplexityandinteractionsofalllifeonEarth.Th
Nowadays,somestudentshavedroppedoffschooltostarttheirownenterprises.Theyhavetheirownidol:BillGateswhohaslef
最新回复
(
0
)