2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，其功能是： ①单击“读数据”命令按钮，则将考生文件央下in5．dat义件中的100个正整数读入数组a中，同时显示在文本框Text1中。 ②单击“素数”按钮，则将数组a中所有素数(只能被1和自身整

在考生文件夹下有一个工程文件sjt5．vbp，其功能是： ①单击“读数据”命令按钮，则将考生文件央下in5．dat义件中的100个正整数读入数组a中，同时显示在文本框Text1中。 ②单击“素数”按钮，则将数组a中所有素数(只能被1和自身整

admin2015-10-23  53
问题 在考生文件夹下有一个工程文件sjt5．vbp，其功能是：
    ①单击“读数据”命令按钮，则将考生文件央下in5．dat义件中的100个正整数读入数组a中，同时显示在文本框Text1中。
    ②单击“素数”按钮，则将数组a中所有素数(只能被1和自身整除的数称为素数)存人数组b中，并将数组b中的元素显示在文本框Text2中。
    在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。

    要求：完善程序使其实现上述功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须先执行“素数”操作，然后再用窗体右上角的关闭按钮结束程序，否则将没有成绩。最后，程序按原文件名进行存盘。
选项
答案步骤1：打开本题工程文件。 步骤2：打开代码编辑窗几，在代码编辑窗亡1指定位置编写以下代码。 For k=1 To 100 flag=True i=2 Do While i<=Int(a(k)／2)And flag’循环判断a(k)是否为素数 If Int(a(k)／i)=a(k)／i Then flag=False’若为素教，则使flag为False Else i=i+1’若不为素数，则i加1 End If Loop If flag=True Then num=num+1’满足条件则num累加 b(num)=a(k)。将满足条件的数存入b数组 End If Next k 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 单击“读数据”按钮，将考牛文件夹下in5．dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中；运用Space()函数使数值之间空两个格，并判断是否为素数，如果是素数则flag标记为True，并将这个数存入数组b，通过变量num累加数组b的素数个数。最后通过循环语句将数组h中的元素显示在文本框Text2中。
转载请注明原文地址:https://kaotiyun.com/show/UHLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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