dim a,i as interger a=inputbox("请输入一个三位数") if ( a /100=5 or a mod 10=5 or (a/10) mod 10=5) and a mod 3 =0 then msgbox "这个数字满足条件" else msgbox "这个数字不满足条件" end if...