首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sit4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0~100范围内所有偶数的平方和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sit4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0~100范围内所有偶数的平方和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数
admin
2020-08-10
63
问题
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sit4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0~100范围内所有偶数的平方和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数平方和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun( )和End Function之间填入你编写的若干语句,最后将修改后的文件按原文件名存盘。
选项
答案
根据题意,通过For循环语句的循环变量i(初值为0,终值为100,步长为2)来获得0~100范围内的所有偶数,并逐一将i^2的值累加到变量s,最后将s的值显示在文本框中,并将其作为函数返回值。 步骤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 T0 100 if i Mod 2=O Then s=s+i^2 End If Next i Fun=s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/8SHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
用语句Open”C:\teac.txt”ForInputAs#打开文件后,就可以编程序
下面哪个属性肯定不是框架控件的属性
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
以下关于文件的叙述中,错误的是
设工程中有2个窗体:Form1和Form2,每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中,应进行的操作是
在VB中,函数过程与子程序过程的区别之一是
窗体上有一个由两个文本框组成的控件数组,名称为Textl,并有如下事件过程:PrivateSubTextl_Change(IndexAsInteger)SelectCaseIndex
随机试题
下列关于火灾探测器的安装要求正确的是()。
下列药物中,属于厥阴头痛引经药的是
母体免疫球蛋白能通过胎盘转移给胎儿的是
基金宣传推介材料可以登载该基金、基金管理人管理的其他基金的过往业绩,但基金合同生效不足()个月的除外。
(2017·广东)我国中小学课桌的摆放多呈“秧田式”,但是这种格局不利于师生之间的交往以及生生之间的交往。()
《公安机关人民警察内务条令》和《人民警察法》一样,是由全国人大常委会颁布实施的。()
一、注意事项1.申论考试是对考生阅读理解能力、综合分析能力、提出和解决问题能力、文字表达能力的综合测试。2.仔细阅读所给材料,按照后面提出的“申论要求”依次作答。二、给定资料1.自2006年起,桂剧、黔剧、花灯戏等一个又一个地方
计算下列不定积分:
与Novell文件服务相关的文件存储概念是什么?NSS的含义是什么?
Itisacommonplaceamongmoraliststhatyoucannotgethappinessbypursuingit.Thisisonlytrueifyoupursueit【C1】______
最新回复
(
0
)