第三套 试题三(18 分) 修改 VB 程序,使其具有下列功能: 程序运行时,在文本框 Text1 中输入一个大于 2 的偶数,并单击 “ 分解为 ” 命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数 ( 一个偶数有时可以分解为多种素数的组合,例如 24 可以分解为 5 和 19 ,也可以分解为 11 和 13 ,要求取含有最小素数的组合 )。如图3所示。 Private Sub Command1_Click() Dim a&, f1 As Boolean, f2 As Boolean a = '(1) For i = 2 To a f1 = True For j = 2 To i - 1 If i Mod j = 0 Then f1 = False Next j If f1 Then b = '(2) f2 = True For j = 2 To b - 1 If b Mod j = 0 Then '(3) Next j If f2 Then Label1.Caption = '(4) Label3.Caption = b '(5) End If '(6) Next i End Sub