二级VISUAL BASIC机试模拟49_练习题.docVIP

上机模拟试题十四 在窗体上创建两个单选按钮，名称分别为Option1和Option2，标题分别为“100到300之间的质数”和“200到400之间的质数”，以及一个文本框，名称为Text1。在窗体上创建两个命令按钮，名称分别为Command1和Command2，标题分别为 “计算”和“保存数据”。编写事件过程，程序运行后，单击“计算”按钮，则计算出该单选按钮标题所指明的所有质数之和，并在文本框中输出。单击“保存数据”，存入out.txt文件中，该文件必须放在考生文件夹中(在考生文件夹中有标准模块module1.bas，其中的savedata过程可以把计算结果写入指定文件，用check函数可以判断某整数是否为质数，是则返回True，否则返回False。)程序运行界面如图30所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为ylc.vbp。 上机模拟试题十四参考答案 答案： (1)Visual Basic集成环境中，执行“文件”→“打开工程”命令，选择ylc.vbp文件打开。 (2)执行“工程”→“添加模块”命令，在“打开模块”对话框中，打开“标准模块” modulel.bas。 (3)在工具箱中选择单选按钮控件，在窗体上创建两个单选按钮，名称分别为Option1和Option2，标题分别为“100到300之间的质数”和“200到400之间的质数”。 (4)在窗体上创建命令按钮名称分别为Command1和Command2，标题分别为“计算”和“存盘”。 (5)定义模块级数组，在模块的声明段声明，其代码如下： Dim a(1 To 100) As Integer Dim count As Integer (6)双击“计算”按钮，弹出代码窗口，在其中添加如下代码： Dim count As Integer Private Sub Command1_Click() Dim i As Integer If Optionl，Value Then For i=100 To 300 If module1.check(i) Then count=count+i End If Next i Else For i=200 To 400 If module1.check(i) Then count=count+i End If Next i End If Text1.Text=count End Sub (7)调用savedata过程，把文件中的数值读到指定的数组中保存事件。其代码如下： Private Sub Command2_Click() Dim str As Integer str=CStr(count) Call module1.SaveData(out.txt, count) End Sub (8)双击“保存数据”按钮弹出代码窗口，在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open app.Path \out.txtFor Output As #1 Print count Close#1 End Sub (9)按F5键运行程序。如图30所示。 (10)执行“文件”一“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。 [解析] (1)本题是一个综合应用题，根据题目的要求添加模块、创建单选按钮、命令按钮及文本框，并设置其属性。 (2)在命令按钮的单击事件中，调用模块中的函数过程，判断质数，并累计某段区间的质数总和。在文本框中输出结果，并将该结果写入指定文件中。