首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件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
2017-03-27
44
问题
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计三个数均在60以内满足上述关系的整数组合的个数,并显示在标签:Lbl1中,运行时程序界面如图3—146所示。
注意:不得修改原有程序的控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
程序源码:
Public Sub save(l As Control)
Open App.Path&"\out5.txt"For_Outlout As#1
Print#1,1.Caption
Close #1
End Sub
选项
答案
步骤1:打开考生文件夹下的工程文件vbsj5.vbp,在码编辑窗口的指定位置输入代码。 参考代码: Private Sub Command1_Click() ’===考生编写程序开始==== Dim i As Integer,j As Integer Dim n As Integer For i=1To59 For j=i To60 If Sqr(i*i+j*j)=Int(Sqr_ (i*i+j*j))And Sqr_ (i*i+j*j)<=60Then n=n+1 End If Next Next Lbl1.Caption=n ’===考生编写程序结束==== ’不要改动以下内容 save Label1 End Sub 步骤2:按<F5>键运行程序,单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
本题可通过一个嵌套的For循环,来统计满足题目要求的整数组合的个数。其中,外循环变量i的取值范闱为1~60,内循环变量j的取值范围为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中。
转载请注明原文地址:https://kaotiyun.com/show/amGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在对象的MouseDown和MouseUp事件过程中,当Button参数的值为1、2、4时,分别代表按下鼠标______。
如果要在菜单中添加一个分隔线,则应将其Caption属性设置为
下列不能打开菜单编辑器的操作是()。
下列程序运行后,在窗体上打印的结果是【】。PrivateSubtest(a,b,c)a=a+1:b=b+2:C=C+3EndSubPrivateSubCommand1
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【】、【】、ShowColor、ShowFont和ShowPrinter。
执行下面的程序段后,S的值为【】。s=5Fori=2.6To4.9Step0.6s=s+1Nexti
在程序运行时,可以通过______方法来移动滚动条的位置。
在窗体上画一个命令按钮command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程:DimStr1AsString,str2AsStringPrivateSubform_load()Tex
下列程序的功能是;将数据1,2,…,8写入顺序文件Num.txt中,请选择正确的程序段()。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOut
为了定义自己的鼠标光标,首先应把MousePointer属性设置为【】,然后把【】属性设置为一个图标文件。
随机试题
国际局势和世界格局的深刻变化是“三个代表”重要思想形成的()。
女性,46岁,偶然发现右乳房肿物10天,肿物未见明显增大。查体:右乳房外上象限1.5×1.5×1.5cm肿物,质中,无压痛,表面不光滑,边界不清楚,活动度好,与局部皮肤有少许粘连。最可能的诊断是
以下哪项不是溃疡性结肠炎并发中毒性巨结肠的常见诱因
A.青霉素B.红霉素C.氯霉素D.林可霉素E.头孢拉定治疗肺炎克雷伯杆菌肺炎可选用
该肿块位于右颈前区,则多来源于下列哪个器官如肿块位于颈动脉部位,则同时可有下列体征
适用于原油、汽油、溶剂油、重整原料油以及需要控制蒸发损失及大气污染、控制放出不良气体、有着火危险的产品储存的储罐是()。
依据我国现行的有关交易制度规定,下列交易品种可以当日完成回转交易的是()。
下列选题中,不需办理重大选题备案手续的是()。
简述学习策略训练的原则。
德国作家冯塔纳曾说,幸福有它的两重性:一方面在于福至心灵,时来运至……另一方面,也是最实际的方面,就是知足常乐地安度日常生活,这也就是说,头脑清醒,不干蠢事。请以此为话题,写一篇不少于800字的记叙文或议论文。
最新回复
(
0
)