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

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

admin2020-06-30  7
问题  在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件(如图所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的in5．txt文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第1个素数，并显示在Text2中；单击“存盘”按钮，则把找到的素数存到考生目录下的out5．txt文件中。
    注意：   
    在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Open App.Path & "\in5.txt" For Input As #1 Input #1, a% Text1.Text = a% Close #1 End Sub Private Sub Command2_Click() ’需要考生编写的内容 End Sub Function isprime(a As Integer) ’需要考生编写的内容 End Function Private Sub Command3_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 Private Sub Command2_Click() a% = CInt(Text1.Text) Do a% = a% + 1 Loop Until isprime(a%) Text2.Text = a% End Sub 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 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/dJS0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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