创建如图 L51 8 所示的界面 , 随机产生 50 个 [30 , 150 ] 之间的整数 , 按要求输出其中的素数 ( 除了 1 与本身以外 , 不能被其他数整除的数称为素数 ) , 素数个数及素数的和 , 程序界面如下 ( 对象及属性采用系统默认规则 ) 。操作要求: (1) 按 “ 产生数据 ” 则产生原始数据在文本框 1 中显示并存放在一维数组里。 (2) 按 “ 查找与计算 ” 则查找相应的素数在文本框 2 中显示和计算相应素数个数及素数之和。 “ 退出 ” 按的代码已经完成。 根据以上要求,完成下列程序。 Private Sub Command1_Click() For i = 1 To 50 a(i) = ___ __ '(1) Text1.Text = _____ ' (2) Next i End Sub Private Sub Command2_Click() Dim n, s As Integer For i = 1 To 50 _______ ' (3) For j = 2 To _______' (4) If a(i) Mod j = 0 Then f = 1: ________' (5) Next j If f = 0 Then Text2.Text = Text2.Text & a(i) & " " n = ________' (6) s = ________' (7) End If Next i Text3.Text = n Text4.Text = s End Sub