二、简单应用题

　　2 [简答题]

　　(1)在考生文件夹下有一个工程文件sjt3.vbp。

　　程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的5个数添加到列表框Listl中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。

　　要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。

　　(2)在考生文件夹下有一个工程文件sjr4.vbp。

　　程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔0.5秒移动一次，当图片顶端移动到距窗体下边界的距离少于200时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。

　　要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。

　　参考解析：

　　(1)【考点分析】本题考点有：列表框的Addltem和RemoveItem方法、列表框的ListCount属性、Do While语句、calc()函数、Val()函数、Mod()函数、Ⅱ语句、单选按钮数组的Caption属性以及文本框的Text詹|生。【解题思路]cale()函数实现将大于文本框中的正整数，并且能够被所选除数整除的5个数添加到列表框Listl中，首先调用ClearList()函数清空列表框，运用Val()函数使Text1的值由字符转化为数值，Do While语句控制产生整数的个数为5个，通过Mod()函数和If语句判断是否能被所选数整除，并用列表框的AddItem方法，把能被整除的数添入列表框中。在Commandl—Click事件过程中，向文本框中输入正整数，并运用Val(Optionl(i).Caption)语句提取单选按钮数组中所选的数值，再通过调用calc()函数实现数据的处理过程。

　　【操作步骤】

　　步骤1：打开本题工程文件。

　　步骤2：打开代码编辑窗口中，去掉程序中的注释符“´”，将问号改为正确的内容。

　　参考答案(阴影部分是需考生填入的内容)

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　【举一反三】可以通过第47套第二大题的第二小题来进行同类知识点的练习。

　　(2)【考点分析】本题考点有：计时器的Enabled和Interval属性、滚动条的Value属性、图片框的Top属性、Forrnl的Height属性以及If判断语句。

　　【解题思路】在Commandl_Click事件过程中，Timerl的Enabled属性设置为True，图片开始移动，在Command2_Click事件过程中，Timerl的Enabled属性设置为False，图片停止移动。窗体装入时Tim-erl的Interval属性设置为500，表示Timerl时间间隔为0.5秒。在Timerl_Timer事件过程中，Picturel的Top属性值的改变使图片自上而下移动，VScrolll的Value属性值等于Picturel的Top属性值，使滚动条的滑块随之移动。运用If语句，通过对VScrolll的Value属性值和Forrnl的Height属性值来判断图片顶端移动到距窗体的下边界的距离是否少于200，如果少于，则Picturel的Top属性值为0，图片再回到窗体顶部，重新向下移动。

　　【操作步骤】

　　步骤1：打开本题工程文件。

　　步骤2：打开代码编辑窗口，去掉程序中的注释符“´”，将问号改为正确的内容。

　　参考答案(阴影部分是需考生填入的内容)

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　相关推荐：

　　2017年12月计算机等级考试考前必做题汇总

　　【考试吧整理】计算机等级考试各科目历年真题

　　2017年12月计算机等考成绩查询入口|免费查分提醒

　　2017年计算机等级考试综合查询网常见问题汇总

　　计算机等级考试成绩评定流程及标准|合格证书样本及证书说明