【正确答案】[操作步骤] 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 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：调试并运行程序，关闭程序后按题目要求存盘。

【答案解析】[考点] 本题考点有：App.Path相对路径，文件操作，Space()函数，Str()函数，“+”连接符，Len()函数，文本框的Text属性，MsgBox()函数，Int()函数、Do While语句、For循环语句以及If判断语句。 [解析] 单击“读数据”按钮，将考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中；运用Space()函数使数值之间空两个格，并判断是否为素数，如果是素数则flag标记为True，并将这个数存入数组b，通过变量num累加数组b的素数个数。最后通过循环语句将数组b中的元素显示在文本框Text2中。