首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件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
59
问题
在考生目录下有一个工程文件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()DimnAsInteger,tAsLongStaticsAsIntegert=1Forn=1To3t=
窗体上有一个Text1文本框,并编写了下面事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger) KeyAscii=KeyAscii+3EndSub程序运行时,在文本框中输入字符"A",则在文本
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是( )。
在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为"宋体"和"黑体";1个复选框(名称为Check1,标题为"粗体")和1个文本框(名称为Text1,Text属性为"改变文字字体"),窗体外观如图所示。程序运行后,要求"宋体"单选
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click() Open"out.txt"ForOutputAs#2 Print"Text1" Close
阅读程序:OptionBase1PrivateSubForm_Click()Dima(3,3)AsIntegerFori=1To3Forj=1To3a(
下列针对框架控件的叙述中,错误的是( )。
窗体上有名称为Command1的命令按钮,名称分别为Label1、Label2、Label3的标签。编写如下程序:PrivatexAsIntegerPrivateSubCommand1_Click() StaticyAsIntege
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
随机试题
老年人感染时,用药原则是
A.败血症B.脓血症C.毒脓败血症D.菌血症E.毒血症局部化脓灶的细菌栓子间歇性进入血液循环并在机体其他组织器官形成转移性脓肿的疾病称为
脐疝的疝环是
我国的国债回购业务开始于()。
下列关于水泥混凝土路面原材料的说法,错误的是()。
长江股份有限公司(以下简称长江公司)为增值税一般纳税人,适用的所得税税率为25%。长江公司2019年度财务报告批准报出日为2020年4月3日,2019年所得税汇算清缴结束日为2020年3月28日。长江公司2019年实现利润总额5200万元,新增可抵扣暂时
下列不是合同的生效要件的是()。
Neverunderestimatethelearningpowerofplay.OneofParks’findingsisthatchildren【C1】______valuablelearningopportunitie
有下列程序:main(){intk=5;while(--k)printf("%d",k-=3);printf("\n");}执行后的输出结果是()。
在过程定义中有语句:PrivateSubGetData(ByValdataAsInteger)其中"ByVal"的含义是( )。
最新回复
(
0
)