【正确答案】正确答案：根据题意，将一个文本框控件，两个单选按钮控件和一个命令按钮添加到窗体中，文本框的名称为Textl，单选按钮的名称：分别为Optionl和Option2，Caption分别为“求100到250之间能被5整除的数的个数”和“求300到400之间能被6整除的数的个数”，命令按钮的名称为Commandl，Caption属性为“计算显示”，设置完成后，双击Commandl进入代码窗口，补充后的具体代码如下： Private Sub Commandl_Click() Dim rain As Integer'下限 Dim max As Integer'上限 Dim i As Integer'循环计数 Dim mum As Integer'个数 Dim tmp As Integer'除数 If Optionl． Value =True Then '选中Optionl时 min=100 max=250 tmp=5 Else'选中Option2时 rain=300 max=400 tmp=3 End If num=0 For i=min To max'利用循环来逐个判断 If i Mod tmp=0 Then num=num+1 '如果能被除数整除，则个数加1 End If Next i Textl． Text =hum'在Textl文本框中显示出来 Open"App．Path&＼out5．txt"For Output As#1 Print#1，Textl．Text Close#1 End Sub 单击