首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹下的工程文件sjt3.vbp中有两个初始标题分别为“移动”和“退出”的命令按钮;一个初始状态为不可用的时钟Timer1。请添加一个标签Label1,其标题为“计算机考试”,字体为黑体小四号字,左边界为500,且能根据显示的内容自动调整大小,
(1)考生文件夹下的工程文件sjt3.vbp中有两个初始标题分别为“移动”和“退出”的命令按钮;一个初始状态为不可用的时钟Timer1。请添加一个标签Label1,其标题为“计算机考试”,字体为黑体小四号字,左边界为500,且能根据显示的内容自动调整大小,
admin
2015-06-30
38
问题
(1)考生文件夹下的工程文件sjt3.vbp中有两个初始标题分别为“移动”和“退出”的命令按钮;一个初始状态为不可用的时钟Timer1。请添加一个标签Label1,其标题为“计算机考试”,字体为黑体小四号字,左边界为500,且能根据显示的内容自动调整大小,如图所示。程序功能如下:
①单击标题为“移动”的按钮时,该按钮标题自动变换为“暂停”,且标签在窗体中开始向右移动。当标签右侧到达窗体右界时,标签移动的方向改变为从右向左移动;当标签左侧触及窗体左界时,标签移动的方向改变为从左向右移动,如此反复。
②单击标题为“暂停”的按钮时,该按钮的标题自动变换为“移动”,并暂停标签内容的移动。
③单击“退出”按钮,则结束程序的运行。
命令按钮的Click事件过程已经给出,但事件过程不完整,请将其中注释符去掉,把?改为正确的内容,以实现上述程序的功能。
注意:不得修改窗体文件中已经存在的控件和程序,最后将修改后的文件按原文件名进行存盘。
(2)考生文件夹下的工程文件sjt4.vbp中有一个标题为“编号”的标签Label1,一个用于接收选手编号的初始文本为空的文本框Textl;一个含有10个元素的文本框控件数组Text2,用于接收10个评委对某选手的打分;另有一个含有10个元素的标签控件数组Label2用于显示评委名称:“评委1”、“评委2”……,还有一个标题为“统计得分”的命令按钮。请再添加一个图片框Picturel,两个根据显示的内容自动调整大小、标题分别为“选手编号”和“得分”的标签Label3和Label4,如图所示。
程序功能如下:
在Text1文本框中输入选手编号,并在Text2文本框控件数组中输入10个评委对该选手的打分情况后,单击“统计得分”按钮,则对10个评委的打分去掉一个最高分和一个最低分之后求平均分,该平均分即为选手的最后得分。最后将选手编号和得分显示在图片框Picturel中,并将Text1、Text2的内容置为空。
命令按钮的Click事件过程已经给出,但是事件过程并不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名进行存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件,并设置控件的属性。程序中涉及的控件及属性见表3.129。 [*] 步骤2:分析并编写程序代码。 程序提供代码 Dim flag As Integer Private Sub Form_Load() flag = 0 End Sub Private Sub Command1_Click() If Command1.Caption = "移动" Then ’Timer1.Enabled = ? Command1.Caption = "暂停" Else Timer1.Enabled = False Command1.Caption = "移动" End If End Sub Private Sub Command2_Click() End End Sub Private Sub Timer1_Timer() Select Case flag Case Is = 0 ’’Label1.Left = Label1.Left ? 100 If Label1.Left + Label1.Width = Form1.Width Then flag = 1 Case Is = 1 ’Label1.Left = Label1.Left ? 100 If Label1.Left = 0 Then flag = 0 End Select End Sub 程序结束 参考答案 第1个?处填入:True 第2个?处填入:+ 第3个?处填入:- 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件,添加两个标签和一个图片框,属性见下表3.130。 [*] 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() If Len(Text1) = 0 Then MsgBox "选手编号不能为空,请检查!" , "检查" Exit Sub End If For n = 0 To 9 If Len(Text2(n)) = 0 Then MsgBox "评委给分不能为空,请检查!", "检查" Exit Sub End If Next n Max = Val(Text2(0)): Min = Val(Text2(0)) Sum = Val(Text2(0)) ’ For n = ? To 9 Select Case Val(Text2(n)) ’Case Is ? Max Max = Text2(n) ’Case Is ? Min Min = Text2(n) End Select ’Sum = ? + Val(Text2(n)) Next n score = (Sum - Max - Min) / 8 Picture1.Print Text1; Space(5); score Text1 = "" For n = 0 To 9 Text2(n) = "" Next n End Sub 程序结束 参考答案 第1个?处填入:1 第2个?处填入:> 第3个?处填入:< 第4个?处填入:Sum 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/cuQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
随机生成的10个两位数,求出它们的总和与平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。说明:在窗体上有一个Commandl按钮,单击它将计算10个随机数的和与平均数,
下列程序段执行后,执行的结果是______。DimM(10)DimN(10)i=3Forj=1To5M(j)=jN(i)=2*i+
在鼠标事件过程MouseDown和MouseUp中,参数Button的值为1、2、4时,分别代表按下鼠标的______、______和______按钮。
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是()。
设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:PrivateSubCommand1_Click()DimaAsInteger
在结构化方法中,用数据流程图(DF)作为描述工具的软件开发阶段是
下列关于队列的叙述中正确的是
以下关于图片框控件的说法中,错误的是
语句DimArr(3To5,-2To2)定义的数组的元素个数是()。
假设有以下程序段:Fori=1To3Forj=5To1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是______,i的值为______,j的值为___
随机试题
关于现浇预应力混凝土连续梁施工的说法,正确的有()。
采用电子计算机进行会计核算的单位,没必要保存打印出的纸质会计档案。()
某化工生产企业(一般纳税人),兼营出口业务与内销业务。2011年10月、11月发生以下业务:(1)10月份业务如下:①国内采购原材料,取得防伪税控系统开具的增值税专用发票,注明增值税额14.45万元,发票已经税务机关认证,材料已验收入库
下列导游员对旅游交通故障的处理方式中,正确的是()。
关于离子键与共价键的各种叙述中,正确的是()。
把快乐分肉体的和精神的两种,这是最糊涂的分析。一切快乐的享受都属于精神的,尽管快乐的原因是肉体上的物质刺激。小孩子初生下来,吃饱了奶就乖乖地睡,并不知道什么是快活,虽然它身体感觉舒服。原因是小孩子的精神和肉体还没有分化,只是混沌的星云状态。洗一个澡,看一朵
瓶内装有酒精,倒进500ml以后又倒出一半,又倒进500ml,这时瓶内有酒精1200ml,据此可知瓶内原有酒精()。
下列不属于操作查询的是()。
A、 B、 C、 D、 C图中描绘的是室外的场景,因此要注意建筑物或是树木的状态以及人物的动作。(A)从图中看不到有人在用砖块铺马路。(B)图上有小孩子,但是他们并不是在爬树,所以此项是错误的。(C)从图中可
A、TheentireEuropeancoastlinewillbesubmerged.B、TherichheritageofEuropewillbelostcompletely.C、TheseawaterofEuro
最新回复
(
0
)