Question

计算机VB考试题，希望能帮我解答一下！先谢谢啦！

在考生文件夹下有一个工程文件sjt5.vbp，其功能是：
1)单击“读数据”按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中；
2）单击“素数”按钮，则将数组a中所有素数（只能被1和自身整除的数称为素数）存入数组b中，并将数组b中的元素显示在文本框Text2中。
在给出的窗体文件中已经有了全部控件（如图所示），但程序不完整。
要求：完善程序实现上述程序功能。
注意：不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须先执行“素数”操作，然后再用窗体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件名存盘。
Option Base 1
Dim a(100) As Integer, num As Integer

Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in5.dat" For Input As #1
For k = 1 To 100
Input #1, a(k)
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
Close #1
End Sub

Private Sub Command2_Click()
Dim b(100) As Integer
num = 0

If Len(Text1.Text) = 0 Then
MsgBox "请先执行“读数据”功能！"
Else

'考生编写(功能：生成存放素数的数组 b )
'注意：请务必将数组 b 的元素个数存入变量 num 中

'以下程序段将 b 数组的内容显示在Text2中
For i = 1 To num
Text2.Text = Text2.Text + Str(b(i)) + Space(2)
Next i
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out5.dat" For Output As #1
Print #1, Text2.Text
Close #1
End Sub

Answer 1

我在求，不知道怎么写，写了好几遍，就是没写出来，上机就这样挂了