首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sit4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0~100范围内所有偶数的平方和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sit4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0~100范围内所有偶数的平方和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数
admin
2020-08-10
49
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/ACS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有1个名称为HScroll1的水平滚动条,其Max、Min属性分别设置为100、1;有2个名称分别为Option1、Option2的单选按钮,其标题分别为“30”、“50”;还有下面程序代码:PrivateSubOption1_Click()
在窗体上画一个命令按钮和一个标签,其名称分别为Commandl和Labell,然后编写如下事件过程:PrivateSubCommandl_Click()Dimarr(10)Fori=6To10arr(i)=i一5NextiLa
窗体上有1个名称为Text1的文本框;1个名称为Timerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrivateSubTimerl_Timer()StaticflagAs
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组arr中数组元素的个数是
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
用语句Open”C:\teac.txt”ForInputAs#打开文件后,就可以编程序
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是
以下关于文件的叙述中,错误的是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivmeSubCommand1_Click()DimslAsString,s2AsString
随机试题
【B1】【B3】
下列哪项是进行物质交换的主要部位
中医治疗病毒性脑炎痰热壅盛证的首选方剂是
下列哪种叙述是错误的
大型复杂关键设备和成套设备一般采用()订货方式。
简述企业物流合理化的途径。
你在单位里很能干。很受领导重视。但此时新来一个同事。比你更有才能。你将怎么处理和他的关系?
黄炎培认为职业教育的“第一定义”是()
ECO-TOURISMIfyoustillbelievetheonce-commonlyheldmisconceptionthattourismisonlyanindulgenceforthewealthy,yo
Allflights__________(由于暴雪而被取消),manypassengerscoulddonothingbuttakethetrain.
最新回复
(
0
)