首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件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
2016-03-22
51
问题
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计三个数均在60以内满足上述关系的整数组合的个数,并显示在标签Lbll中,运行时程序界面如图3.57所示。
注意:不得修改原有程序的控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
程序源码:
Public Sub save(1 As Contr01)
Open App.Path& “\out5.txt” :For_
Output As#1
Print#1, 1.Caption
Close #1
End Sub
选项
答案
步骤1:打开考生文件夹下的工程文件vbsj5.vbp,在码编辑窗口的指定位置输入代码: 参考代码: Private Sub Commandl Click() ===考生编写程序开始==== Dim i As Integer Dim j As Integer Dim n As Integer For i=1 To 5 9 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 Lbll.Caption=n ===考生编写程序结束==== 不要改动以下内容 Save Labell End Sub 步骤2:按
键运行程序,单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/UMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在用菜单编辑器设计菜单时,必须输入的项是______。
在窗体上画四个文本框(如下图所示),并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程PrivateSubCommandl_Click()ForEachTextBoxin
假定有以下函数过程:FunctionFun(SAsString)AsStringDimslAsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1
代数式eXSin(30°)2x/(x+y)Inx对应的VisualBasic表达式是()。
有如下SUB过程:Subs(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上添加一个命令按钮,然后编写如下事件过程:PrivateSubF
软件工程研究的内容主要包括:【】技术和软件工程管理。
在窗体上有一个命令按钮,然后编写如下事件过程。PrivateSubCommand1_Click()Dima(5)AsStringFORi=1To5a(i)=Chr(Asc("A")+(i-1))
要触发组合框的DblClick事件,只有将组合框的Style属性设置为
以下事件过程可以将打开对话框的标题改为"新时代"的是
随机试题
在下列叙述中,脂褐素的本质是
简述外汇的作用。
ProblemsCausedbyUsingComputersLonghoursatthescreencancause【C1】________(ache)eyes,【C2】________(blur)visionan
设x=f(exsiny,x2+y2),其中f(u,v)可微,求
Hisfellowworkerssawhimfalldownandbloodcameoutfromtheopen______.
腹直肌()
头针穴线之顶颞前斜线是
Gd-DTPA的不良反应可包括
关于企业所得税收入确认时间的说法,正确的有()。
当x→0+时,下列无穷小中,阶数最高的是().
最新回复
(
0
)