2. 计算机
  3. 若两个素数a、b 之间没有其他素数，则称a、b为相邻的素数。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图1－322所示。从左到右的三个文本框名称分别为Text2、Text1、Text3；三个命令按钮的名称分别为Command1

若两个素数a、b 之间没有其他素数，则称a、b为相邻的素数。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图1－322所示。从左到右的三个文本框名称分别为Text2、Text1、Text3；三个命令按钮的名称分别为Command1

admin2019-01-16  74
问题 若两个素数a、b 之间没有其他素数，则称a、b为相邻的素数。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图1－322所示。从左到右的三个文本框名称分别为Text2、Text1、Text3；三个命令按钮的名称分别为Command1、Command2、Command3。本程序的功能是：单击“读入数据”按钮，则从文件in5.dat中读入一个整数x放入Text1（中间的文本框）中；单击“找素数”按钮，则找出一对相邻素数使得满足以下条件：
    a≤x
    注意：不得修改原有程序和控件的属性。在 结束程序运行之前，必须单击“存盘”按钮，把结果存入out5.dat 文件，否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，编写对应的过程语句。 参考代码： Private Sub Command2_Click() Dim x1 As Integer, y As Integer x1 = Text1.Text y = x1 + 1 Do If isprime(y) = True Then Text3.Text = y Exit Do Else y = y + 1 End If Loop y = x1 - 1 Do If isprime(y) = True Then Text2.Text = y Exit Do Else y = y - 1 End If Loop End Sub 步骤2：运行程序，单击“读入数据”按钮，然后单击“找素数”按钮，则找出一对相邻素数a、b，最后单击“存盘”按钮。 步骤3：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/vuFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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