首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写
admin
2017-03-27
21
问题
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计三个数均在60以内满足上述关系的整数组合的个数,并显示在标签:Lbl1中,运行时程序界面如图3—146所示。
注意:不得修改原有程序的控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
程序源码:
Public Sub save(l As Control)
Open App.Path&"\out5.txt"For_Outlout As#1
Print#1,1.Caption
Close #1
End Sub
选项
答案
步骤1:打开考生文件夹下的工程文件vbsj5.vbp,在码编辑窗口的指定位置输入代码。 参考代码: Private Sub Command1_Click() ’===考生编写程序开始==== Dim i As Integer,j As Integer Dim n As Integer For i=1To59 For j=i To60 If Sqr(i*i+j*j)=Int(Sqr_ (i*i+j*j))And Sqr_ (i*i+j*j)<=60Then n=n+1 End If Next Next Lbl1.Caption=n ’===考生编写程序结束==== ’不要改动以下内容 save Label1 End Sub 步骤2:按<F5>键运行程序,单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
本题可通过一个嵌套的For循环,来统计满足题目要求的整数组合的个数。其中,外循环变量i的取值范闱为1~60,内循环变量j的取值范围为i~60(这样可避免出现重复的组合)。通过表达式:Sqr(i*i+j*j)=Int(Sqr(i*i+j*j))是否成立来判断Sqr(i*i+j*j)的值是否为整数,并通过表达式:Sqr(i*i+j*j)<=60是否成立来判断Sqr(i*i+j*j)的值是否在60以内,当两个条件同时满足时,此时的i、j及Sqr(i*i+j*j)即为满足题目要求的整数组合,记录组合个数的变量n加一。循环结束,将n值显示在标签Label1中。
转载请注明原文地址:https://kaotiyun.com/show/amGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对窗体编写如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton
要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drive1)中所选择的当前驱动器的不同而同时发生变化,则应:
关于结构化程序设计原则和方法的描述错误的是()。
属性窗口分为4个部分,这4个部分分别是______。
执行下面的程序段后,S的值为【】。s=5Fori=2.6To4.9Step0.6s=s+1Nexti
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度:1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTyPeAngKAsIntegerSinxAsSin
VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括______。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Forn=1T020IfnMod3
下列关于文件的叙述中,错误的是()。
随机试题
[2008年,第120题]价值工程的价值是()。
背景A公司参与远离所在地炼钢厂的机电安装工程总承包的投标,投标前做了如下工作:1.分析了招标文件工程范围,本工程含机械设备安装、电气及自动化系统安装、钢结构及非标准件制作安装、工业给水排水施工、防腐及保温工程、筑炉工程。并分析本公司施工技术力量
“包装物”的借方登记()。
现金在商业银行资产负债中属于()。
2017年8月,一家新开业的小型微利商业企业,为了拓展市场,从开业之日起至12月31日销售商品一律实行买一赠一活动,开业5个月销售商品共计取得不含税销售收入225万元,赠送商品的不含税市场价格为15万元,全部销售商品和赠送商品的成本为180万元,应扣除的税
在对债务重组进行账务处理时,债权人对债务重组的应收账款是否冲销其已计提的坏账准备,并不影响债务重组年度净损益的数额。 ( )
旅游安全事故主要包括()
已知数据表A中每个元素距其最终位置不远,为节省时间,应采用的算法是______。
Itwaslateintheafternoon,andIwasputtingthefinaltouchonapieceofwritingthatIwasfeelingprettygoodabout.Iwa
ImaginethatanIrishmarketingfirmisdoingresearchinyourcountry.Youhaveagreedtoparticipateinatelephoneinterview
最新回复
(
0
)