首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件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
62
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
如果要通过程序代码来一次性删除列表框中所有项目,则应使用的方法是______。
下列是一个体操评分程序。没满分为10分,20位评委,除去一个最高分和一个最低分,计箅平均分。PrivateSubCorrmland!Click()Max=0Min=10Fori=1To20n=Va
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimcAsIn
假定有一个文本框,其名称为Text1,为了使该文本框具有焦点,应执行的语句是______。
阅读下列程序: PrivateSubCommand1_Click() DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintH(k); Nexti EndSub Fu
在窗体上有一个命令按钮,然后编写如下事件过程 PrivateSubCommand1_cickc() a=InputBox("enterthefirstinteger") b=InputBox("enterthesecon
假定有下表所列的菜单结构:要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“√”。以下正确的事件过程是
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsInteger
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为al,且取消其"可见"属性。运行时,可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
随机试题
电子计算机是由中央处理器CPU、()和I/O输入输出接口组成的。
A.槟榔B.贯众C.雷丸D.鸡内金E.榧子固精止遗的是()。
地下车库出入口与道路平行时,应经不小于多长的缓冲车道汇入基地道路?[2010-44]
某纺织车间进行吸声降噪处理前后的混响时间分别为4.5s和1.2s,该车间噪声级降低了()。
机构所在地在A市的甲企业是增值税一般纳税人,2019年5月在A市取得含税咨询收入250000元,发生可抵扣的进项税额8000元,将位于B市的一处办公用房(2016年5月1日以后取得)出租,收取含税月租金40000元,则甲企业5月在A市缴纳增值税()
重置成本,是指企业重新取得与其所拥有的某项资产相同或与其功能相当的资产需要支付的现金或现金等价物。()
材料:思维导图,也称为心智图。20世纪70年代初,英国学者托尼.巴赞在研究人类学习的本质的过程中,发现协同运用人类学习过程中的各种思维技巧,能够提高思维的效率,同时他又受到达.芬奇相关笔记的启发,在研究脑科学、心理学、神经生理学、语言学、神经语言学、信息论
日常交际中,注重礼貌用语、讲究措辞文雅是中华民族的优良传统。请写出下列不同场合中使用的两个字的敬辞谦语。示例:探望朋友,可以说“特意来看您”,更文雅一点,也可以说“特意登门拜访”。(1)想托人办事,可以说“请您帮帮忙”,也可以说“___
2,10,27,51,88,()。
Almosteverynewinnovationgoesthroughthreephases.When【C1】______introducedintothemarket,theprocessof【C2】______isslo
最新回复
(
0
)