材料一：1916年欧洲正在奔向奴役和毁灭。两年以来，它一直沿着这条灾难的到路越走越远……。在德国已经宣布所有16~60岁，有劳动能力的男女公民全体动员……德国报界赞同这个方案，声称“往后再也不能容忍无赖和寄生者”，其他国家无疑也将仿效这个榜样。

材料二：***在参加俄罗斯卫国战争胜利60周年庆典时表示，60多年前，法西斯侵略者发动的侵略战争是人类历史上一场前所未有的浩劫。包括苏联和中国在内的60多个国家、近20亿人被卷入那场战争。在那场正义与邪恶殊死搏斗的战争中，全世界爱好和平的国家和人民团结一致、英勇奋战，用鲜血和生命捍卫了人类的尊严，赢得了世界和平。在那场战争中，苏联军民以钢铁般的意志和无所畏惧的气概，浴血奋战，付出了巨大的民族牺牲，为世界反法西斯战争的胜利建立了不可磨灭的历史功勋。

下列叙述正确的是（   ）

程序代码如下：

Private Sub Command1_Click()

  Dim n As Integer, i As Integer

  List1.Clear

  n = Val(Text1.Text)

  If n Mod 2 = 0 Then

    For i = 2 To Int(n / 2)

      If isodd(i) = (isodd(n - i)) Then

        List1.AddItem Str(n) + " =" + Str(i) + " +" + Str(n - i)

      End If

    Next i

  Else

    Text1.Text = Str(n) + "不是偶数！"

  End If

End Sub

Private Function isodd(n As Integer) as boolean

   Dim f As integer

   f = 0

   For i = 2 To Sqr(n)

     If n Mod i = 0 Then f = 1: Exit For

   Next i

   isodd =  f

End Function