首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写
admin
2019-05-14
23
问题
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计三个数均在60以内满足上述关系的整数组合的个数,并显示在标签Lbl1中,运行时程序界面如图3-57所示。
注意:不得修改原有程序的控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
程序源码:
Public Sub save(1 As Contro1)
Open App.Path & "\out5.txt" For
Output As #1
Print #1, 1.Caption
C1ose #1
End Sub
选项
答案
审题分析 本题可通过一个嵌套的For。循环,来统计满足题目要求的整数组合的个数。其中,外循环变量i的取值范围为1~60,内循环变量i的取值范围为i~60(这样可避免出现重复的组合)。通过表达式:Sqr(i*i+j*j)= Int(Sqr(i*i+j*j))是否成立来判断Sqr(i*i+j*j)的值是否为整数,并通过表达式:Sqr(i*i+j*j)<=60是否成立来判断Sqr(i*i+j*j)的值是否在60以内,当两个条件同时满足时,此时的i、j及Sqr(i*i+j*j)即为满足题目要求的整数组合,记录组合个数的变量n加一。循环结束,将n值显示在标签Label1中。 操作步骤 步骤1:打开考生文件夹下的工程文件vbsj5.vbp,在码编辑窗口的指定位置输入代码: 参考代码: Private Sub Command1_Click() ′===考生编写程序开始==== Dim i As Integer Dim j As Integer Dim n As Integer For i=1 To 59 For j=i To 60 If Sqr(i*i+j*j)=Int(Sqr (i*i+j*j)) And Sqr (i*i+j*j)<=60 Then n=n+1 End If Next Next Lbl1.Caption=n ′===考生编写程序结束==== ′不要改动以下内容 save Label1 End Sub 步骤2:按
键运行程序,单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。 考点链接 多重循环、常用内部函数
解析
转载请注明原文地址:https://jikaoti.com/ti/kSN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
请根据以下各小题的要求设计’VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel,且没有标题的框架。框架内含有两个单选按钮,名称分别为Opt1和Opt2、标题分别为“字体”、“大小”
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Pic的图片框,通过属性窗口将考生文件夹下的文件Tul一1jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片框
在考生文件夹中有一个工程文件vbs5.vbp(相应的窗体文件为vbsj5.frm)。窗体Forml上有两个名称为Lab1和Lab2的标签,它们的标题分别为“密码”和“允许次数”;一个名称为Cmdl的命令按钮,其标题为“确定”;两个名称分别为Txt1和Txt
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件为vbsi3.frm,在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组ari。中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情
在考生文件夹下有一个工程文件sjt4.vbp。窗体上的控件如图所示。程序运行时,若选中“累加”单选按钮,则“10”、“12”菜单项不可用,若选中“阶乘”单选按钮,则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后,单击“计算”按
随机试题
观察胆脂瘤,常规选用
A.产后2~3天B.产后4天C.产后3~7天D.产后10~14天E.产后2~3周
A/维生素B4B/维生素B12C/维生素B6D/维生素DE/维生素C可用于治疗恶性贫血的是
猪毛首线虫的虫卵是
患者,男,62岁。有慢性咳喘病史10余年,平素易汗出,劳动后尤甚,易外感,体倦乏力,恶风,舌苔薄白,脉细弱。治疗首选
按照研究的目的,有计划、系统地直接了解学生的行为表现,对所了解的事实加以记录和客观解释,以了解学生心理和行为特征的方法称之为()
公务员辞去公职或者退休的,原系领导成员的公务员在离职()内,不得到与原工作业务直接相关的企业或者其他营利性组织任职,不得从事与原工作业务直接相关的营利性活动。
有银铜合金10公斤,加入铜后,其中含银2份,含铜3份。如加入的铜增加1倍,那么银占3份,铜占7份。试问初次加入的铜是多少公斤?( )
如果把通货膨胀因素抽象掉,投资报酬率就是时间价值率和风险报酬率之和。()
Whenyouarewritingabusinessletter,youneedtonoticethefollowingtips:LimitThemtoOnePageBydefinition,busine
最新回复
(
0
)