首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
66
问题
在考生文件夹下有一个工程文件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:分析并编写程序代码。 程序提供代码 窗体代码 Private Sub Command1_Click() ’===考生编写程序开始==== ’===考生编写程序结束==== ’不要改动以下内容 save Label1 End Sub 模块代码 Public Sub save(l As Control) Open App.Path & "\out5.txt" For Output As #1 Print #1, l.Caption Close #1 End Sub 程序结束 参考答案 Private Sub Command1_Click() 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 End If Next k Next j Next i Label1 = m / 2 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/PXHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
工程中有Forml、Form2两个窗体(Forml中有文本框Textl;Form2中有Textl文本框和Commandl命令按钮)。Forml是启动窗体。在这些模块中编写下面的程序代码:Forml中的代码如下:Private
对于文本框Text1,能够获得按键的ASCII码值的事件过程是
在窗体上有1个名为Cd1的通用对话框,为了在运行程序是时打开保存文件对话框,险则在程序中应使用的语句是
下列运算符中,优先级别最高的是
下面不属于对象主要特征的是()。
在学校每间宿舍住1到6名学生,每个学生只在一间宿舍居住,则实体宿舍与实体学生间的联系是()。
将E-R图转换为关系模式时,E-R图中的属性可以表示为
在关系数据库中,用来表示实体间联系的是
一个教师可讲授多门课程,一门课程可由多个教师讲授。则实体教师和课程间的联系是( )。
在数据流图中,带有箭头的线段表示的是()。
随机试题
每执行一次semWait操作,信号量的数值S减1。若_______,则该进程继续执行,否则进入_______状态。
组织咨询项目投标班子,其组成人员应包括()。
在新建厂房辅跨内不应设置的设施有()。
编制设计要求文件应兼顾()方面。
下列说法是正确的为( )。
劳动合同是指劳动者与用人单位确立劳动关系,明确双方权利和义务的书面协议。而无效的劳动合同,从订立的时候起,就没有法律约束力。无效劳动合同包括( )。
以下关于贷款合同的分类,正确的是()。
根据民法通则及相关规定,下列哪种情形构成不当得利?
Speakingtwolanguagesratherthanjustonehasobviouspracticalbenefits.Inrecentyears,scientistshavebeguntoshowthat
决策支持系统为
最新回复
(
0
)