图1
   图2

 程序代码如下：

Private Sub Command1_Click()

  Dim i As Integer

  List1.Clear            '清除列表框内容

End Sub

Private Function f(x As Integer) As Boolean  '自定义函数f,返回值为逻辑型

  Dim j As Integer

  f = True

  For j = 2 To Int(Sqr(x))

    If x Mod j = 0 Then

      f =     ③      '函数返回值

      Exit For           '跳出For循环

    End If

  Next j

End Function

有善良之心的人是（     ）                                       
①怀着自私利己的目的，为了得到回报，去做某些所谓的善事
②以善良之心待人是发自内心的驱使，善良的行为必然不图回报
③怀有善良之心的人不会容忍对公众利益的损害，对无辜者的伤害
④怀有善良之心的人对社会上需要帮助的弱势群体充满爱心 

阅读下面短文，按照句子结构的语法性和上下文连贯的要求，在空格处填入一个适当的词或使用括号中词语的正确形式填空。

    Although most people believe that formal schooling is required for scientific success, a college degree is not always necessary.____excellent example of a man who won fame as a scientist ____academic(学术的) training is Vincent J. Schaefer. His formal education ended ____ two years of high school when he had to go to work in an untrained job at General Electric. Because ____ his inventive mind and his skill as a model maker, he was soon allowed to try his own experiments in the company laboratory. His natural ____ (curious) made him wonder about clouds. He developed, after many tries, a method of making clouds rain ____they would not normally do so. This method, ____ (call) seeding, has been very  ____ (help) to farmers, and ____made him win much fame.

    Schaefer believes that for people____, most of all, are interested in the world and everything in it, a college degree is unnecessary.