如图是倡导“低碳”生活的宣传画。某同学不赞成“低碳”生活，认为不坐汽车骑自行车太委屈自己的生活，不利于生活质量提高。假如请你劝说该同学选择“低碳”生活方式，下列可以运用的正确理由是（    ）

①“低碳”生活有利于节约资源      ②不选择“低碳”生活是犯罪行为，要受法律制裁

③“低碳”生活有利于保护环境      ④“低碳”生活有利于可持续发展

程序代码如下：

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

关于超声波和电磁波，下列说法中正确的是（    ）