请问如何随机产生一个n位的二进制序列?

Question

也就是n位二进制序列中每一位都只能为0或者1,谢谢了！

Answer 1

比如下面的，产生一个指定长度的串：Function rndbin(ByVal rlen As Integer)
    Dim i As Integer, r As Integer
    For i = 1 To rlen
        r = Int(Rnd * 10)
        rndbin = rndbin & r Mod 2
    Next
End Function

Answer 2

改一下，加一句 Randomize Function rndbin(ByVal rlen As Integer)
    Dim i As Integer, r As Integer
    
    Randomize       '初始化随机数生成器，以防产生重复的串
    For i = 1 To rlen
        r = Int(Rnd * 10)
        rndbin = rndbin & r Mod 2
    Next
End Function

Answer 3

Public Function TwoVal(x As Integer) As String
 Dim i As Integer
  For i = 1 To x
    TwoVal = TwoVal & CStr(Round(Rnd * 1))
  Next
End FunctionPrivate Sub Command1_Click()
 MsgBox TwoVal(10)
End Sub

Answer 4

'strlen 是二进制数的长度，返回String类型
Function rndbin(ByVal strlen As Integer) as String
    Dim i As Integer, r As Integer
    For i = 1 To strlen
        Randomize       '初始化随机数生成器
        r = Int(Rnd * 10)
        rndbin = rndbin & r Mod 2
    Next
End Function
有个返回值

Answer 5

Private Sub Command1_Click()
MsgBox randn(10)
End Sub
Function randn(ByVal n As Integer) As String
Dim a() As String, i As Integer
Randomize
ReDim a(1 To n)
For i = 1 To n
a(i) = Int(2 * Rnd)
Next
randn = Join(a, "")
End Function