excle2007高手请进，关于随机排数的问题

来源：蜘蛛抓取(WebSpider) 时间：2011-09-22 23:57 标签： excle
高分请教高中数列题,高手请进 在线等从0,1,2,3……9这十个数中不放会地随机取N（N大于等于2小于等于10）个数,能排成N位偶数的概率为P（N）,则数列{P（N)}为1等比非等差2等差非等比3等比等差_百度作业帮
高分请教高中数列题,高手请进 在线等从0,1,2,3……9这十个数中不放会地随机取N（N大于等于2小于等于10）个数,能排成N位偶数的概率为P（N）,则数列{P（N)}为1等比非等差2等差非等比3等比等差
高分请教高中数列题,高手请进 在线等从0,1,2,3……9这十个数中不放会地随机取N（N大于等于2小于等于10）个数,能排成N位偶数的概率为P（N）,则数列{P（N)}为1等比非等差2等差非等比3等比等差4非等比非等差过程 没答案 addss1990、取出的数进行排列，组成的偶数个数比上全排的个数表示P（N） 请问12345这五个数组成偶数的概率为1吗？该题为往年自主招生题，能找到原题的也可帮忙。
12345这五个数组成偶数的概率不为1,但能组成5位偶数的概率为1题目说的是能排成N位偶数的概率为P（N）,也就是说只要选的N个数中有偶数,则P(N)=1,因为只要这N个数中有偶数就一定可以找到一种排列方式排成N位偶数,反之没有偶数则P(N)=0,接下来就像addss1990说的那样了……你也许是没理解“能排成偶数的概率”和“排成偶数的概率”的区别……
p(N)=1/2 不管n是什么
答案是4解析:当2≤N≤5时，可以全部取奇数，也可以全部取偶数，也可以奇偶都有。
所以0<P（N）<1
当6≤N≤10时，由于所选的N个数中必有偶数，主要偶数在末位，就能排成
N位偶数，所以P（N）=1
所以数列{P（N)}为非等比非等差数列。...
addss1990正解关于excle2003统计公式设置问题，高手进_百度知道
关于excle2003统计公式设置问题，高手进
全部贡献出来：D10中的第二大数值。在B1中算出D1，全部为数值：数据源是D1，在B2中算出D1我只有50多分的积分：统计一列数据的大小值，谁能帮帮我题目：D10的最大数值:D10的10个随机数据。如，按顺序填列在其他列
我是初学者，请大家回答尽量祥细点
我有更好的答案
可以用MAX函数
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁excle高手进，请教一个问题。。。。
帖子28473&精华&积分44847&激骚度372 &爱车&主机&相机&手机&注册时间&
有一个表，大约2000多行。
每行的第二列是设备序列号。
现在要以这2000多个序列号为名字，建立2000多个文件夹。这是第一步。。。。
然后，每个序列号下，还包括3个零件序列号，现在，要以这3个零件序列号为文件名，3个doc文件，分别放到对应的序列号文件夹下。这是第二步。。。。。而且以后还要再增加零件
我从周一就开始弄这个东西，先手动建一个，然后复制2000多个，然后一个一个改名字。主要是，如果以有增加，就得一个一个添加。请教有没有快捷一点的方法？要疯了。。。。。。。
塔利班班主任
帖子5395&精华&积分24839&激骚度28 &爱车&主机&相机&手机&注册时间&
用VBA啊 同志&&这样头发白了也搞不完的啊
塔利班班主任
帖子5395&精华&积分24839&激骚度28 &爱车&主机&相机&手机&注册时间&
Sub create folders()
DIM FOLDER AS STRING
FOR I=1 TO 2000
FOLDER=CELLs(i,2).value
mkdir&&&D:\&+folder
上面这个可以D盘根目录下创建2000个文件夹
[ 本帖最后由 越过俺的尸体 于
22:26 编辑 ]
塔利班班主任
帖子5395&精华&积分24839&激骚度28 &爱车&主机&相机&手机&注册时间&
现在必须知道是序列号下面那三个零件号在什么位置上？
[ 本帖最后由 越过俺的尸体 于
22:34 编辑 ]
张宇、伍佰
帖子8721&精华&积分37916&激骚度698 &爱车惊了！&主机炸裂了！&相机湿了！&手机直了！&来自喷了！&注册时间&
VBA不熟，Excel发来可以帮你做个VB6或C#程序
3#的函数：
create folders() 似乎中间不能有空格的吧？
UID54726&帖子8721&精华&积分37916&交易积分0 &阅读权限40&来自喷了！&在线时间4156 小时&注册时间&最后登录&
帖子28473&精华&积分44847&激骚度372 &爱车&主机&相机&手机&注册时间&
文件在公司的机器上，这个文件倒是无所谓，但还有其他客户资料什么的在一台机器上，所以拿不出来。。。。。。
VBA完全不会啊。。。是不是还要在装个其他软件配合？如果是的话就死B了，有权限设置。
我只是被临时抓来搞这个的，VBA估计全公司也没会的。。。。。。。
总序列号在第二列。3个零件的序列号分别在第3，4，5列上。在后面就是备注什么的。
[ 本帖最后由 shixn 于
00:05 编辑 ]
塔利班班主任
帖子5395&精华&积分24839&激骚度28 &爱车&主机&相机&手机&注册时间&
我试过了&&可以运行&&运行结果是在D盘下生成一个叫test的文件夹 里面就是LZ所要的东西了&&2000多行可能要运行半个小时左右，不过要注意的是&&你说的这2000多行的设备号和序列号不能为空或者重复
运行VBA什么权限都不用，打开你的EXCEL文件 --工具--宏--VISAL BASIC编辑器 把下面代码粘进去运行就可以了
还有 这段代码需要引用WORD，在VBA编辑器下 工具--引用--MICROSOFT WORD OBJECT LIBRARY 钩选上就可以了
Sub createfolders()
Dim folder As String
Dim currentpath As Variant
Dim worddoc(3000, 2) As String
Dim docApp As New Word.Application
Dim docDoc As Word.Document
Set chk = CreateObject(&Scripting.FileSystemObject&)
If chk.FolderExists(&D:\test&) = False Then
MkDir &d:\test&
Else: MsgBox &路径已存在!&
RowCount = ActiveSheet.[b1].CurrentRegion.Rows.Count
For i = 1 To RowCount
folder = Cells(i, 2).Value
If folder && && Then
MkDir &D:\test\& + folder
currentpath = &D:\test\& + folder + &\&
worddoc(i - 1, 0) = Cells(i, 3).Value
worddoc(i - 1, 1) = Cells(i, 4).Value
worddoc(i - 1, 2) = Cells(i, 5).Value
docApp.Visible = False
Set docDoc = docApp.Documents.Add
docDoc.SaveAs currentpath + worddoc(i - 1, 0) + &.doc&
docDoc.SaveAs currentpath + worddoc(i - 1, 1) + &.doc&
docDoc.SaveAs currentpath + worddoc(i - 1, 2) + &.doc&
docApp.DisplayAlerts = False
docDoc.Close
docApp.Quit
Set docDoc = Nothing
Set docApp = Nothing
不知道LZ的文件是什么样子 也许会有些我没注意到的小毛病
[ 本帖最后由 越过俺的尸体 于
14:23 编辑 ]
塔利班班主任
帖子5395&精华&积分24839&激骚度28 &爱车&主机&相机&手机&注册时间&
另外 5楼同学说的对&&我小紧张了一下
帖子28473&精华&积分44847&激骚度372 &爱车&主机&相机&手机&注册时间&
大感激LS帮忙！！！！！！！！！！！！！！！！！！！！！
实验了一下，只弄了30多行，出错了，代码没修改，在试的时候excel说“该工程的宏被禁止”是咋回事？？
成功生成了一个文件夹，里面的内容都对，先抄下来，明天去单位弄，MB单位的破机器还不能上网。。。。
知识真伟大！！！！

我要回帖

更多关于 excle 的文章

 

随机推荐