【vbs】1000到9999之间有多少个各位数字不同求该VBS,谢谢

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/06 09:48:35

【vbs】1000到9999之间有多少个各位数字不同求该VBS,谢谢
【vbs】1000到9999之间有多少个各位数字不同
求该VBS,谢谢

【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

【vbs】1000到9999之间有多少个各位数字不同求该VBS,谢谢 在1000到9999之间有多少个各位数字不同的奇数? 1000到9999之间共多少个数字 126到300之间有多少个偶数? 0.2到0.3之间有多少个小数 245到567之间有多少个偶数 1.1到1,3之间有多少个小数? 0到10万之间有多少个素数? 103到2013之间有多少个奇数 2.1到2.2之间有多少个三位小数 100到200之间有多少个奇数 2001到3000年之间有多少个闰年? 在1000到9999之间有多少个每位数不相同的偶数算法呢？24？ 在1000到2000之间,有多少个自然数是7的倍数?要求排等差数列. 从1000到1999这之间的1000个自然数中,有多少个千位数、百位数、十位数、个位数? 【200分高悬赏】1000到9999之间有多少个各位数字不同要详细过程,解析!是【各位数字】不同数的【奇数】 在1000到10000之间同时能被12,16,24,28整除的数有多少个? 在0到1000之间,有多少个自然数的每个数位上的数的和等于15?