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

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

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

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

二级VB

NCRE全国计算机二级

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