选择题   调用下面子过程，消息框显示的值是______。
    Sub SFun()
    Dim x,y,m
    x=10
    y=100
    If y Mod x Then
    m=x
    Else
    m=y
    End If
    MsgBox m
    End Sub
 
【正确答案】 D
【答案解析】本题考查的是If语句，还有赋值语句的知识点。首先，变量x赋值10，y赋值100；if语句中的条件语句是y Mod x，只要y不被x整除，则条件为真，否则条件为假。这里y可以被x整除，因此条件为假，执行else后面的语句，即m=y=100。因此，本题应选择D选项。