首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
54
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下面不能在信息框中输出“VisualBasic”的是()。
在文本框控件中,将Text的内容全部显示为用户所定义的字符的属性是()。
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3.111所示,编写适当的事件过程。程序运行后,如果单击“显示"按钮,则
下列循环中,可以正常结束的是( )。
有如下程序段:num=80+Rnd()*5SelectCasenumCaseIs>=85Print"优秀"CaseIs>=60Print"合
向文本框中输入字符时,下面能够被触发的事件是
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。下列说法错误的是()。
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:PublicXAsIntegerPrivateYAsInteger窗体文件的程序代码是:DimaAsIntegerPrivateSubForm_Load()
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
设一棵满二叉树共有15个结点,则在该满二叉树中的叶子结点数为()。
随机试题
1206年,蒙古部落领袖(),在斡难河源召开的贵族大会上被推举为蒙古大汗,尊称为成吉思汗。
散文名篇《长江三日》的作者是()
在《李将军列传》一文中,作者所采用的主要人物描写方法是( )
只要充分发挥人的主观能动性,什么人间奇迹都能创造出来。
引发气瘿的主要因素是
下列荷载作用中,属于可变荷载的有()。
某业主甲起诉某房地产开发公司乙位于T市N区的商品房质量不合格的纠纷,T市中级人民法院于2014年10月15日作出生效判决,要求乙在判决生效之日起10日内赔偿甲人民币3万元人民币,当事人当庭领取了判决书。那么,如果乙拒绝履行判决,甲应当最迟在()之前
某县发生地震,县里要编写地震志,如果你是信息采编员,你会怎么收集信息编写地震志?
在下列会议纪要特点的说法中,正确的是()。
A、Theirformercolleague.B、Theirformerneighbor.C、Theirformerteacher.D、Theirformerclient.B
最新回复
(
0
)