调用下面子过程，消息框显示的值是( )。
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选项。