首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
20
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/MQJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
属性窗口主要是针对窗体和控件设置的。在VB中,窗体和控件被称为______。每个对象都可以用一组属性来刻画其特征,而属性窗口就是用来设置窗体或窗体中的控件属性。
下列叙述中正确的是
下列选项中不属于结构化程序设计方法的主要原则的是
下面程序段,运行后的结果是PrivateSubCommand1_Click()Dimb%(1To4),i%,t# Fori=1To4 b(i)=i Next t=Tof(b()
窗体上建立了一个名为CormnonDialong1的通用对话框,用下面的语句建立一个对话框:CommonDialong1.action=2则以下语句与之等价的是()。
下面关于多重窗体的叙述中,正确的是()。
以下说法不正确的是
把数学表达式表示为正确的VB表达式应该是()。
(1)在名称为Form1,标题为“选课”的窗体上添加一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处在选中状态下,程序运行时的窗体如图所示。请按要求添加控件并设置相应
随机试题
患儿,女,6个月。腹泻4d,每日10余次,稀水样,少许黏液,尿少,精神萎靡。查体:呼吸深长,皮肤花纹,弹性差,前囟、眼窝明显.凹陷,肢冷。脉弱,心率160/min,口唇樱桃红色。其可能诊断为婴儿腹泻合并
职业健康安全与环境管理体系文件体现方式的多样性是指其文件可以用( )等表示。
下列说法正确的有()。
钟老师对如图5所示的数据表进行分类汇总操作后,得到的结果是()。
在()中,每个上级部门并没有单一管理自己的下级部门,同样每个下级部门也不只服从一个上级部门。
【F1】Itisnolongerjustdirtyblue-collarjobsinmanufacturing;thatarebeingsuckedoffshorebutalsowhite-collarservicej
给出关系R(U,F),U={A,B,C,D,E),F={A→BC,B→D,D→E)。以下关于F说法正确的是(6)________。若将关系R分解为ρ:ρ=[R1U1,F1),R2(U2,F2)),其中:U1={A,B,C}、U2={B,D,E},则分解ρ(
以下哪种不是建立电子政务信息安全基础设施的必要组成部分()。
SingingAlarmsCouldSavetheBlindIfyoucannotsee,youmaynotbeabletofindyourwayoutofaburningbuilding-andthat
A、Itistheonlycompanydevelopingself-drivingcars.B、ItcooperateswithInfinitiindevelopingself-drivingcars.C、Itneeds
最新回复
(
0
)