2. 计算机
  3. 在考生文件夹下有一个工程文件sit5．vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Textl的文本框；画一个名称为cl、标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Opl、Op2，标题分别为“求500到60

在考生文件夹下有一个工程文件sit5．vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Textl的文本框；画一个名称为cl、标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Opl、Op2，标题分别为“求500到60

admin2010-09-02  39
问题 在考生文件夹下有一个工程文件sit5．vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Textl的文本框；画一个名称为cl、标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Opl、Op2，标题分别为“求500到600之间能被7整除的数之和”、“求500到600之间能被3整除的数之和”(如图1-225所示)。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一种计算，否则不得分。
选项
答案 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件sit5．vbp，如表2-132所列在窗体Forml中画出控件，分别设置它们的相关属性。 [*] 步骤2：打开代码编辑窗口，编写“计算”按钮的单击事件过程。 参考代码： PriVate Sub C1_Click() If Opl．Value Then Textl．Text=fun(7) End If If Op2．Value Then Textl．Text=fun(3) End If End Sub 步骤3：按要求将文件保存至考生文件夹中。
解析 本题原程序中已包含一个能计算“500～600之间能被整数a整除的数之和”的自定义函数，其中a为函数的形参，还需编写“计算”按钮的单击事件过程。在该事件过程中根据单选按钮的选择情况，来确定除数的值：如果opl被选中，则除数应为7，通过执行语句Textl．Text=fun(7)可调用自定义函数求出500～600之间能被7整除的数之和，并显示在文本框中；如果Op2被选中，则除数应为3，通过执行语句Textl．Text=fun(3)可调用自定义函数求出500～600之间能被3整除的数之和，并显示在文本框中。
转载请注明原文地址:https://jikaoti.com/ti/qmg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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