Function fac(n As Integer) As Long

    fac = 1

    For i = 1 To n

fac = fac * i

    Next i

End Function

Private Sub Command1Click()

Dim s  As Long, j As Integer

For j = 1 To 10

Next

Text1.Text = Str(s)

End Sub

 方框中的正确语句是：（   ）

    Tired of Working in Your Country?

With over 500 instructors and 20 years of experience, we are the leader in the field of teaching foreign languages. We now have positions open in Osaka starting September/October 2018 for instructions of English, German, Spanish and French.

    Teach many different kinds of classes using the latest technology in small classes of up to 30 students.

    Accommodation, and other necessary documents will be ready before you leave.

    Applicants will teach their first language only.

    Excellent teacher training programs.

    If you are young with a university degree and are willing to experience different cultures, apply now. Experience in teaching is an advantage but not specially required. Knowledge of the Japanese language is not necessary but good English skills and practical computer knowledge are basic requirements.

Apply with C.V. and send letter to:

    NOVA France, Mr. Sampy (IHT 3/2)

    34, Bd. Haussmann, 75009 Paris, France

    Fax: 33148014804

    Or visit our website: www. teachjp. com

    The manager expects to meet and talk with successful applicants in Paris in June and July.

下列四组图形中，不是相似图形的是（　　）

分析下列材料，回答下列问题

材料一：疟疾是由于感染一种单细胞寄生虫导致的，它会侵袭人体的红细胞，导致发烧等症状，其传播媒介是按蚊，通常用氯喹来进行治疗，但疗效越来越不好．而获得2015年诺贝尔医学奖的屠呦呦团队研制出的青嵩素对疟疾有很好的疗效

材料二：据《信息时报》5月14日报道，全球首例头部移植手术预计2017年12月在中国进行，手术的难点在于脊髓如何再次连接入脑，若产生排斥反应，将会导致手术的失败，干细胞在这里扮演着关键性作用