首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为Sjt3.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为Sjt3.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程
admin
2015-06-30
38
问题
(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全国计算机二级
相关试题推荐
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请填空。OptionBase1PrivateSubForm_Click()Dimxx=Array(57,-9,
下面程序运行后,窗体中显示【】。PrivateSubCommand1_Click)()aS="*":b$="$"Fork=1To3x$
数据库保护分为:安全性控制、【】、并发性控制和数据的恢复。
子程序通常分为两类:【】和函数,前者是命令的抽象,后者是为了求值。
只有当一个对象的______和______属性为True,它才能获得焦点。
表达式5Mod3+3\5*2的值是
数据字典是各类数据描述的集合,它通常包括5个部分,即数据项、数据结构、数据流【】和处理过程。
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于【】的联系。
下列数据结构中,能用二分法进行查表的是______。
两个或两个以上模块之间联系的紧密程度称为()。
随机试题
证明:设f在[0,+∞)上连续,0<a<b.
下列成本中属于决策无关成本的是
Cotton,likesilk,wasdiscoveredandmade【61】clothbymanbeforethehistoricalperiod【62】.ItsfirstrecordedusewasinIndia
急性颜面或下肢感染伴发热,病变呈鲜红色,边缘稍隆起,与正常皮肤界限清楚,指压可使红色消退,压力除去后红色很快恢复。最可能的诊断是
妇女,36岁,孕2产1,下腹痛伴白带多2个月,妇检阴道粘膜充血,宫颈举痛,子宫正常大,双侧附件增厚,左侧呈条状,压痛明显。测腋下体温37.6℃,此时医生不应采取的检查为
急性心肌梗死24小时内禁用()
下列各项中,不符合资产定义的是()。
针对“存货过时或者状况恶化,以至于其账面价值可能超过了可变现净值”的风险,注册会计师可以采取的最有效的控制测试是()。
麦克风:话筒
Unlesswespendmoneytospotandpreventasteroidsnow,onemightcrashintoEarthanddestroylifeasweknowit,saysomesci
最新回复
(
0
)