首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件vbsjl5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编
在考生目录下有一个工程文件vbsjl5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编
admin
2018-10-29
76
问题
在考生目录下有一个工程文件vbsjl5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计三个数均在60以内满足上述关系的整数组合的个数,并显示在标签Lbl1中,运行时程序界面如图3-146所示。
注意:不得修改原有程序的控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件vbs.i5.vbp,在码编辑窗口的指定位置输入代码。参考代码: Private Sub Command1_Click( ) ’===考生编写程序开始==== Dim i As Integer,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:按<F5>键运行程序,单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/p3Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() a$=InputBox("请输入一个二进制数") n=Len(a$) Fori=1Ton Dec=Dec*2+
顺序文件在一次打开期间( )。
在窗体上画一个命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimArr(10)AsIntegerFori=1To10Arr(i)=
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click() d=0 c=10 x=Array(10,12,21,32,24) Fori=
运行如下程序PrivateSubCommand1_Click() Dima(5,5)AsInteger Fori=1To5 Forj=1To4 a(i,j)=i*2+j Ifa(i,
下列针对框架控件的叙述中,错误的是( )。
下面不是键盘事件的是( )。
能够产生1到50之间(含1和50)随机整数的表达式是( )。
设有如下事件过程:PrivateSubForm_Click() Sum=0 Fork=1To3 Ifk
随机试题
因驾驶证记载信息发生变化而申请变更换证时,申请人应当填写《机动车驾驶证申请表》并提交驾驶人的身份证明和驾驶证。
什么是三级安全教育?
黄芪的主治范围是
某企业购入A上市公司股票100万股,并划分为交易性金融资产,共支付款项1340万元,其中包括相关交易费用2万元。该项交易性金融资产的入账价值为()万元。
测定广告销售效果测评的统计比率的方法包括()。
自然人的行为能力与权利能力可能分离,而法人的行为能力与权利能力是同时存在的。()
一、注意事项1.本题本由给定资料与作答要求两部分构成。考试时限为150分钟。其中,阅读给定资料参考时限为40分钟,作答参考时限为110分钟。2.请在题本、答题卡指定位置上用黑色字迹的钢笔或签字笔填写自己的姓名和准考证号,并用2B铅笔在准
简述企业实现利润最大化均衡的条件。
设φ1(x),φ2(x),φ3(x)为二阶非齐次线性方程y″+a1(x)y′+a2(x)y=f(x)的三个线性无关解,则该方程的通解为().
TheroadfromMilduratoMerbein,innorth-westVictoria,isasadsight.Manyofitsfarmsarecoveredwithwinegrapes,dying
最新回复
(
0
)