首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为Sjt3.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为Sjt3.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程
admin
2015-06-30
58
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为Sjt3.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:
请勿改动程序中的其他部分,只在Function Fun()和End Function之间填入你编写的若干语句并运行程序。最后把修改后的文件按原文件名存盘。
说明:
数组arr中共有40个元素,所谓“数组arr中每个元素与其下标相除所得的和”,指的是:
a11r(1)/1+arr(2)/2+arr(3)/3+…+arr(40)/40
(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。在窗体上有两个命令按钮,其名称分别为Command1、Command2,一个标签控件,其名称为Label1,一个计时器控件,其名称为Timer1,如图1所示。程序运行后,在命令按钮Command1中显示“开始”,在命令按钮Command2中显示“停止”,在标签中用字体大小为16的粗体显示“热烈欢迎”(标签的AutoSize属性为True),同时把计时器的Interva1属性设置为50,Enabled属性设置为True。此时如果单击“开始”命令按钮,则该按钮变为禁用,标题变为“继续”,同时标签自左至右移动,每个时间间隔移动20,如图2所示,移动出窗体右边界后,自动从左边界开始向右移动;如果单击“停止”命令按钮,则该按钮变为禁用,“继续”命令按钮变为有效,同时标签停止移动;再次单击“继续”命令按钮后,标签继续移动。这个程序不完整,请把它补充完整,并能正确运行。
要求:
去掉程序中的注释符,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Function Fun(a() As Single) As Single ’需要考生编写的内容 End Function Private Sub Command1_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()) Text1.Text = Str(r) SaveData End Sub Sub SaveData() Open App.Path & "\out3.txt" For Output As #1 Print #1, Text1.Text Close 1 End Sub 程序结束 参考答案 Sum = 0 For i = 1 To UBound(a) Sum = Sum + a(i) / i Next i Fun = Sum 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Form_Load() Command1.Caption = "开始" Command2.Caption = "停止" Timer1.Interval = 50 Timer1.Enabled = False Label1.Caption = "热烈欢迎" Label1.AutoSize = True Label1.FontSize = 16 Label1.FontBold = True End Sub Private Sub Command1_Click() Command1.Caption = "继续" Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Command2.Enabled = False Command1.Enabled = True End Sub Private Sub Timer1_Timer() If Label1.Left < Form1.Width Then Label1.Left = Label1.Left + 20 Else Label1.Left = 0 End If End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/hVQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列选项中不属于结构化程序设计方法的是()。
计算For循环次数的公式是______。
已知代数式eXSin(30°)2x/(x+y)Lnx,则正确的VisualBasic表达式为()。
待排序的关键码序列为(33,18,9,25,67,82,53,95,12,70),要按关键码值递增的顺序排序,采取以第一个关键码为基准元素的快速排序法,第一趟排序后关键码33被放到第()个位置。
下面运行程序后,单击命令按钮,输出出的结果是【】。PrivateSubCommand1_Click()Dima%(1To5),i%,s#Fori=1To5
若A=20,B=80,C=70,D=30,则表达式A+B>160Or(B*C>200AndNotD>60)的值是【】。
假定窗体上有一个标签,名为Labe11,为了使该标签透明并且没有边框,则正确的属性设置为______。
以下说法错误的是______。
首先执行循环体,然后再进行条件判断,决定是否结束循环的循环语句是______。
用二维表来表示实体及实体之间联系的数据模型称为______。
随机试题
下列除哪项原因引起的出汗外,都属生理性出汗
A、药物在体内的代谢和排泄过程B、药物的吸收、分布、代谢和排泄C、药物在体内受酶系统或肠道菌丛的作用发生结构转化的过程D、当药物在体内分布达到动态平衡时,体内药量与血药浓度的比值E、某些药物可使体内药酶活性、数量升高
A.异体真皮+自体薄皮B.大张中厚皮,多用于功能部位C.应用轧皮机在中厚皮片切出网孔D.皮片大小通常为0.5cm×0.5cm,皮片间距1.0cmE.创面为肉芽组织复合皮移植的特点是
A.风水泛滥B.湿毒浸淫C.水湿浸渍D.湿热壅盛E.脾阳虚衰患者水肿日久,腰以下肿甚,按之凹陷不起,畏寒肢冷,尿少,舌淡苔白滑,脉沉弱。其证候是
痰邪致病,其性广泛、变化多端的原因是
卫生法的基本原则中属于我国卫生工作基本方针和政策的是
该病人的乳癌分期为( )。此病人术前备皮范围是( )。
制造业的原材料按其在生产经营过程中的不同作用,一般可分为( )。
改革开放以来,随着我国经济持续高速增长,我国城乡居民的收入在不断提高,但同时城乡居民收入分配差距也在不断扩大,2009年城镇居民人均可支配收入与农村人均纯收入相差12022元,农村人均纯收入还不到城镇人均可支配收入的l/3,从相对数来看,城乡居民收入比从1
情景:今天你到广州的一家超市购物遇见一群英国游客,他们明天想去广州动物园参观,向你打听该园的门票价格和开放时间。请你根据下面表格小的内容向他们作个介绍。并顺便提醒他们一些你认为参观时应注意的事项。票价开放时间成人80元/人星期一至星期五上午9:
最新回复
(
0
)