首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为Sjt3.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为Sjt3.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程
admin
2015-06-30
40
问题
(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全国计算机二级
相关试题推荐
表达式(7\3+1)*(18\-1)的值是______。
在VisualBasic中可以建立【】菜单和【】菜单。
执行下面程序,第一行输出结果是【】,第二行输出结果是47。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2
下列可作为VisualBasic变量名的是______。
对象实现了数据和操作的结合,使数据和操作______于对象的统一体中。
下面程序运行后,窗体中显示【】。PrivateSubCommand1_Click)()aS="*":b$="$"Fork=1To3x$
子程序通常分为两类:【】和函数,前者是命令的抽象,后者是为了求值。
关系模型的完整性规则是对关系的某种约束条件,包括实体完整性、【】和自定义完整性。
下列关系运算的叙述中,正确的是
数据字典是各类数据描述的集合,它通常包括5个部分,即数据项、数据结构、数据流【】和处理过程。
随机试题
机会成本是指()
女,60岁,间歇性右上腹疼痛10年,疼痛向右肩放射,近一周再发右上腹疼痛。查体:右上腹可扪及10cm×8cm包块,张力高,局部压痛、反跳痛,腹肌紧张。行上腹部磁共振平扫及MRCP检查提示胆囊颈结石并胆囊炎。磁共振的禁忌证不包括下列
男性,26岁,农民,5天来发热、畏寒,1天来头痛、呕吐2次,于8月15入院,T39.6℃,球结膜充血,颈有抵抗,腹股沟淋巴结肿大,有压痛,腓肠肌有压痛,尿蛋白(++)。诊断应考虑
企业在确定组织结构类型时所需考虑的因素有()。
下列选项中,符合房地产经纪人执业资格考试报名条件的是()。
影子汇率换算系数越高,外汇的影子价格越高,产品是可外贸货物的项目效益较高,评价结论会()出口方案。同时外汇的影子价格较高时,项目引进投入物的方案费用较高,评价结论会()引进方案。
单位日常工作中,有些事情时间紧急但不是很重要,有些事情非常重要但不是很紧急。你处理这些事情时会怎么做?
对于一个长度为n的任意表进行排序,至少需要进行的比较次数是()。
加强网络文化建设和管理,充分发挥互联网在我国社会主义文化建设中的重要作用,有利于
Haveyouseenthismovie?Itisreallyworth(see)______.
最新回复
(
0
)