首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件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
26
问题
在考生目录下有一个工程文件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://jikaoti.com/ti/Ugy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下程序用于计算“1+1/3+1/5+…+1/(2n+1)”,直至“1/(2n+1)”小于10-4。阅读下面程序,请在【】和【】处填上正确内容。PrivateSubCommand1_Click()Sum=h:n=idon=【
执行以下程序段,并输入1.23,则程序的输出结果应是【】。N=Str(InputBox(“请输入一个实数:”))p=InStr(N,".")PrintMid(N,p)
下列不能打开菜单编辑器的操作是()。
属性窗口分为4个部分,这4个部分分别是______。
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度:1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTyPeAngKAsIntegerSinxAsSin
在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是_________。
有如下程序:FunctionF(aAsInteger)b=0StaticCb=b+1c=c+2F=a+b+cEndFunctio
VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括______。
结构化程序设计主要强调的是______。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(1To10)Dimp(1To3)k=5Fori=1To10a(i)=iNextiFori=1To3p
随机试题
下列材料包衣后,片剂可以在胃中崩解的是()。
合同当事人订立仲裁协议,约定仲裁机构,发生纠纷后一方当事人请求人民法院确认该仲裁协议的效力,应由()人民法院管辖。
下列费用由债务人负担的有()。
依据《固体废物污染环境防治法》,下列对一般固体废物污染环境的防治的做法中,正确的有()。
我国某公司向德国出口一批机床,每台单价600欧元,当时汇率为:EUR1=CNY8.0980,结汇时汇率为:EUR1=CNY8.0890。问:(1)此计价法是本币计价法吗?(2)此计价法对哪一方有利?为什么?(3)出口商的最终收益比以前多了,还是少了?具体金
判断股票的流动性强弱可以从下列哪些方面进行?()
若按2007年的固定电话用户数增长率保持不变,预计到2008年年末全国固定电话用户数是多少?
某医学院的研究人员进行了一个小型的研究并发现:自闭症患者如果每天摄入一定量的萝卜硫素(一种存在于西兰花、花椰菜和卷心菜等食用植物中的物质),能够缓解其自闭症的一些症状。这项研究选择了44位已被诊断为患有中度到重度自闭症的男性作为研究的样本。研究人员指出,接
(2016年真题)下列关于《元典章》的表述,不正确的是()。
以下选项中,合法的一组C语言数值常量是
最新回复
(
0
)