2. 计算机
  3. 在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时，在文本框中输入一个素数，然后单击“查找”命令按钮，找出小于给定素数的三个最大的素数，并显示在标签控件数组lblResult 中，如图1－246所示。 要求：工程文件中已给出部分程序，其中

在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时，在文本框中输入一个素数，然后单击“查找”命令按钮，找出小于给定素数的三个最大的素数，并显示在标签控件数组lblResult 中，如图1－246所示。 要求：工程文件中已给出部分程序，其中

admin2018-12-05  43
问题 在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时，在文本框中输入一个素数，然后单击“查找”命令按钮，找出小于给定素数的三个最大的素数，并显示在标签控件数组lblResult 中，如图1－246所示。

    要求：工程文件中已给出部分程序，其中的IsPrime过程用来判断一个数是否为素数。请编写“查找”命令按钮的事件过程中的部分程序代码。
    注意：程序调试通过后，在“给定的素数”对应的文本框中输入12379，并执行“查找”命令，将找到满足条件的三个素数显示在标签中，否则没有成绩。不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
    程序源码：
    Private Function IsPrime(ByVal x
    As _
    Integer) As Boolean
    Dim i As Integer
    For i ＝ 2 To Sqr(x)
    If x Mod i ＝ 0 Then
    IsPrime ＝ False
    Exit Function
    End If
    Next
    IsPrime＝True
    End Function
    Private Sub cmdFind_Click()
     ’考生编写程序开始================
     ’考生编写程序结束================
    Open App.Path & "\out5.dat" For
    _
    Output
     As # 1
    Print#1,txtInput.Text,
    lblResult(0). _
    Caption,
    lblResult(1).Caption, _
    lblResult(2).Caption
    Close #1
    End Sub
选项
答案【操作步骤】 步骤1：打开本题对应工程文件vbsj5.vbp。 步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码： 参考代码： Dim j As Integer Dim n As Integer n = Val(txtInput.Text) - 1 For j = 0 To 2 While Not IsPrime(n) n = n - 1 Wend lblResult(j).Caption = n n = n - 1 Next 步骤3：运行程序，在“给定的素数”对应的文本框中输入12379，并执行“查找”命令，将找到满足条件的三个素数显示在标签中，然后单击关闭按钮结束程序的运行。 步骤4：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/ptFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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