首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件为vbsi3.frm,在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组ari。中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件为vbsi3.frm,在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组ari。中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情
admin
2016-03-22
46
问题
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件为vbsi3.frm,在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组ari。中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情况如图3-55所示。在窗体的代码窗口中,已给出了部分程序,其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的其他部分,只在Function Fun()和End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前,必须至少正确运行一次程序,将结果显示在文本框中,否则无成绩。最后把修改后的文件按原文件名存盘。
说明:数组art中共有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,5 6,73,4 6.2 3,
58.25, 83.4 9, 9 6, 27.3, 36.7 8,
2 9.2 6, 8 9.4, 34.7, 45.4, 56.9,
67.4, 7 8, 98, 87.5, 7 6.8, 34.6,
55.8, 64.7, 4 3.7, 9 9.4, 8 4.7,
6 6.2, 2 3.9, 5 5.5, 4 4.1, 3 3.2,
4 3.5, 4 1.2, 2 8.3, 7 8.6, 98.3,
5 6.1, 7 3.6, 4 9.3, 4 8.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
(2)在考生文件夹下有一个工程文件vbsj4.vbp。程序运行后,如果单击“开始”按钮,则图片自左向右移动,同时滚动条的滑块随之移动,每0.5秒移动一次。当图片完全移出窗体的右边界时,立即再从窗体的左边界开始重新移动,若单击“停止”按钮,则图片停止移动,如图3.56所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
程序源码:
Private Sub cmdStart Click()
Tmr1.Enabled=True
End Sub
Private Sub cmdStop Click()
Tmr1.Enabled=?
End Sub
Private Sub Form IJoad()
Hsbl.Min=0
Hsbl.Ha.x=Me.Width
Tmrl.Interval=?
End Sub
Private Sub Tmrl Timer()
Picl.Left=Picl.Left+200
If Picl.Left>?Then
Picl,Left=?
End If
HScrolll.Value=Picl.Left
End Sub
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件夹下的工程文件vbsj3.vbp。 步骤2:进入代码编辑窗口,在Function Fun()和EndFunction之间输入以下代码: 参考代码: Function Fun(a()As Single)As Single Dim sum As Single Dim i AS Inteqer For i=LBound(a)To UBound(a) sum=sum+a(i)/i Next Fun=Sum End Function 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件夹下的工程文件vbs]4.vbp。 步骤2:进入代码编辑窗口,去掉程序中的注释符“¨”,将问号“?”改为正确的内容。 参考代码: Tmr1.Enabled=FalSe Tmr1.Interval=500 If Picl.Left>Me.Width Then Picl.Left=0 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/20Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
负责数据库中查询操作的数据库语言是
列表框中的项目保存在一个数组中,这个数组的名字是
以下关于过程及过程参数的描述中,错误的是
下列选项中不属于结构化程序设计方法的主要原则的是
下列选项中不属于软件生命周期开发阶段任务的是():
如果准备读文件,打开顺序文件”text.dat”的正确语句是()。
下列叙述中正确的是
需求分析阶段的任务是确定
下面不属于需求分析阶段任务的是
在数据库系统的组织结构中,下列()映射把用户数据库与概念数据库联系了起来。
随机试题
机械堵水可根据油层含水变化情况调整封堵层位,避免对油层()。
依沙吖啶引产的适应证,哪项是不恰当的
男性18岁,阵发性晨间咳嗽3周,偶胸闷、憋气,查体双肺偶闻哮鸣音,追问病史患者2个月前有上呼吸道感染史,闻刺激性气味引起咳嗽,为明确诊断,下列哪项检查最有价值
甲省乙市工商局和市消费者协会在对烟酒市场进行联合检查的过程中,认为该市某商场销售的茅台酒是假冒产品,于是共同署名对该商场作出停止销售假酒、罚款1万元和销毁剩余假酒的处理决定,并由市消费者协会于当日组织人员将价值10万元的假酒予以销毁。该商场对此决定不服,申
(2017年改)甲有限责任公司(以下简称甲公司)是生产多种产品的制造企业,为增值税一般纳税人,适用的增值税税率为13%,原材料采用实际成本法核算,发出材料成本采用月末一次加权平均法计算。2020年1月1日,M材料库存数量为500千克,每千克实际成本为200
IS09000中定义的质量管理主要包括________过程。
最近,某校就“理想职业”展开一次调查。下表是你调查的情况,根据表格内容写一篇英语短文。注意:词数80左右(短文的开头和结尾已给出,不计人词数)。Recentlywedidasurveyinordertolearnaboutpeop
Ourape-menforefathershadnoobviousnaturalweaponsinthestrugglefor【C1】______intheopen.Theyhadneitherthepowerfult
A、1476.B、1500s.C、1600s.D、1607.B短文中提到,到16世纪英语成为我们能够听懂的现代语言,故选B项。
Hewasashamedof______(他那样对年迈的母亲说话).
最新回复
(
0
)