首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,用来计算勾股定理整数组合的个数,勾股定理中三个数的关系是:a2+b2=c2 ,例如3、4、5就是一个满足条件的整数组合(注意:a、b、c 别为4、3、5与分别为3、4、5被视为同一个组合,不应该重复计算)。编写程
在考生目录下有一个工程文件sjt5.vbp,用来计算勾股定理整数组合的个数,勾股定理中三个数的关系是:a2+b2=c2 ,例如3、4、5就是一个满足条件的整数组合(注意:a、b、c 别为4、3、5与分别为3、4、5被视为同一个组合,不应该重复计算)。编写程
admin
2018-10-29
71
问题
在考生目录下有一个工程文件sjt5.vbp,用来计算勾股定理整数组合的个数,勾股定理中三个数的关系是:a
2
+b
2
=c
2
,例如3、4、5就是一个满足条件的整数组合(注意:a、b、c 别为4、3、5与分别为3、4、5被视为同一个组合,不应该重复计算)。编写程序,统计三个数均在60 以内满足上述关系的整数组合的个数,并显示在标签Label1中。
注意:不得修改原有程序控件的属性,在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩,最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口编写“计算”按钮的单击事件过程。 参考代码: n = 0 For i = 1 To 60 For j = 1 To 60 For k = 1 To 60 x = k * k If (x = i * i + j * j) And j > i Then Print i; j; k n = n + 1 End If Next k Next j Next i Label1.Caption = n 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/w3Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0s=s&nMod
编写如下程序:PrivateSubCommand1_Click()DimscoreAsIntegerscore=86Ifscore>85Thenr=1ElseIfscore>
对于含有多个窗体的工程而言,以下叙述中正确的是
在面向对象的程序设计中,可被对象识别的动作称为( )。
设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:PrivateSubCommand1_Click() DimsAsString,chAsString s="" Fork=1ToLen(Te
以下选项中,不合法的VisualBasic的变量名是( )。
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNe
能够用于标识对象名称的属性是( )。
数据库设计中反映用户对数据要求的模式是( )。
下面关于VB数据文件的叙述中错误的是()。
随机试题
立体仓库高度可达50米,它属于
牛超数排卵时能显著促进卵泡发育的激素是()。
患者平卧抬高下肢,排空静脉血,在大腿根部扎止血带阻断大隐静脉,然后让患者站立,10秒内放开止血带,若出现自上而下的静脉逆向充盈,提示
对水泥强度起支配作用的水化产物是()
资源集约度产业分类法把产业大致分为()。
国际贸易合同中货物数量或价款前使用“大约、接近”等约量词,按照《UCP600》的规定,货物数量或价款可以上下浮动不超过5%。()
作为人体的生理功能,免疫能识别“自己”和“非己”成分,破坏和排斥进入人体的抗原物质(如病菌等),或自身产生的损伤细胞和肿瘤细胞等,以维持健康。非消除性免疫是免疫的一种类型,指宿主感染寄生虫后不能清除或不能完全清除已经建立了感染的寄生虫,但对同种寄生虫的再感
抗日根据地实行减租减息政策的主要意义有()
Mr.WangteachesEnglishinamiddleschool.Helikeshisworkverymuch.Hewanted【C1】______ateacherevenwhenhewasayoung
A、Hedeliveredpublicspeeches.B、HeplayedaroleinEastofEden.C、Hegotseriouslyintoacting.D、HehostedtalkshowsonTV
最新回复
(
0
)