问题
问答题
在考生文件夹下有一个工程文件sjt5.vbp，在该过程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Text1的文本框；画一个名称为C1，标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Op1、Op2，标题分别为“求500到600之间能被 7整除的数之和”、“求500到600之间能被3整除的数之和”(如图3—1所示)。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
答案
参考答案：
解析：① 建立界面和设置控件属性。
题目提供了程序用到的控件，修改后的控件及其属性如下表4所示。
表 4
| 控 件 | 属 性 | 设 置 值 |
| 文本框 | Name Text | Text1 空白 |
| 命令按钮 | Name Caption | C1 “计算” |
| 单选按钮 | Name Caption | Op1 “求500到600之间能被7整除的数之和” |
| 单选按钮 | Name Caption | Op2 “求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
③ 按题目要求存盘并进行相应的操作。