首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件为vbsj3.frm,在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情况
(1)在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件为vbsj3.frm,在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情况
admin
2017-03-27
56
问题
(1)在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件为vbsj3.frm,在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情况如图3—144所示。在窗体的代码窗口中,已给出了部分程序,其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的其他部分,只在Function Fun()和End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前,必须至少正确运行一次程序,将结果显示在文本框中,否则无成绩。最后把修改后的文件按原文件名存盘。
说明:数组arr中共有40个元素,“数组arr中每个元素与其下标相除所得的和”,是指:arr(1)/1+arr(2)/2+arr(3)/3+…+arr(40)/40
程序源码:
End SUb
Function Fun(a() As Single)As Single
’由考生编写==============
End Function
Private Sub cmdCal C1iCk()
Dim arr,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,_
6.1,73.6,49.3,48.3)
For i=1To UBound(arr)
arr2(i)=arr(i)
Next i
r=Fun(arr2())
txtResul-t.Text=Str(r)
SaveData
End Sub
Sub SaveData()
Open"out3.txt"For Output As#1
rint#1,txtResult.Text
CloSe1
End Sub
(2)在考生文件夹下有一个工程文件vbsj4.vbp。程序运行后,如果单击“开始”按钮,则图片自左向右移动,同时滚动条的滑块随之移动,每0.5秒移动一次。当图片完全移出窗体的右边界时,立即再从窗体的左边界开始重新移动,若单击“停止”按钮,则图片停止移动,如图3—145所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
程序源码:
Private Sub cmdStart_Click()
Tmr1.Enabled=True
End Sub
Private Sub cmdStop Click()
’Tmr1.Enabled=?
End Sub
Private Sub Form Load()
Hsb1.Min=0
Hsb1.Max=Me.Width
’Tmr1.Interval=?
End Sub
Private Sub Tmr1_Timer()
Pic1.Left=Pic1.Left+200
’IfPic1.Left>?Then
’Pic1.Left=?
End If
HScroll1.Value=Pic1.Left
选项
答案
第1小题 步骤1:打开考生文件夹下的工程文件vbsj3.vbp。 步骤2:进入代码编辑窗口,在Function Fun()和End Function之间输入以下代码。 参考代码: Function Fun(a()As Single)As Single Dim sum As Single Dim i As Integer For i=LBound(a)To UBound(a) sum=sum+a(i)/i Next Fun=sum End Function 步骤3:按要求将文件保存至考生文件夹中。 第2小题 步骤1:打开考生文件夹下的工程文件vbsj4.vbp。 步骤2:进入代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Tmr1.Enabled=False Tmr1.Interval=500 If Pic1.Left>Me.Width Then Pic1.Left=0 步骤3:按要求将文件保存至考生文件夹中。
解析
第1小题:由本题所提供源程序可知,要求编写一个求数组中各元素与其下标相除所得的和,并在文本框中显示出来的函数。设计思路:利用For循环浯句,将数组中各元素除以其下标(表达式为:a(i)/i)的值累加入一个变量(如sum)。循环变晕的初值和终值可分别通过函数Lbound(a)和Ubound(a)获得。
第2小题:本题源程序利用计时器的Timer。事件来控制图片的移动,因此单击“开始”按钮启动计时器,而单击“停止”按钮就是要停止计时器。在计时器的Timer事件过程中,通过每次使图片框的Left属性值增量200实现移动,并让水平滚动条滑块的位置随图片框的Left属性值变化。当图片完全移出窗体的右边界(即Pic1.Left>Me.Width)时,则重新从窗体左边界开始移动,即Pic1.Left=0。由于题目要求不能在设计阶段修改控件属性,要想在单击“开始”按钮时能启动计时器,就需在窗体加载事件过程中设置计时器的Interval属性,即Tmr1.Interval=500。
转载请注明原文地址:https://kaotiyun.com/show/4mGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体的属性可在属性窗口中设置,也可在程序中用【】语句动态设置。
如果要在菜单中添加一个分隔线,则应将其Caption属性设置为
假定有一个菜单项,名为Menultem,为了在运行时使该菜单项失效(变灰),应使用的语句为
下列不能打开菜单编辑器的操作是()。
如果在程序中要将c定义为静态变量,且为整型数,则应使用的语句是
执行下面的程序段后,S的值为【】。s=5Fori=2.6To4.9Step0.6s=s+1Nexti
在程序运行时,可以通过______方法来移动滚动条的位置。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()a$="321":b$="abc"Forj=1To5PrintMid$(a$,6-j,1)+Mid$(b$,
产生[10,27]之间的随机整数的VisualBasic表达式是
随机试题
简要说明商标与商品名称的区别。
更年期症状明显,并伴膀胱炎可选用青春期功血可选用
【2012年真题】某产品目标总成本为1000元,各功能区现实成本及功能重要性系数见下表,则应降低成本的功能区有()。
铝合金门窗安装中,五金配件与门窗连接应采用()。
2013年5月5日,甲公司因中标一项桥梁工程向乙公司订制一批特种水泥预制构件。双方在合同中约定:图纸和钢筋由甲公司提供;水泥由乙公司提供;加工费为150万元,甲公司预付50万元;交货日期为2013年9月1日;交付地点为甲公司的工地。合同签订后,甲公司签发了
假设某银行今年的净利润为5000万元。资产总额为500000~。负债总额450000万元,则该银行资本利润率为()。
提出“智商”概念的是()
Picture-takingisatechniquebothforreflectingtheobjectiveworldandforexpressingthesingularself.Photographsdepicto
ThechangesingloballyaveragedtemperaturethathaveoccurredattheEarth’ssurfaceoverthepastcenturyaresimilarinsize
社会科学正变得日益繁荣。【T1】截自2005年,几乎有近50万来自世界各个领域的专业社会科学家在学术界内外工作。《世界社会科学报告2010》指出,从2000年开始,全球的社会科学学生大约以每年11%的速度增长。然而,【T2】这一巨大的资源尚不足以应对当今
最新回复
(
0
)