【vbs】1000到9999之间有多少个各位数字不同
题目
【vbs】1000到9999之间有多少个各位数字不同
求该VBS,谢谢
答案
dim num,c,i,bool,chr
for c=1000 to 9999
for i=1 to 3
if instr(instr(1,c,mid(c,i,1))+1,c,mid(c,i,1))0 then
bool=false
exit for
else
bool=true
end if
next
if bool then num=num+1:chr=chr & c & vbCr
next
msgbox num
msgbox chr
总共4536个
第二种方法,要简单点,.
dim num,c,i,bool,chr,arr()
for c=1000 to 9999
redim arr(10)
for i=1 to 4
if arr(mid(c,i,1))=true then
bool=false
exit for
else
arr(mid(c,i,1))=true
bool=true
end if
next
if bool then num=num+1:chr=chr & c & vbCr
next
msgbox num
msgbox chr
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 函数y=f(x)=lgx-2的图象变形到f(x)=/lg/x-2//的图象应该有哪几个步骤/
- 关于人的学识,修养,内在美的名言
- 甲乙两种商品价格比是6:3,如果他们的价格分别下降12元价格比变为8:3这两种商品的原价各是多少元
- 一种出租车起价5元,达到或超过5千米后,每增加一千米,加价1.2元,现在某人乘出租车
- 你有什么兴趣爱好?(可选用下面提供的信息) Age:eleven class Two Grade Five Hobbies:reading,swimming,shopping,piay the pia
- 比赛输了,用四个字的成语或熟语可以说什么呢
- 什么样的人才算是真正聪明的人?
- there ie nothing _ to see__here .see 为什么变成to see
- 水池注水问题
- 有一堆煤共45吨.分5次运完.平均每次运了这堆煤的几分之几