在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件(如图3－116所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的in5．txt文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并

admin2019-05-14 40

问题在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件(如图3－116所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的in5．txt文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并显示在Text2中：单击“存盘”按钮，则把找到的素数存到考生目录下的out5．txt文件中。

注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。

选项

答案【操作步骤】步骤1：打开本题对应工程文件sjt5．vbp。步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码。参考代码： Private Sub Command2_Click () a％＝CInt(Text1．Text) Do a％＝a％＋1 Loop Until isprime(a％) Text2．Text＝a％ End Sub 步骤3：编写判断素数的函数过程isprime，参考代码为： Function isprime(a As Integer) Dim flag As Boolean k％＝2 flag＝True While k％＜＝Int(a／2)And flag If a／k％＝Int(a／k％) Then flag＝False End If k％＝k％+＋1 Wend isprime＝flag End Function 步骤4：按＜F5＞键运行程序，先单击“读数”按钮，接着单击“计算”按钮，最后单击“存盘”按钮。步骤5：按要求将文件保存至考生文件夹中。

解析

转载请注明原文地址:https://kaotiyun.com/show/rTUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类