首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0~100范围内所有偶数的平方和并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数平
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0~100范围内所有偶数的平方和并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数平
admin
2019-08-21
61
问题
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0~100范围内所有偶数的平方和并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数平方和的操作在通用过程Fu中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Sub SaveData() Open App.Path&"\&"outtxt.txt"For Output As#1 Print#1.Text1.Text Close#1 End Sub Function Fun() End Function Private Sub Command1_Click() d=Fun() Text1.Text=d SaveData End Sub 程序结束 参考答案 Function Fun() Dim s As Long.i As Integer。 s=0 For i=0 To 100 If i Mod 2=0 Then s=s+i^2 End If Next i Fun=s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
根据题意,通过For循环语句的循环变量i(初值为0,终值为100,步长为2)来获得0~100范围内的所有偶数,并逐一将i^2的值累加到变量s,最后将s的值显示在文本框中,并将其作为函数返回值。
转载请注明原文地址:https://kaotiyun.com/show/JKUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”,若通过程序设置该标题,则应使用的语句是
设菜单编辑器中各菜单项的属性设置如下表所示针对上述属性设置,以下叙述中错误的是
下面程序计算并输出的是PrivateSubCommandl_Click()a=10:s=0Dos=s+a*a*a:a=a-1LoopUntila<=0PrintsEndSub
编写如下程序:PrivateSubCommandl_Click()DimnAsLong,SAsStringn=InputBox("输入一个数")DoWhilen<>0S=S&nMod10:s=s&n\
有如下程序:PrivateSubForm_Click()DimiAsInteger,nAsIntegerFori=1To20i=i+4:n=n+iIfi>10ThenExitForNext
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommandl_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10a(k)=Inp
窗体上有一个名称为Optionl的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程PrivateSubOptionl_Click(IndexAsInteger)…EndSub下面关于此过程的参数Index的叙
随机试题
______道德观认为,能给行为影响所涉及的大多数人带来最大利益的行为才是,善的。
下列除哪项外,均可引起血清钾增高()
首次产前检查的时间应在
①通货膨胀必然会降低人们的实际收入,从而降低人们的生活水平。②通货膨胀会造成国民收入的重新分配。③菲利普斯曲线反映了通货膨胀与失业率之间的相互替代关系。④拉弗曲线表示税率与总税收之间的关系。以上说法中正确的是()。
某股份有限公司已向银行贴现的商业承兑汇票,不包括在资产负债表中的“应收票据”项目中。()
科学家们预言,21世纪将是生物学世纪。生物学世纪将在三个领域中到来:医药、环境整治和农业。以清除污染为例,新的研究表明,在进化的过程,自然界曾反复地从微生物中增加或减少基因簇,就像调试计算机时增加或减少程序一样。既然自然界能这样做,今天的操纵者也
Agingbabyboomersaredeterminedtofighttheagingprocess.Theyspendmillionsofdollarsayearon【C1】________theyperceive
Anumberofrecentbookshavereworkedsubjects,formsandwritingtechniques.Today’schildrenreadstoriesaboutdivorce,deat
NexusWireYourUltimateLinktotheWorldPOSITIONSAVAILABLE:Toupholdourreputationasoneofthemostwidelyreadnewsmaga
Musiccomesinmanyforms;mostcountrieshaveastyleoftheirown.【C1】____.theturnofthecenturywhenjazzwasborn,Ameri
最新回复
(
0
)