[多项选择题] 在窗体上创建两个单选按钮，名称分别为Option1和Option2，标题分别为“100到300之间的质数”和“200到400之间的质数”，以及一个文本框，名称为Text1。在窗体上创建

[多项选择题] 在窗体上创建两个单选按钮，名称分别为Option1和Option2，标题分别为“100到300之间的质数”和“200到400之间的质数”，以及一个文本框，名称为Text1。在窗体上创建两个命令按钮，名称分别为Command1和Command2，标题分别为 “计算”和“保存数据”。编写事件过程，程序运行后，单击“计算”按钮，则计算出该单选按钮标题所指明的所有质数之和，并在文本框中输出。单击“保存数据”，存入out.txt文件中，该文件必须放在考生文件夹中(在考生文件夹中有标准模块module1.bas，其中的savedata过程可以把计算结果写入指定文件，用check函数可以判断某整数是否为质数，是则返回True，否则返回False。)程序运行界面如图30所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为ylc.vbp。

参考答案：

(A)Visual Basic集成环境中，执行“文件”→“打开工程”命令，选择ylc.vbp文件打开。 (B)执行“工程”→“添加模块”命令，在“打开模块”对话框中，打开“标准模块” modulel.bas。 (C)在工具箱中选择单选按钮控件，在窗体上创建两个单选按钮，名称分别为OptionA和OptionB，标题分别为“A00到C00之间的质数”和“B00到D00之间的质数”。 (D)在窗体上创建命令按钮名称分别为CommandA和CommandB，标题分别为“计算”和“存盘”。 (E)定义模块级数组，在模块的声明段声明，其代码如下： Dim a(A To A00) As Integer Dim count As Integer (F)双击“计算”按钮，弹出代码窗口，在其中添加如下代码： Dim count As Integer Private Sub CommandA_Click() Dim i As Integer If Optionl，Value Then For i=A00 To C00 If moduleA.check(i) Then count=count+i End If Next i Else For i=B00 To D00 If moduleA.check(i) Then count=count+i End If Next i End If TextA.Text=count End Sub (G)调用savedata过程，把文件中的数值读到指定的数组中保存事件。其代码如下： Private Sub CommandB_Click() Dim str As Integer str=CStr(count) Call moduleA.SaveData("out.txt", count) End Sub (H)双击“保存数据”按钮弹出代码窗口，在其中添加如下代码： Private Sub CommandC_Click() Call SaveData(TextA.Text) End Sub Sub SaveData(str As String) Open app.Path & ""&"out.txt"For Output As #A Print count Close#A End Sub (I)按FE键运行程序。如图C0所示。 (A0)执行“文件”一“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。

问题解析:

(1)本题是一个综合应用题，根据题目的要求添加模块、创建单选按钮、命令按钮及文本框，并设置其属性。 (2)在命令按钮的单击事件中，调用模块中的函数过程，判断质数，并累计某段区间的质数总和。在文本框中输出结果，并将该结果写入指定文件中。