首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件vbsii5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编
在考生目录下有一个工程文件vbsii5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编
admin
2017-09-22
51
问题
在考生目录下有一个工程文件vbsii5.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(1 As Control)
Open App.Path & "\out5.txt" For
Output 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=1 To 5 9 For j=i To 60 If Sqr(i*i+j*j)=Int(Sqr _ (i*i+j*j))And Sqr _ (i*i+j*j)<=60 Then n=n+1 End If Next Next Lbll.Caption=n ’===考生编写程序结束==== ’不要改动以下内容 save Label1 End Sub 步骤2:按
键运行程序,单击“计算”按钮。 步骤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/ekGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在一个顺序存储的循环队列中,队头指针指向队头元素的______。
在窗体上画一个名称为Text1的文体框,然后画一个名称为HScrolll的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示。以下能实现上述操作的程序段是
各种运算符间的优先顺序从高到低是
在窗体上有一个命令按钮Command1,编写如下程序:PrivateSubCommand1_Click()Printpp1(3,7)EndSubPublicFunctionpp1(xAsSingle
编写如下事件过程:PrivateSubForm_keyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_Keypress(
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
有如下事件过程: SubABD(x%,y%,z%) z%=X%+y% EndSub PrivateSubCommand1_Click() a%=30:b%=40 CallABD(a%,b%,c%) Pr
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请选择正确的程序段是(),将程序补充完整。PrivateTypeAngKAsInteg
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Forml和Form2,启动窗体为Forml。在Forml上画一个命令按钮Commandl,程序运行后,要求当单击该命令按钮时,Forml窗体消失,显示窗体Form2,请在横线处将程序补充
随机试题
若f(—x)=f(x),在区间(0,+∞)内,f′(x)>0,f″(x)>0,则f(x)在区间(一∞,0)内()
It’sanannualback-to-schoolroutine.Onemorningyouwavegoodbye,andthat【21】eveningyou’reburningthemid-nightoilinsym
A、氯丙嗪B、丙咪嗪C、碳酸锂D、地西泮E、五氟利多抗焦虑药是
患者,男,54岁。尿少10年。查体:血压20/13.3kPa(150/100mmHg),尿蛋白(++),尿红细胞6—10个/HP,尿白细胞2~3个/HP,尿比重1.015,临床诊断为慢性肾小球肾炎,血BUN31mmol/L,Cr407μmol/L,
根据《证券法》规定,下列关于证券承销的说法,不正确的是()。
伍德罗.威尔逊在任时通过的反垄断的法令是()。
A、 B、 C、 D、 A
下列______ 设备可以隔离ARP广播帧。
在考生文件夹下打开文档WORD.DOCX,按照要求完成下列操作并以该文件名(WORD.DOCX)保存文档。某高校为了使学生更好地进行职场定位和职业准备、提高就业能力,该校学工处将于2013年4月29日(星期五)19:30—21:30在校国际会议中
ListentoSarahtalkingtoafriendaboutasportscentre.Whatistheproblemwiththedifferentthingsatthesportscentre?F
最新回复
(
0
)