【vbs】1000到9999之间有多少个各位数字不同求该VBS,谢谢
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/23 18:07:42
![【vbs】1000到9999之间有多少个各位数字不同求该VBS,谢谢](/uploads/image/z/5362934-14-4.jpg?t=%E3%80%90vbs%E3%80%911000%E5%88%B09999%E4%B9%8B%E9%97%B4%E6%9C%89%E5%A4%9A%E5%B0%91%E4%B8%AA%E5%90%84%E4%BD%8D%E6%95%B0%E5%AD%97%E4%B8%8D%E5%90%8C%E6%B1%82%E8%AF%A5VBS%2C%E8%B0%A2%E8%B0%A2)
【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?