有如下程序段

Dim i As Integer， s As String， n As Integer

i =2：s=""； n= 100

Do While i< = n

    If  Then s =s + Str(i)

    i=i+1

Loop

用下列表达式替换方框处表达式后，不能实现原程序功能的是(    )

A、iMod10<1

B、i/10=int(i/10)

C、i/10=i\10

D、imod2=0orimod5=0