'编写程序,在200~250验证哥德巴赫猜想 Private Sub Form_Click() Dim oushu As Integer Dim part1 As Integer Dim part2 As Integer For oushu = 200 To 250 Step ___________ For part1 = 1 To oushu \ 2 If (_________________________________) Then Print oushu, part1, oushu - part1 End If Next part1 Next _________________ End Sub Function decide(num As Integer) As Boolean Dim i As Integer Dim result As Boolean result = True For i = 2 To_________________________ If num Mod _______ = 0 Then result = ______________ Exit For End If Next i decide = result End Function