2. 计算机
  3. (1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组air中每个元素与其下标相除所得的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程

(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组air中每个元素与其下标相除所得的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程

admin2010-09-02  39
问题 (1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组air中每个元素与其下标相除所得的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算数组art中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的其他部分，只在FunctionFun()和EndFunction之间填入编写的若干语句并运行程序。最后把修改后的文件按原文件名存盘。
说明：数组flit中共有40个元素，所谓“数组air中每个元素与其下标相除所得的和”，指的是：arr(1)／1+arr(2)／2+arr(3)／3+…+arr(40)／40。
(2)在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sjt4．frm。在窗体上有两个命令按钮，其名称分别为Commandl、Command2，一个标签控件，其名称为Labell，一个计时器控件，其名称为Timerl，如图1-107(a)所示。程序运行后，在命令按钮Commandl中显示“开始”，在命令按钮Command2中显示“停止”，在标签中用字体大小为16的粗体显示“热烈欢迎”(标签的AutoSize属性为True)，同时把计时器的Interval属性设置为50，Enabled属性设置为True。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动20，如图1-107(b)所示，移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案 第l小题 【操作步骤】 步骤l：打开考生文件夹下的本题工程文件sjt3．vbp。 步骤2：进入代码编辑窗口，在Function Fun()和EndFunction之间输入以下代码： 参考代码： Function Fun(a() As Single) As Single Sum=O For i=1 To UBound(a) Sum=Sum+a(i)／i Next i Fun=Sum End Function 步骤3：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤l:打开考生文件夹下的本题工程文件sjt4．vbp。 步骤2：进入代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： Timerl．Enabled=True Commandl．Enabled=False Timer1．Enabled=False Label1．Left=Label1．Left+20 步骤3：按要求将文件保存至考生文件夹中。
解析  第l小题
    由本题所提供原程序可知，要求编写一个求数组中各元素与其下标相除所得的和，并在文本框中显示出来的函数。设计思路：利用For循环语句，将数组中各元素除以其下标(表达式为：a(i)／i)的值累加入一个变量(如sum)。循环变量的初值和终值可分别通过函数Lbound(a)和Ubound(a)获得。
第2小题
   本题原程序利用计时器的Timer事件来控制标签的移动，因此单击“开始”按钮启动计时器，而单击“停止”按钮就是要停止计时器。在计时器的Timer事件过程中。通过每次使标签的Left属性值增量20实现移动，当标签完全移出窗体的右边界(即Label．Left>Me．Width)时，则重新从窗体左边界开始移动，即Label．Left=0。
转载请注明原文地址:https://kaotiyun.com/show/4Gmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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