2. 计算机
  3. (1)在考生文件夹有一个工程文件sjt3．vbp，其中的窗体中有一个名为Textl的文本框，初始文本为0；一个计时器；一个标签；一个有两个元素的单选按钮数组，名称为Op1，标题依次为“1秒”、“3秒”；两个命令按钮，名称分别为C1、C2，标题分别为“开始计

(1)在考生文件夹有一个工程文件sjt3．vbp，其中的窗体中有一个名为Textl的文本框，初始文本为0；一个计时器；一个标签；一个有两个元素的单选按钮数组，名称为Op1，标题依次为“1秒”、“3秒”；两个命令按钮，名称分别为C1、C2，标题分别为“开始计

admin2020-02-27  43
问题  (1)在考生文件夹有一个工程文件sjt3．vbp，其中的窗体中有一个名为Textl的文本框，初始文本为0；一个计时器；一个标签；一个有两个元素的单选按钮数组，名称为Op1，标题依次为“1秒”、“3秒”；两个命令按钮，名称分别为C1、C2，标题分别为“开始计数”、“停止计数”，同时给出两个事件过程，但不完整。在运行时要完成下面的功能：
    单击一个单选按钮，可以设置计时间隔为1秒或3秒；单击“开始计数”按钮，则Text1中的数按设定的计时间隔每次加1；单击“停止计数”按钮，则Textl中的数不再变化。
    请按下述要求设置属性并编写程序，以实现上述功能：
    ①设置计时器的属性，使其在初始状态下不计时。
    ②去掉程序中的注释符，把其中的“?”改为正确的内容。
    ③为两个命令按钮编写适当的事件过程，每个事件过程中只能有一条语句，不能使用变量。
    注意：不能修改已有程序的其他部分和控件的其他属性。最后将修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4．vbp，功能如下：
    ①单击“读数据”按钮，则把考生文件夹下in4．dat文件中已按升序排列的60个数读人数组a，并在Text1中显示。
    ②单击“输入”按钮将弹出输入框，供接收用户输入的任意一个数。
  ③单击“删除”按钮，首先判断“输入”的数是否存在于数组a中，若存在，则将该数从数组a中删除，并将删除后数组的内容重新显示在Text1中，若不存在，则给出相应提示。
    在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整，要求：去掉“删除”按钮Click事件过程中的注释符，把“?”改为正确的内容，以实现上述程序功能。
    注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。
选项
答案(1)【操作步骤】 步骤1：打开本题工程文件，计时器的Enabled属性设置为False。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Op1_Click(Index As Integer) ’　Select Case ? 　　　　Case 0 　　　　　　Timer1.Interval = 1000 　　　　Case 1 　　　　　　Timer1.Interval = 3000 End Select End Sub Private Sub Timer1_Timer() ’　Text1.Text = ？.Text + 1 End Sub 程序结束 参考答案 第1个？处填入：Index 第2个？处填入：Text1 Private Sub C1_Click() Timer1.Enabled = True End Sub Private Sub C2_Click() Timer1.Enabled = False End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(100) As Integer, num As Integer, n As Integer Private Sub Command1_Click() Dim k As Integer n = 60 Open App.Path & "\in4.dat" For Input As #1 For k = 1 To n 　　　　Input #1, a(k) 　　　　Text1 = Text1 + Str(a(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() num = InputBox("请输入一个数") End Sub Private Sub Command3_Click() For i = 1 To n　　　　　　　　　　’"读数据"事件过程中已给出n的初值 ’　 If num = ? Then Exit For Next i ’　If ? Then 　　　　MsgBox "该数不存在于数组中，不能执行删除操作！" Else 　　　n = n - 1 ’　 For j = i To ? ’　 a(j) = ? 　　　Next End If Text1 = "" ’以下程序段将执行删除操作后的数组a重新显示在Text1中 ’　For k = 1 To ? 　　　　Text1 = Text1 + Str(a(k)) + Space(2) Next k End Sub 程序结束 参考答案 第1个？处填入：a(i) 第2个？处填入：n < i 第3个？处填入：n 第4个？处填入：a(j + 1) 第5个？处填入：n 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/mtTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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