首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
2020-07-22
23
问题
在考生文件夹下有一个工程文件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^2 Then m=m+1’m为记录满足条件的个数 End If Next k Next j Next i Label1=m/2’去掉相同的项 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/GNHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在菜单编辑器中建立如下图所示的菜单,并为了每个菜单项编写了鼠标单击事件过程。关于此菜单,以下叙述中错误的是( )。
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\
函数过程F1的功能是:如果参数a为奇数,则返回值为1,否则返回值为0。以下能正确实现所述功能的代码的是()。
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码:PrivateFunctionfun(xAsLong)AsBooleanIfxMod2=0
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个
以下关于VB特点的叙述中,错误的是( )。
设窗体上有一个Command1命令按钮,还有以下程序代码:PrivateSubCommand1_Click()StaticxAsIntegerx=x+1Callproc(x)Printx,E
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
下列叙述中,不属于软件需求规格说明书的作用的是()。
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
随机试题
A、decadeB、aggressiveC、ancestorD、bacteriaD选项D画线字母读,其他选项画线字母读[e]。
关于焦点方位特性的描述。正确的是
目前口服抗真菌作用最强的药物是
会计机构、会计人员必须审核原始凭证,这是法定职责。()
借款人的还款能力出现明显问题,依托其正常经营收入已经无法保证按时足额偿还本息的贷款属于()。
在( )的情况下,资本公积可能出现借方发生额。
简述取得时效的构成条件。
结合材料,回答问题:3月17日至18日,中共中央总书记、国家主席、中央军委主席习近平赴河南省兰考县调研指导党的群众路线教育实践活动。习近平一下飞机,就直奔兰考焦裕禄同志纪念馆。这是他时隔5年之后,第二次来到这块精神圣地。置身焦园,睹物思人。习近平
下图是一有限自动机的状态转换图,该自动机所识别语言的特点是(45),等价的正规式为(46)。
A—proofofdeathH—releasecertificateB—bodilyharmI—copyrightlawC—keywitnessJ—sumofclaimD—rightofauthorK—housearre
最新回复
(
0
)