首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件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
75
问题
在考生目录下有一个工程文件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://www.kaotiyun.com/show/w3Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上已有1个名称为Picture1的图片框,要求实现下面2个功能之一:(1)在窗体上移动鼠标时,立即将Picture1显示在鼠标位置(2)在窗体上单击鼠标时,立即将Picture1显示在鼠标位置下面不能实现上述任何功能的事件过程是
输入VisualBasic源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
在面向对象的程序设计中,可被对象识别的动作称为( )。
设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:PrivateSubCommand1_Click() DimsAsString,chAsString s="" Fork=1ToLen(Te
求1!+2!+……+10!的程序如下:PrivateFunctions(xAsInteger) f=1 Fori=1Toxf=f*i Next s=fEndFunctionPrivateSubCommand1
假定在图片框Picture1中装入了一个图片,在程序运行中,为了清除该图片(注意,清除图片,而不是删除图片框),应采用的正确方法是( )。
阅读程序:OptionBase1SubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubForm_Click()
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
随机试题
女,18岁,汽油火焰烧伤双下肢(包括臀部),创面渗出明显,创基潮红,触痛明显,皮肤温度高,则该病人烧伤面积及深度诊断是
哪种病毒性肝炎不会演变为肝硬化
女性,38岁,慢性肾功能不全多年,近期出现尿毒症,住院经治疗后行肾移植手术。5l.作为糖类来源,多选用的食物是
在夏秋季,一农民患者前来就诊,主诉近2周每隔1天上午10:00左右开始出现畏寒、高热、出汗,且高热有波动,约在下午3:00发作停上,倍感疲惫。面黄体弱,贫血貌。实验室诊断的最好方法是
癃闭之名首见于提出治气虚而闭者必须要"得其化"的是
在H2S水溶液中,加入一些Na2S固体,将使()。
根据增值税法律制度的规定,下列业务中,属于增值税征税范围的有()。
教师组织安排课堂空间的方法一般有按领域原则和按________两种。
恩施州党代会提出“三州”战略。你认为州妇联应该怎样围绕这一发展思路开展工作?
GivingChildrenCellPhones1.目前越来越多的家长给孩子配手机,目的是…2.也会带来一些问题3.你的看法
最新回复
(
0
)