在窗体上创建两个单选按钮,名称分别为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)在命令按钮的单击事件中,调用模块中的函数过程,判断质数,并累计某段区间的质数总和。在文本框中输出结果,并将该结果写入指定文件中。