首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件为vbsj3.frm,在窗体上有…个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情况如图3
在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件为vbsj3.frm,在窗体上有…个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情况如图3
admin
2019-06-11
30
问题
在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件为vbsj3.frm,在窗体上有…个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情况如图3-55所示。在窗体的代码窗口中,已给出了部分程序,其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的其他部分,只在Function Fun()和End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前,必须至少正确运行一次程序,将结果显示在文本框中,否则无成绩。最后把修改后的文件按原文件名存盘。
说明:数组arr中共有40个元素,“数组arr中每个元素与其下标相除所得的和”,是指:arr(1)/1+arr(2)/2+arr(3)/3+…+arr(40)/40
程序源码:
Optlon Base 1
Function Fun(a() As Single) As Single
′由考生编写==============
End Function
Private Sub cmdCal_Click()
Dim arr
Dim arr2(40) As Single
arr=Array(12.5, 65.4, 56, 73, 46.23,_
58.25, 83.49, 96, 27.3, 36.78,_
29.26, 89.4, 34.7, 45.4, 56.9,_
67.4, 78, 98, 87.5, 76.8, 34.6,_
55.8, 64.7, 43.7, 99.4, 84.7,_
66.2, 23.9, 55.5, 44.1, 33.2,_
43.5, 41.2, 28.3, 78.6, 98.3,_
56.1, 73.6, 49.3, 48.3)
For i=1 To UBound(arr)
arr2(i)=arr(i)
Next i
r=Fun(arr2())
txtResult.Text=Str(r)
SaveData
End Sub
Sub SaveData()
Open "out3.txt" For Output As #1
Print #1, txtResult.Text
Close 1
End Sub
选项
答案
审题分析 由本题所提供源程序可知,要求编写一个求数组中各元素与其下标相除所得的和,并在文本框中显示出来的函数。设计思路:利用For循环语句,将数组中各元素除以其下标(表达式为:a(i)/i)的值累加入一个变量(如sum)。循环变量的初值和终值可分别通过函数Lbound(a)和Ubound(a)获得。 操作步骤 步骤1:打开考生文件夹下的工程文件vbsj3.vbp。 步骤2:进入代码编辑窗口,在Function Fun()和End Function之间输入以下代码: 参考代码: Function Fun(a() As Single) As Single Dim sum As Sinale Dim i As Integer For i=LBound(a) To UBound(a) sum=sum+a(i)/i Next Fun=sum End Function 步骤3:按要求将文件保存至考生文件夹中。 考点链接 数组定义与操作、参数传递、Sub过程和函数过程
解析
转载请注明原文地址:https://kaotiyun.com/show/fJUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。
结构化程序设计的基本原则不包括()。
在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签,其标题内容为“欢迎使用本系统”,标题文字字体和字号分别为“宋体”、“三号”,标签大小能根据标题内容自动调整,效果如图所示。程序执行时,窗体的最大化按钮不可用(如图所示),请设置相应属
以下关于窗体的叙述中,错误的是()。
以下关于控件数组的叙述中,正确的是()。
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:1)程序运行时,文件列表框显示当前文件夹中的所有扩展名为jpg的文件。2)双击文件列表框中某个图片文件名时,能在图像框中显示出该张图片,并将该图片文件的信息(包括路径
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommandl_Crick()x=0DoWhilex<50x=
下面正确使用动态数组的是()。
在考生文件夹中有一个工程文件sjt3.vbp。程序的功能是输入用户名和密码。程序运行时,当输入密码到文本框Text2中时,如果“显示密码”复选框没有被选中,则在文本框‘Text3中同时显示“#”(如图所示);如果“显示密码”复选框被选中,再重新输入密码时,
随机试题
气雾剂的优点有
人际吸引的特征表现为认知协调、情感和谐与()。
按照交易对象分类,电子商务可以分为_______、_______、_______、_______。
在整个组织文化中处于核心地位,为组织文化灵魂的是()
Theyareoneintenofuswhoareleft-handedandmustfacetheworlddesignedfortheright--handedmajority.(PassageOne)
如果受盘人甲将发盘转让给乙公司,则乙公司可以直接向发盘人表示接受。
遗传工作者在进行遗传病调查时发现了一个甲、乙两种单基因遗传病的家系,系谱如下图所示,请回答下列问题(所有概率用分数表示):如果Ⅱ—4、Ⅱ—6不携带致病基因,按照甲、乙两种遗传病最可能的遗传方式,请计算:①双胞胎(Ⅳ—1与Ⅳ—2)同时患有甲种
Thehuman-rightsorganizationsarenolongersoinfluentialinthat______Socialandeconomicrightsaremainlyemphasizedin
Whatisthemainideaofthefirstparagraph?WhichofthefollowingisNOTincludedintheprescriptionoftraditionalfree-ma
We’llgototheGreatWailifit______thisWeekend.
最新回复
(
0
)