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