首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个上程文件vbsi5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3.4,5被视为同一个组合,不应该重复计算)。编写
在考生目录下有一个上程文件vbsi5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3.4,5被视为同一个组合,不应该重复计算)。编写
admin
2016-12-29
59
问题
在考生目录下有一个上程文件vbsi5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3.4,5被视为同一个组合,不应该重复计算)。编写程序,统计三个数均在60以内满足上述关系的整数组合的个数,并显示在标签Lbll中,运行时程序界面如图2.57所示。
注意:不得修改原有程序的控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示让标签中,甭则无成绩。最后把修改后的文件按原文件名存髓。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件vbsj5.vbp,在码编辑窗口的指定位置输入代码: 参考代码: Private Sub Commancll—Click() ===考生编写程序开始=== Dim i As Integer Dim j As Integer Dim n As Integer For i=1 To 59 For j=i To 60 Tf Sqr(i*i+j*j)=Tnt(Sqr一 (i*i+j*j))And Sqr一 (i*i+j*j)<=60 Then n=n+1 End If Next Next Lbll.Caption=n ===考生编写程序结束=== 不要改动以下内容 Save Labell End Sub 步骤2:按
键运行程序。单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/V9Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
用InputBox函数设计的对话框,其功能是()。
关系数据库中能实现的专门关系运算包括__________、连接和投影。
窗体上有一个名称为Picturel的图片框控件,一个名称为Timerl的计时器控件,其Interval属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下:PrivateSubTimerlTimer()Static
窗体上有一个名称为Commandl的命令按钮,并有如下程序:PrivateSubCommandlClick()DimrrlASInteger,nAsIntegerm=InputBox(”输入第一个数”)
在程序运行时,可以通过______方法来移动滚动条的位置。
用下面的语句所定义的数组的元素个数是:______。Dimarr(3To5,-2to2)
假定有如下的Sub过程:SubSub1(xAsSingle,yAssingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand
设在工程中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Com
VisualBasic中的工程文件的扩展名是______。
线性表若采用链式存储结构时,要求内存中可用存储单元的地址
随机试题
不能用于表面麻醉的局部麻醉药物是
改进工艺、加强通风、密闭操作、水式作业等都是防尘的有效方法。()
伸直型肱骨髁上骨折多见于
癌基因产物有
一职工从沿海某城市归来,腹泻1天,10余次,水样便,到市医院求治,疑为肠炎,后大便培养出E1-Tor型细菌。诊断后11小时医师上报疫情,国家要求上报此类传染病最迟不超过
患者,男,60岁,突然感到心前区闷痛,伴心悸3小时,自服硝酸甘油l片,疼痛未能缓解。做心电图检查,显示如图。
无穷级数的和为()。
(2015年卷一第50题)下列权利要求的主题名称中,哪些不能清楚表明权利要求的类型?
正确描述创建一个段落的句法是______。
数据独立性分为逻辑独立性和物理独立性,当数据的存储结构改变时,其逻辑结构可以不变。因此,基于逻辑结构的应用程序不必修改,称为()。
最新回复
(
0
)