2. 计算机
  3. 在考生文件夹中有一个工程文件sjt5．vbp。该程序的功能是从in5．txt文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所

在考生文件夹中有一个工程文件sjt5．vbp。该程序的功能是从in5．txt文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所

admin2020-02-27  76
问题  在考生文件夹中有一个工程文件sjt5．vbp。该程序的功能是从in5．txt文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。
    注意：不得修改原有程序和控件的属性。程序结束运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private arr(100) As Integer Public Function prime(x As Integer) k = Int(Sqr(x) + 5) For i ＝ 2 To k 　　　　If x Mod i = 0 Then 　　　　　　prime = False 　　　　　　Exit Function 　　　　End If Next prime = True End Function Private Sub Command1_Click() Open App.Path & "\in5.txt" For Input As #1 For i = 1 To 40 　　　　Input #1, arr(i) Next Close #1 End Sub Private Sub Command2_Click() ’＝＝＝＝＝考生编写程序开始＝＝＝＝＝＝＝＝＝＝ ’＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝ Open App.Path & "\out5.txt" For Output As #1 Print #1, Label3.Caption, Label4.Caption Close #1 End Sub 程序结束 参考答案 Dim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i)) Then a = a + 1 Label3.Caption = a Next For i = 1 To 40 If prime(arr(i)) And arr(i) <= b Then b = arr(i) Label4.Caption = b Next 步骤3：按照题目要求调试并运行程序。 步骤4：关闭程序后，按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/zRTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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