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

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

admin2015-06-30  43
问题  (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://jikaoti.com/ti/Qw60FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)