首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件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
49
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
假定窗体上有一个文本框,名为txt1,为了使该文本框的内容能够换行,并且具有垂直滚动条,没有水平滚动条正确的属性设置为
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsIntegerDimsumAsIntegerDimsu
改变驱动器列表框的Drive属性值将激活______事件。
关于结构化程序设计原则和方法的描述错误的是()。
数据结构分为逻辑结构和存储结构,循环队列属于【】结构。
从窗体form1生成到该窗体显示出来,最后发生的事件是______。
下列程序的功能是;将数据1,2,…,8写入顺序文件Num.txt中,请选择正确的程序段()。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOut
产生[10,27]之间的随机整数的VisualBasic表达式是
随机试题
A.肌梭的传入冲动增加,腱器官的传入冲动减少B.肌梭的传入冲动减少,腱器官的传入冲动增加C.肌梭的传入冲动增加,腱器官的传入冲动增加D.肌梭的传入冲动减少,腱器官的传入冲动不变E.肌梭的传入冲动不变,腱器官的传入冲动增加当骨骼肌作等长收缩时
关于生长曲线的叙述,哪项不正确
急性胰腺炎临床表现错误的是
应定期清选、整理、必要时消毒或灭菌的是由药师或大专以上药学学历的技术人员担任并要保持相对稳定的是
专职从事图书、期刊技术编辑工作的技术设计人员的主要职责有()等。
下列不属于牵连犯中牵连关系的表现形式的有()。
下列关于Windows2003系统下Web服务器配置的描述中,正确的是()。
Lookatthestatementsbelowandthearticleabouttheworkplacestressmanagementontheoppositepage.Whichsectionofth
Numeroushistoricalexamplesillustrateboththeoverridinginfluencethatscientists’(i)______haveontheirinterpretationof
A、Becausetheywanttobeimpressed.B、Becausetheycansharetheirperspectives.C、Becausetheywillbeintellectuallycurious.
最新回复
(
0
)