首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sit4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0~100范围内所有偶数的平方和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sit4.frm,在窗体上有一个文本框和一个命令按钮。当程序运行后,单击命令按钮,即可计算出0~100范围内所有偶数的平方和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算偶数
admin
2020-08-10
86
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
以下关于多重窗体程序的叙述中,错误的是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Dimx1AsInteger,x2AsInteger,x3AsInteger
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组arr中数组元素的个数是
在VB中,函数过程与子程序过程的区别之一是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivmeSubCommand1_Click()DimslAsString,s2AsString
设有如下程序:PrivateSUbFormClick().num=InputBox(“请输入一个实数”):P:InStr(num,“.”)Ifp>0ThenPrintMid(num,P+1)Prim“END”EndIf运行程序单击窗
设有下面程序代码:PrivateSubCommand1_Click()DimstrAsString,chAsStringstr="VisualBasicProgramming"ch="a"n=fun(ch,st)Prints
随机试题
不能用水灭火的是()。
女性正常排卵的黄体
下列各项,符合正常Q波的是
患者女,50岁,工人,高中文化,有听力障碍。护士在病室与其沟通时,不妥的方式是
规划和设计如何进行项目的风险管理活动的过程是指( )。
货运汽车按照载重吨位可分为:微型货车(1.8吨以下)、轻型货车(1.8~5吨)、中型货车(5~14吨)、重型货车(14吨以上)。()
若个别外国旅游者在旅游团的活动结束后,确有特殊原因需要留下,必须办理(),导游人员应请示旅行社,然后向其提供必需的帮助,陪同旅游者持旅行社的证明、其本人护照及集体签证,去公安局办理,协助其重订航班、机位,帮其订妥客房等。
1980年,在中央工作会议上的讲话中,邓小平正式使用了“对外开放”的表述。后来,党的中央全会把实行对外开放定为基本国策,这次中央全会是
求下列微分方程的通解或在给初值条件下的特解.(xy2+x)dx+(y一x2y)dy=0;
A、Itwillbesunny.B、Itwillbeverycold.C、Itwillbewindy.D、Itwillberainy.B由女士提到的hereistheweatherforecast.Strong
最新回复
(
0
)