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

admin2018-12-05  32

问题 在考生文件夹下有一个工程文件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://jikaoti.com/ti/0zm0FFFM
0

最新回复(0)