[问答题] 在考生文件夹下有一个工程文件sjt5.vbp，在该过程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Text1的文本框；画一个名称为C1，标题为“计算”的命令按钮；再

[问答题] 在考生文件夹下有一个工程文件sjt5.vbp，在该过程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Text1的文本框；画一个名称为C1，标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Op1、Op2，标题分别为“求500到600之间能被 7整除的数之和”、“求500到600之间能被3整除的数之和”(如图3—1所示)。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。

参考答案：

问题解析:

① 建立界面和设置控件属性。 题目提供了程序用到的控件，修改后的控件及其属性如下表4所示。 表 4控 件属 性设 置 值文本框NameTextText1空白命令按钮NameCaptionC1“计算”单选按钮NameCaptionOp1“求500到600之间能被7整除的数之和”单选按钮NameCaptionOp2“求500到600之间能被3整除的数之和” ② 编写程序代码。 题目提供给考生的代码： Private Function fun(a As Integer)As Integer s%=0 For i%＝500 To 600 If Int (i%/a)＝i%/a Then s%＝s%+i% End If Next fun=s% End Function Private Sub Form_Unload(Cancel As Integer) Open "out5.txt"For Output As #1 Print #1,Op1. Value,Op2. Value,Text1. Text Close #1 End Sub 参考代码： Private Sub C1_Click() If Op 1. Value Then Text1. Text＝fun(7) ElseIf Op2.Value Then Text1.Text＝fun(3) End If End Sub ③ 按题目要求存盘并进行相应的操作。