2. 计算机
  3. 在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的，请将程序补充完整。在名称为Forml的窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“计算”和“保存”；两个单选按钮，名称分别为Optio

在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的，请将程序补充完整。在名称为Forml的窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“计算”和“保存”；两个单选按钮，名称分别为Optio

admin2009-03-26  21
问题 在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的，请将程序补充完整。在名称为Forml的窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“计算”和“保存”；两个单选按钮，名称分别为Optionl和Option2，标题分别为“50～150的素数”和“200～350的素数”；一个文本框，名称为Text 1，程序运行界面如图8—5所示。如果选中一个单选按钮并单击“计
算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“保存”按钮，则把计算结果存入out5．txt文件中，该文件必须放在考生文件夹中。(在考生文件夹中有标准模块mode．bas，其中的isPrimeNum函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，而writeData过程可以把结果存人指定的文件，考生可以将该模块文件添加到自己的工程中。)

    注意：存盘时不得改变文件名和文件夹。必须把其中一种素数之和存入考生文件夹下的out5．txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp。
选项
答案 素数的判断准则就是看该数是否除了1及其本身以外别无其他约数，若是则该数就是素数，否则就不是素数。本题判断素数的标准模块mode．bas已经写好了，只要将它添加到工程中即可。在“工程”窗口中单击右键，在弹出的快捷菜单中选择“添加“→“添加模块”，然后在弹出对话框的“现存’’选项卡中选择“mode．bas”，单击“确定”按钮即添加成功。补充后的代码如下： Private Sub Commandl Click() Dim min As Integer Dim max AS Integer Dim i AS Integer If Optionl．Value=True Then’根据选中的Option来设置For循环上下限 min=50 max=150 Else min=200 max=350 End If total=0 For i=min To max If isPrimeNum(i)=True Then ’调用mode．bas的isPrimeNum函数判断素数 total=total+i End If Next i Textl．Text=total End Sub Private Sub Command2 Click() writeData(total) ’调用mode．bas的writeData来进行数据保存 End Sub 标准模块mode．bas中的代码如下： Function isPrimeNum(num As Integer)As Boolean isPrimeNum=True Dim i As Integer For i=2 To num-1 If num Mod i=0 Then isPrimeNum=False Exit For End If Next i End Function Function writeData(total As Long) Open"App．Path&out5．txt"For Output As#1 Write#1，total Close#1 End Function 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/yV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)