首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
69
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
使用()方法,可清除列表框中所有的列表项。
设有如下事件过程:PrivateSubCommand1_Click() Dima a=Array(12,3,8,5,10,3,5,9,2,4) Fork=1To9 Printfun(a(k-1),a(
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNe
设窗体上有一个名称为Check1的复选框,并有下面程序代码:PrivateSubChecki_MouseDown(ButtonAsInteger,XAsSingle,YAsSingle)Check1.Value=1
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为
一棵二叉树的前序遍历结果是ABCEDF,中序遍历结果是CBAEDF,则其后序遍历的结果是()。
算法的时间复杂度是指()。
随机试题
下述哪项不是高钾血症的原因
当高、低压压力差等于或大于()时,应采用双级压缩。
按肠梗阻发生的基本原因分类:______(最常见);______(包括麻痹性肠梗阻和痉挛性肠梗阻);______。
革兰氏阳性菌细胞壁特有的组分是
某中年女性,体重超标,诊断患有胆囊疾病。胆囊的作用是存储肝脏分泌的胆汁。由于胆汁存在肝肠循环而含有多种形式的胆汁酸,下列属于初级结合胆汁酸的是
新建建筑的基础深于相邻旧建筑的基础的高差为H,它们之间的距离为L,那么L应大于或等于()H。
创汇农产品
根据CNNIC《第36次中国互联网络发展状况统计报告》数据,截至2015年6月,我国使用手机上网玩游戏的用户规模达到2.67亿,较去年底增长了1876万,占整体手机网民的45%。相比PC游戏,手机游戏的使用时间碎片化、上手门槛低
2012年1—6月份,东部地区商品房每平方米售价比西部地区高()
Forgetfit,tannedandsporty—thenewgenerationofAustraliansisfastbecomingfat,paleandlazy.Aloveofjunkfood,tele
最新回复
(
0
)