(1)考生文件夹下的工程文件sjt3.vbp中有2个初始标题分别为“移动”和“退出”的命令按钮;1个初始状态为不可用的时钟Trimerl。请添加1个标签Labell,其标题为“计算机考试”,字体为黑体小四号字,左边界为500,且能根据显示的内容自动调整大小

admin2013-11-29  25

问题 (1)考生文件夹下的工程文件sjt3.vbp中有2个初始标题分别为“移动”和“退出”的命令按钮;1个初始状态为不可用的时钟Trimerl。请添加1个标签Labell,其标题为“计算机考试”,字体为黑体小四号字,左边界为500,且能根据显示的内容自动调整大小,如图所示。程序功能如下:

    ①单击标题为“移动”的按钮时,该按钮标题自动变换为“暂停”,且标签在窗体中开始向右移动。当标签右侧到达窗体右界时,标签移动的方向改变为从右向左移动;当标签左侧触及窗体左界时,标签移动的方向改变为从左向右移动,如此反复。
    ②单击标题为“暂停”的按钮时,该按钮的标题自动变换为“移动”,并暂停标签内容的移动。
    ③单击“退出”按钮,则结束程序的运行。命令按钮的Click事件过程已经给出,但事件过程不完整,请将其中注释符去掉,把?改为正确的内容,以实现上述程序的功能。注意:不得修改窗体文件中已经存在的控件和程序,最后将修改后的文件按原文件名进行存盘。
(2)考生文件夹下的工程文件sjt4.vbp中有1个标题为“编号”的标签Iabell,1个用于接收选手编号的初始文本为空的文本框Textl;1个含有10个元素的文本框控件数组Text2用于接收10个评委对某选手的打分;另有1个含有10个元素的标签控件数组Label2用于显示评委名称:“评委1”、“评委2”…,还有1个标题为“统计得分”的命令按钮。请再添加1个图片框Pieturel,2个根据显示的内容自动调整大小、标题分别为“选手编号”和“得分”的标签Label3和Iabel4,如图所示。程序功能如下:
       在Textl文本框中输入选手编号,并在Text2文本框控件数组中输入10个评委对该选手的打分情况后,单击“统计得分”按钮,则对10个评委的打分去掉一个最高分和一个最低分之后求平均分,该平均分即为选手的最后得分。最后将选手编号和得分显示在图片框Picturel中,并将Textl、Text2的内容置为空。命令按钮的Click事件过程已经给出,但是事件过程并不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
    注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名进行存盘。

选项

答案(1)在计时器的Timer事件过程中,通过设置标签的Left属性值使其在原有基础上加100来实现自左向右移动的功能。在“开始”按钮的单击事件过程中应启动计时器,禁用“移动”按钮,并改变其标题为“暂停”。在“退出”按钮的单击事件过程中要通过End语句停止程序。 步骤1:打开本题工程型文件,并没置控件的属性。程序中涉及的控件及属性见表1。 [*] 步骤2:分析并编写程序代码。 程序提供代码 Dim flag As Integer Private Sub Form_Load() flag=0 End Sub Private Sub Command l_Click() If Commandl.Caption=“移动”Then Timerl.Enabled=? Commandl.Caption=“暂停” Else Timerl.Enabled=False Commandl.Caption=“移动” End If End Sub Private Sub Command2_Click() End End Sub Private Sub Timerl_Timer() Select Case flag Case Is=0 ‘Labell.Left=Labell.Left?100 lf Labell.LefI+Labell.Width=Forml.Width Then flag=l Case Is=l Labell.Left=Labell.Left?100 If Labell.Left=0 Then flag=0 End Select End Sub 程序结束 第1个?处填入:True 第2个?处填入:+ 第3个?处填入:- 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)在Commandl Click书件过程中,通过Len函数判断选手的编号是否为空,如果Len(Textl)=0那么弹出对话框“选手编号不能为空,清检查!”退出程序。同理,检验评委给分,如果为空弹出对话框“评委给分不能为空,请检查!”退出程序。通过For 语句和Select Case语句统计最大值、最小值以及所有评委评分总和,然后按照题目要求对lO个评委的打分去掉一个最高分和一个最低分之后求平均值,该平均分即为选手的最后得分,运用图片框的Print方法,输出选手编号和得分,并运用Space(5)输出空格函数进行调整,同时将Textl、Text2的内容置为空。 步骤1:打开本题工程文件,添加两个标签和一个图片框,属性见下表2。 [*] 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Commandl_Click() If Len(Textl)=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 Wal(Text2(13)) Case Is?Max Max=Text2(n) Case Is?Min Min=Text2(13) End Select Sum=?+Val(Text2(n)) Next n score=(Sum-Max-Min)/8 Picturel.Print Textl;Space(5);score Textl=“” For n=0 To 9 Text2(n)=“” Next n End Sub 程序结束 第1个?处填入:1 第2个?处填入:> 第3个?处填入:< 第4个?处填入:Sum 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/wWQp777K
0

最新回复(0)