首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
435
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12一kNe
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10y=20Callfun1(x,y)Printx;yEnd
下列控件中,没有Caption属性的是( )。
有人在属性窗口中通过设置Picture属性为命令按钮装入了图片,但没有显示,其原因是
数据字典(DD)所定义的对象都包含于
程序运行时,拖动滚动条上的滚动框,则所触发的事件是
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是()。
随机试题
Thenewsaboutvitaminskeepsgettingworse.Manystudiespublishedinthelastfewyearsshowsthatavarietyofpopularsupple
简述休克时中心静脉压与补液的关系。
下列哪些符合漏出性胸腔积液的实验室检查结果
A.脉B.髓C.皮D.肉既为奇恒之府之一,又与血液的正常运行相关的是
某患者,近日少尿、恶心、呕吐,血清内生肌酐清除率为25ml/min,诊断应考虑
在预测范围内应布设适当的预测点,通过预测这些点所受的环境影响,由点及面反映该范围所受的环境影响。预测点的数量与布置,因()而不同。
与买空交易一样,在标的证券价格变化时,融券业务的维持担保比例也必须大于(),当维持担保比例小于该比例时,投资者就会接到证券公司的催缴通知,这时,投资者可以选择在信用账户中增加资金,也可以用标的证券或其他认可的证券来增加担保比例。
学习者根据一定的评价标准进行自我评价和自我监督来强化相应学习行为是属于()。
作为商品的移动电话,其价值的物质承担者是()。
Avarietyofillegalactscommittedbypeopleinthecourseoftheiremployment,fortheirownpersonalgain,arecollectivelyk
最新回复
(
0
)