首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)
admin
2016-06-23
52
问题
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计均在60以内的三个数满足上述关系的整数组合的个数,并显示在标签Label1中。
注意:不得修改原有程序的控件属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考代码 Dim i As Integer Dim j As Integer Dim k As Integer For i=1 To 60 For j=1 To 60 For k=1 To 60 ’判断三个数是否满足勾股定律 If i^2=j^2+k^2Then m=m+1’m为记录满足条件的个数 End If Next k Next j Next i Label1=m/2’去掉相同的项 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/KcLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dima s=0:j=1 a=Array(1,2,
下列语句的输出结果是______。PrintFormat$(1258.6,"000,000.00")
执行以下Commaand1的Click事件过程在窗体上显示()。OptionBase0PrinvateSubCommand1_Clcik()Dimaa=Array("a","b","C","d","e","
测试的目的是暴露错误,评价程序的可靠性,而______的目的是发现错误的位置并改正错误。
下列语句都是在Form中定义的,其中,错误的是
设在工程中有一个标准模块,其中定义了如下类型:TypestutypeinoAsIntegerstrnameAsString*20strsexAsString*1smarkAsSingleEn
下面表达式中,()的运算结果与其他三个不同。
把数学表达式表示为正确的VB表达式应该是()。
把数学表达式表示为正确的VB表达式应该是( )。
随机试题
可致左心室后负荷过重的疾病是
跨国公司的市场信息系统与一般的市场信息系统有哪些异同点?
以下哪项不是漏出液的特点
脓胸患者并发支气管胸膜瘘时宜采用
有关超声波雾化吸入的目的,正确的叙述是
监理(业主)超过约定的支付时间不支付工程进度款,承包商应及时向业主发出要求付款的通知,监理(业主)收到承包商通知后仍不能按要求付款,可与承包商协商签订延期付款协议,经承包商同意后可延期支付。协议应明确延期支付的时间和从工程量计量结果确认后第(
现阶段,构建我国综合交通运输体系所遵循的原则是()
案例一:某外语学院德语系学生吴某先后两次报名参加导游资格考试,均未合格。他急于从事导游工作,遂与某国际旅行社多次联系,希望能给予带团实习机会。次年7月,正值旅游旺季,该国际社导游不足,遂聘用吴某充任导游人员。被旅游行政管理部门查获,以其未经导游资格考试合格
军队是要准备打仗的,一切工作都必须坚持()标准,向能打仗、打胜仗聚焦。
设f(x,y)在(0,0)处连续,且=4,则().
最新回复
(
0
)