本文目录
- 用excel随机生成2位数,个位比十位大的数
- 用冒泡法将10个不同的随机二位数从大到小排序
- VB程序随机生成10个二位数单号从小到大排序双号从大到小排序
- (5)生成一-个包含20个随机2位整数的列表，并将列表中的偶数变成它的平方，奇数变成它的立方
- 设二位随机变量（X，Y）的概率分布如下表：
- Excel 怎么做到，随机取数并到2位小数点
- Excel 一共80个人 随机安排2位一组 求人名组合
用excel随机生成2位数,个位比十位大的数
=ROUND(RAND()*100,0)生成2位数或=ROUND(RAND(),2)*100生成2位数
用冒泡法将10个不同的随机二位数从大到小排序
private sub command1_click()for i=1 to 10c(i)=int(rnd*90)+10next ifor i=1 to 10 for j=i+1 to 5 if c(i)《c(j) d=c(i) c(i)=c(j) c(j)=d end ifnext jnext ir=""for i=1 to 10r=r & C(i)next imsgbox rend if
VB程序随机生成10个二位数单号从小到大排序双号从大到小排序
Private Sub Command1_Click()Dim 单号() As Integer, 单号索引 As IntegerDim 双号() As Integer, 双号索引 As Integer单号索引 = -1双号索引 = -1For i = 1 To 10a = 生成2位随机数If a Mod 2 = 1 Then单号索引 = 单号索引 + 1ReDim Preserve 单号(单号索引)单号(单号索引) = aElse双号索引 = 双号索引 + 1ReDim Preserve 双号(双号索引)双号(双号索引) = aEnd IfNext数组排序 单号Debug.Print "----以下是单号----"For i = 0 To UBound(单号)Debug.Print 单号(i)Next数组排序 双号, TrueDebug.Print "----以下是双号----"For i = 0 To UBound(双号)Debug.Print 双号(i)NextEnd SubPublic Function 生成2位随机数()Randomize Timer生成2位随机数 = Int(90 * Rnd) + 10End FunctionPublic Sub 数组排序(ByRef MyArray As Variant, Optional ByVal Order As Boolean)Dim Distance, Size, Index, NextElement, TEMP, gIterationsSize = UBound(MyArray) - LBound(MyArray) + 1: Distance = 1: While (Distance 《= Size): Distance = 2 * Distance: WendDistance = (Distance / 2) - 1: While (Distance 》 0): NextElement = LBound(MyArray) + DistanceWhile (NextElement 《= UBound(MyArray)): Index = NextElement: Do: If Index 《 (LBound(MyArray) + Distance) Then Exit DoIf Not Order ThenIf MyArray(Index) 》= MyArray(Index - Distance) Then Exit DoTEMP = MyArray(Index): MyArray(Index) = MyArray(Index - Distance): MyArray(Index - Distance) = TEMP: Index = Index - Distance: gIterations = gIterations + 1ElseIf Order ThenIf MyArray(Index) 《 MyArray(Index - Distance) Then Exit DoTEMP = MyArray(Index): MyArray(Index) = MyArray(Index - Distance): MyArray(Index - Distance) = TEMP: Index = Index - Distance: gIterations = gIterations + 1End If: Loop: NextElement = NextElement + 1: gIterations = gIterations + 1: Wend: Distance = (Distance - 1) / 2: gIterations = gIterations + 1: WendEnd Sub=============执行结果============----以下是单号----15 61 63 75 79 87 ----以下是双号----96 88 80 76
(5)生成一-个包含20个随机2位整数的列表，并将列表中的偶数变成它的平方，奇数变成它的立方
讲讲大致思路声明两个个20位的素组来存储奇偶数 A(20),B(20)跟2做余数，为0的是偶数，大于0的奇数用FOR循环生成随机数，同时做奇偶处理for i=1 to 20C=RNDif (C MOD 2)= 0 THENB(J)=CJ=J+1ELSEA(K)=CK=K+1END IFnext这样就把奇偶数分好了。
设二位随机变量（X，Y）的概率分布如下表：
P(XY=1)=0.3，P(XY=-1)=0.3，P(XY=0)=0.4，故E(XY)=0，且E(X)=0.7,E(Y)=0，故Cov(X,Y)=E(XY)-E(X)E(Y)=0
Excel 怎么做到，随机取数并到2位小数点
=TEXT(RAND(),"0.00")这是产生0~1之间的随机函数,并保留到小数点后2位 =TEXT(RANDBETWEEN(45,50),"0.00")这是产生45~50之间的随机函数,并保留到小数点后2位,根据需要替换45,50即可
Excel 一共80个人 随机安排2位一组 求人名组合
源数据
AB列是80个姓名、序号
C2=IF(ROW(A1)+COLUMN(A1)》80,0,TEXT(ROW(A1),"00")&TEXT(COLUMN(A1)+ROW(A1),"00"))向下复制80行，向右复制78列
组合名单
A2=LARGE(--源数据!$C$2:$CC$81,ROW(A1))
数组公式向下复制3600行【数组公式，公式输完后，光标放在公式栏同时按下CTRL+SHIFT+回车键，使数组公式生效】
B2=INDEX(源数据!$A$2:$A$81,--LEFT(A2,LEN(A2)-2))&"-"&INDEX(源数据!$A$2:$A$81,--RIGHT(A2,2))向下复制
C2=RAND()
D2=RANK(C2,$C$2:$C$3161)
两公式向下复制，这是建立随机安排的关键
这就是人名组合
建立随机监考表
A列考场序号有多少个列多少个
B2=INDEX(人名组合!B:B,MATCH(随机监考表!A2,人名组合!D:D,0))向下复制
按下F9键可以随机安排监考人员
