首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件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
23
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
软件的详细设计也称为模块设计,它要求设计人员为每一个程序模块确定:所使用的【】、数据结构、接口细节和输入/输出数据等。
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:OptionBase0PrivateSubCommand1_Click()DimcityAsVariant
要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drive1)中所选择的当前驱动器的不同而同时发生变化,则应:
如果要在菜单中添加一个分隔线,则应将其Caption属性设置为
对建立良好的程序设计风格,下面描述正确的是______。
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度:1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTyPeAngKAsIntegerSinxAsSin
VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括______。
从窗体form1生成到该窗体显示出来,最后发生的事件是______。
文本框TextBox中的内容若要设置为用户不能修改,应设置()属性。
对话框在关闭之前,不能继续执行应用程序的其他部分,这种对话框属于()。
随机试题
面团的延伸性越好说明其面筋品质越好。
符合菌群失调临床表现特点的是
下列哪项不符合胸壁疾患所致胸痛的特点
乙型脑炎(简称乙脑)的主要传染源是()
下列设置在公共建筑内的柴油发电机房的设计方案中,错误的是()。
热敏多色复印机
根据《证券法》的规定,下列各项中,不符合公开发行公司债券条件的是()。
2018年母公司销售一批产品给子公司,销售成本300万元,售价400万元。子公司购进存货后,向集团外销售50%,取得收入250万元,其余50%形成期末存货,未计提存货跌价准备。母子公司适用的所得税税率均为25%,假定不考虑其他因素,下列关于母公司编制201
金融市场是金融商品和金融工具交易的场所。
大山因为有脊梁,所以挺拔俊美;人因为有脊梁,所以_______;新闻因为有了脊梁,才能出淤泥而不染;新闻人因为有了脊梁,才能_______、稳如泰山。填入划横线部分最恰当的一项是:
最新回复
(
0
)