vb里怎么用if表示一个三位数里任意一个位数有5而且能被3整除的数

问题描述:

vb里怎么用if表示一个三位数里任意一个位数有5而且能被3整除的数
rt

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...