vb中表示x是3或7的倍数-搜答案-灵鹊做题网

(1)xMod3=0OrxMod7=0(2)CInt(Rnd*101)+100

2的倍数有2、4、6、…、30共15个3的倍数有3、6、9、…、30共10个既是2的倍数又3的倍数的（即6的倍数）有6、12、…、30共5个因此答案是15+10-5＝20（个）

这个采用枚举算法：枚举的关键：一一列举,逐个检验一一列举：用循环逐个检验：用选择n3=0'存放3的倍数的个数n7=0'存放7的倍数的个数Fori=1To100ifiMod3=0Thenn3=n3+1i

PrivateSubCommand1_Click()Dimi%Fori=100To999IfiMod7=0AndMid(CStr(i),2,1)="2"ThenPrintiNextEndSub再问：M

X

n以内5或7的倍数之和:PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=5TonIfiMod5=0OriMod7=0ThenSum=Sum+iNextM

if(xmod4=0)or(xmod13=0)thenprint"X是4或者13的倍数"endif

ifxmod3=0andx0thenmsgbox”x是3的倍数”endififxmod7=0andx0thenmsgbox”x是7的倍数”endif

if(xmod3=0)and(xmod5=0)then

a^n代表a的n次幂;aXorn代表a和n的异或运算,其中a和n都是数字则按位异或；a和n是逻辑变量则true按1算,false按0算,进行按位异或.如果a和n是字符串则运算出错,Xor运算符只支持数

Private Sub Command1_Click() Dim n As Integer &

VB中 \ 表示什么

整除,a\b代表a整除以b,例如10\6=1,

PrivateSubCommand1_Click()Dimm%,n%Fori=1To100IfiMod3=0Thenm=m+1IfiMod7=0Thenn=n+1NextiPrint"统计1~100中

xmod7=0andxmod2=1或xmod7=0andxmod20因为vb中,优先级为"and">"=">"mod"故无需加括号.这段内容返回一个Boolean类型的值.即返回True或False,

7的倍数是13个

不超过30的3的倍数有[303]＝10（个），不超过30的4的倍数有[304]=7（个）；不超过30的3×4=12的倍数有[303×4]＝2（个），因此不超过30的正整数中是3的倍数，或是4的倍数的数

5的倍数有：5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,1007的倍数有：7,14,21,28,35,42,49,56,63,70,

3的倍数有：50÷3=16.216个7的倍数：50÷7=7.1共7个3×7=21,21的倍数有：2个所以3或7的倍数有：16+7-2=21个.

PrivateSubCommand1_Click()Dimi%,j3%,j7%Fori=1To100IfiMod3=0Thenj3=j3+1IfiMod7=0Thenj7=j7+1NextPrint"

明显答案错误,应为or.显示当前日期：printdate