首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件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
2016-03-22
52
问题
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计三个数均在60以内满足上述关系的整数组合的个数,并显示在标签Lbll中,运行时程序界面如图3.57所示。
注意:不得修改原有程序的控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
程序源码:
Public Sub save(1 As Contr01)
Open App.Path& “\out5.txt” :For_
Output As#1
Print#1, 1.Caption
Close #1
End Sub
选项
答案
步骤1:打开考生文件夹下的工程文件vbsj5.vbp,在码编辑窗口的指定位置输入代码: 参考代码: Private Sub Commandl Click() ===考生编写程序开始==== Dim i As Integer Dim 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 Labell End Sub 步骤2:按
键运行程序,单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/UMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要把一个命令按钮设置成无效,应设置属性______的值为False。
数据处理的最小单位是______。
文本框的ScrollBars属性设置为非零值,却没有效果,原因是()。
在VB中,过程共有三种,它们是()。
决定控件上文字的字体、字形、字号、效果的属性是()。
软件工程研究的内容主要包括:【】技术和软件工程管理。
在窗体上有一个命令按钮,然后编写如下事件过程。PrivateSubCommand1_Click()Dima(5)AsStringFORi=1To5a(i)=Chr(Asc("A")+(i-1))
要触发组合框的DblClick事件,只有将组合框的Style属性设置为
假定用下面的语句打开文件:Open“Filel.txt”forInputAs#1则不能正确读文件的语句是
随机试题
驾驶机动车在雨天起步前要使用刮水器。
A.单体酶B.寡聚酶C.结合酶D.多功能酶E.单纯酶(2002年第97题)由于基因融合,形成由一条多肽链组成却具有多种不同催化功能的酶是
在同一城市,对中央和地方的建设项目征地,按不同标准收取新菜地开发建设基金费用。()
下列不属于房地产开发企业的利润的是()。
【2011年第82题】高层建筑按9度抗震设计时,梁柱中心线之间的偏心距不应大于柱截面在该方向宽度的:
在制定培训规划时,工作说明的内容包括()
下列哪组词语全都与端午节有关?()
【《航海条例》】(NavigationActs)北京大学2001年欧美近现代史真题;北京师范大学2003年世界近现代史真题;北京师范大学2003年世界近现代史真题;华中师范大学2014年世界史基础真题
【2011广东商学院单选题第8题】广义资本市场,又称长期资金市场,包括两大部分()。
SpeakerA:Whyweren’tyouatschoolyesterday?SpeakerB:【D1】______SpeakerA:Whatwaswrongwithyou?SpeakerB:Mystomach
最新回复
(
0
)