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

admin2016-01-31  33

问题 在考生文件夹下有一个工程文件sjt5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Text1的文本框;画一个名称为C1、标题为“计算”的命令按钮;再画两个单选按钮,名称分别为Op1、Op2,标题分别为“求500到600之间能被7整除的数之和”、“求500到600之间能被3整除的数之和”(如图3-172所示)。请编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
   
    注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须至少要进行一种计算,甭则不得分。

选项

答案审题分析 本题源程序中已包含一个能计算“500~600之间能被整数a整除的数之和”的自定义函数,其中a为函数的形参,还需编写“计算”按钮的单击事件过程。在该事件过程中根据单选按钮的选择情况,来确定除数的值:如果Op1被选中,则除数应为7,通过执行语句Text1.Text=fun(7)可调用自定义函数求出500~600之间能被7整除的数之和,并显示在文本框中;如果Op2被选中,则除数应为3,通过执行语句Text1.Text=fun(3)可调用自定义函数求出500~600之间能被3整除的数之和,并显示在文本框中。 操作步骤 步骤1:打开考生文件夹下的工程文件sjt5.vbp,按要求画出控件并设置属性。 步骤2:打开代码编辑窗口,编写“计算”按钮的单击事件过程。 参考代码: Private Sub C1_Click() If Op1.Value Then Text1.Text=fun(7) End If If Op2.Value Then Text1.Text=fun(3) End If End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 Sub过程和函数过程、参数调用。

解析
转载请注明原文地址:https://kaotiyun.com/show/XrLp777K
0

最新回复(0)