首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
2018-06-29
40
问题
在考生文件夹下有一个工程文件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 j Next i Label1=m/2’去掉相同的项 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过循环嵌套实现遍历60以内的整数,通过勾股定理表达式判断是否为勾股数整数组合,并通过变量的累加实现勾股定理整数组合个数的统计。
转载请注明原文地址:https://kaotiyun.com/show/edGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于控件数组的叙述中,错误的是()。
设在当前目录下有一个名为“file.txt”的文本文件,其中有若干行文本。编写如下程序:PrivateSubCommandl_Click()Dimch$.asciiAsIntegerOpen“file.t
如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是()。
在窗体上画一个名称为Commandl的命令按钮,并编写如下事件过程:PrivateSubCommandl_Click()x=ls=0Fori=lTo5x=
以下关于事件、事件驱动的叙述中,错误的是()。
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为()。
下面哪个属性肯定不是框架控件的属性
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签|b|First中;同时计算矩阵主对角线的元素之和,计算结果显
构成计算机软件的是
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
随机试题
Thedigitalrevolution,asexemplifiedbytheInternetandelectroniccommerce,hasshakenmarketingpracticestotheircore.In
26岁初产妇,妊娠39周胎儿经阴道娩出后,立即出现多量阴道流血,色鲜红,持续不断,本例最可能的病因诊断为
假性动脉瘤的超声表现,错误的是
心室肌前负荷增加时,将出现
下列关于债券筹资和普通股筹资的比较说法错误的是:()。
请根据所提供的资料,在报关单栏目的备选项中,选出最合适的答案。大连贝森电机制造有限公司(210224×××××)委托上海机械进出口公司(310591××××),凭2100-2008-WZ00017号自动进口许可证,进口生产内销产品所用成卷薄钢板一
在对流动性差的证券及问题证券进行估值时需要有主观判断,此时的主观判断如果由基金管理人来作出,便为滥估提供了机会。()
关于胫腓骨骨折的叙述,下列哪项是错误的
信息系统的建立包括诸多内容,首先应做好的工作是
Businessmemoisfrequentlyusedincompanies.Itiscalledanintra-companycommunicationbecauseitisusedbypeopleintheir
最新回复
(
0
)