谁能把0—9这10个数字任选4个组成一个四位数，如1234，4532

来源：百度知道编辑：UC知道时间：2024/05/28 08:02:41

从0 1 2 3 4 5 6 7 8 9任选4个数组成一个四位数，如：1234 5476 9513等，不过一定要全，所有可能的都要回答出来。
今天我妹妹玩我的手机，不知道怎么搞的，这手机必须要输入密码才能打电话啊，玩游戏啊，发短信啊等等。但我不知道密码，只好救助群众了，帮帮忙了。回答我才是悦来悦好:我要是能自己排列的话，还用得着问你吗。回答567478：我讲的那些你也要回答上，但不能重复，如已经有一个5678了，就不能再输一个5678.回答hssccx：不想回答就别来凑热闹。回答彼岸微尘：写不全你就别写呗，我又没让你写。回答54deathangel：今天我妹妹玩我的手机，不知道怎么搞的，这手机必须要输入密码才能打电话啊，玩游戏啊，发短信啊等等。但我不知道密码，只好救助群众了，帮帮忙了。回答彼岸微尘：你啊，就是个神经病二五白痴猪狗不如的东西，你不想回答就不会答呗，我又没指定你答，神经病。

进来这个问题好几次了.呵呵
可以帮忙写个vbs脚本把所有的组合都列出来..
但是列出来了也没什么用.因为数据量太大了.估计试一个月都试不完

我认为,最佳的解决方案是:向你手机品牌的客服打电话,请求帮助.或到手机维修的地方(正规点的)重装手机系统软件

代码:
dim i,str
for i=0 to 9999
str=str&right("0000"&i,4)&vbCrLf
next
WriteFile "shuzi.txt", str, ""

Sub WriteFile(FileUrl, Str, CharSet)
On Error Resume Next
Set stm = CreateObject("Adodb.Stream")
with stm
.Type = 2
.mode = 3
.charset = CharSet
.Open
.WriteText Str
.SaveToFile FileUrl, 2
.flush
.Close
end with
Set stm = Nothing
End Sub

将以上内容复制到记事本后另存为"xx.vbs"
双击运行xx.vbs会在xx.vbs同文件夹下生成一个"shuzi.txt"文件,就是你要的东西,总共有10000条如下面的数据..
0000
0001
0002
0003
┇
9999

要是回答的内容有问题，或认为不妥，请发送百度消息给我，消息内容加上本页网址哦。。

·

每个数字都不同的话有4536个四位数你叫谁给你写全啊
有病啊你
排列组合谁不会啊，写全可以啊，但是给你写全你有用

从0--9这十个数字中任选3个数字，最多能组成（）个能被5整除的数从3、5、0、1这四个数字中任选3个组成没有重复数字且同时能被3、5整除的三位数有多少个 1 ,3,5,7,9中选3个数字.2 ,4,6,8中任选2个数字可以组成多少个没有重复的数字? 0-9十个数中任选5个（无重复），组成4位数，能被25整除的概率用0~9这10个不同的数字组成一个能被11整除的最大十位数 0到9这10个数字,可以组成多少个无重复的4位数? 用0～9这10个数字可以组成多少个没有重复数字的4位数？怎么解 0~~9这10个数字能组成多少个不重复出现的四位数的偶数。谁能告诉我从0到9中任选取3个数字（注这3个数也可能是同一个数）可以排多少个3位数？从0.1.2.。。。。9等10个数字中任选3个不同的数字。求3个数字中不含0或5的概率