2. 计算机
  3. (1)在考生文件夹下有一个工程文件sjt3．vbp，窗体中有两个控件数组，一个名称为Text，含有三个文本框；另一个名称为Cmd，含有三个命令按钮，且“暂停”按钮的初始状态为禁用，如图所示。请添加一个计时器Timer1，设置时间间隔为1秒，初始状态为禁用，

(1)在考生文件夹下有一个工程文件sjt3．vbp，窗体中有两个控件数组，一个名称为Text，含有三个文本框；另一个名称为Cmd，含有三个命令按钮，且“暂停”按钮的初始状态为禁用，如图所示。请添加一个计时器Timer1，设置时间间隔为1秒，初始状态为禁用，

admin2015-06-30  28
问题  (1)在考生文件夹下有一个工程文件sjt3．vbp，窗体中有两个控件数组，一个名称为Text，含有三个文本框；另一个名称为Cmd，含有三个命令按钮，且“暂停”按钮的初始状态为禁用，如图所示。请添加一个计时器Timer1，设置时间间隔为1秒，初始状态为禁用，并使程序实现如下功能：
    ①单击“开始”按钮，则计时器Timer1和“暂停”按钮状态变为可用，且“开始”按钮的标题变为“继续”，且状态为不可用。与此同时，Text的3个文本框开始显示计时的小时、分、秒值。
    ②单击“暂停”按钮，则Timer1停止工作，“暂停”按钮状态为禁用，“继续”按钮变为可用。
    ③单击“继续”按钮，则Timer1接着开始工作，“继续”按钮变为不可用，“暂停”按钮变为可用。
    ④单击“结束”按钮，则结束程序运行。
  要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
    (2)在考生文件下有一个工程文件sjt4．vbp，其窗体中有一个初始文本内容为空的文本框Text1，两个标题分别是“读数据”和“计算”的命令按钮。请添加一个标题为“所有行中最大数的平均值”的标签Label1，再添加一个初始文本内容为空的文本框Text2，如图所示。

  程序功能如下：
  ①单击“读数据”按钮，则将考生文件夹下iM．dat文件的内容读入20行5列的二维数组a中，同时在Text1文本框中显示。
  ②单击“计算”按钮，则自动统计二维数组中每行最大数的平均值(截尾取整)，并将最终结果在Text2文本框内显示。
    “读数据”按钮的Click事件过程已经给出，请编写“计算”按钮的Click事件过程实现上述功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
选项
答案 (1)【操作步骤】 步骤1：打开本题工程文件，画1个计时器timer1，设置计时器Interval属性为1000，Enabled属性设置为False。 步骤2：分析并编写程序代码。 程序提供代码 Dim t(3) As Integer Private Sub Cmd_Click(Index As Integer) ’ Select Case ? 　　 Case 0 ’　 Timer1.Enabled = ? 　　　　 Cmd(1)．Enabled = True 　　　　 If Cmd(0)．Caption = "开始" Then 　　　　　　 Cmd(0)．Caption = "继续" 　　　　 End If ’　 Cmd(0)．Enabled = ? 　　 Case 1 　　　　 Timer1.Enabled = False 　　　　 Cmd(0)．Enabled = True 　　　　 Cmd(1)．Enabled = False 　　 Case 2 　　　　 End End Select End Sub Private Sub Timer1_Timer() t(3) = t(3) + 1 ’ If t(3) = ? Then 　　　　t(3) = 0 　　　　t(2) = t(2) + 1 　　　　If t(2) = 60 Then 　　　　　t(2) = 0 　　　　　t(1) = t(1) + 1 　　　　End If End If 　　For i = 1 To 3 ’　 Text( ? )．Text = t(i) Next End Sub 程序结束 参考答案 第1个？处填入：Index 第2个？处填入：True 第3个？处填入：False 第4个？处填入：60 第5个？处填入：i - 1 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件，添加一个标题为"所有行中最大数的平均值"的标签Label1，再添加一个初始内容为空的文本框Text2。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(20, 5) As Integer Private Sub Command1_Click() Open App.Path & "\in4.dat" For Input As #1 For i = 1 To 20 　　　For j = 1 To 5 　　　　　Input #1, a(i, j) 　　　　　Text1 = Text1 + Str(a(i, j)) + Space(2) 　　　Next j Next i Close #1 End Sub 程序结束 参考答案 Private Sub Command2_Click() Dim sum As Long Dim max As Integer For i = 1 To 20 max = a(i, 1) For j = 1 To 5 If a(i, j) > max Then max = a(i, j) End If Next j sum = sum + max Next i Text2 = Int(sum / 20) End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/lP60FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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