问题
问答题
注意：下面出现的“考生文件夹”均为C:\wexam\25160002。 在考生文件夹下有一个工程文件sjt5.vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Text1的文本框；画一个名称为C1，标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Op1和op2，标题分别为“求200到300之间能被7整除的数之和”和“求200到300之间能被3整除的数之和”，如图27-5所示。 请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一种计算，否则不得分。
答案
参考答案：
解析： 在窗体上建立控件后，先设置控件属性，再事件过程。
程序中提供的事件过程用来求200～300之间能被n个整除的数的和，这里n是传递给Function过程的参数，该Function过程返回求得和。
文本框用Text属性来接收用户的输入。按钮的标题由Caption属性来设置，单击按钮触发的是Click事件。为了检测单选按钮被选中，可以通过检测其Value属性来实现，当Value为True时，表示该单选按钮被选中，否则未被选中。在按钮的 Click事件过程中通过条件语句来调用Function过程，实现程序要求的功能。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表27-5。
| 控 件 | 属 性 | 设置值 |
| 文本框 | Name Text | Text1 空白 |
| 按钮 | Name Caption | C1 “计算” |
| 单选按钮 | Name Caption | Op1 “求200到300之间能被7整除的数之和” |
| 单选按钮 | Name Caption | “求200到300之间能被3整除的数之和” |
程序提供的代码：
Private Function fun(a As Integer) As Integer
s% = 0
For i% = 200 To 300
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, Opl.Value, Op2.Value, Textl.Text
Close #1
End Sub
参考答案：
Private Function fun(a As Integer) As Integer
s% = 0
For i% = 200 To 300
If Int(i% / a) = i% / a Then
s% = s% + i%
End If
Next
fun = s%
End Function
Private Sub C1_Click()
If Opl.Value Then
Text1 = fun(7)
End If
If Op2.Value Then Text1 = fun(3)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "out5.txt" For Output AS #1
Print #1, Opl.Value, Op2.Value, Text1.Text
Close #1
End Sub
第三步；调试并运行程序。
第四步：按题目要求存盘。