在vb用什么函数能生成一个随机二进制数组？

Fix(Rnd * 2)或者Int(Rnd * 2)是随机生成0和1
你是要生成二维数组吗？

Private Sub Command1_Click()
Dim a(9, 4) As Byte, s As String
Cls
Randomize
For i = 0 To 9
s = ""
For j = 0 To 4
a(i, j) = Fix(Rnd * 2)
s = s & CStr(a(i, j)) & " "
Next
Print s
Next
End Sub

int(Rnd(1)+0.5)
就可以随机返回 0和1
然后用循环深层就可以了~

试一下:

Private Sub Command1_Click()
Dim x As String, s As String
Randomize
x = Replace(Rnd, ".", "")
For i = 1 To Len(x)
If (Val(Mid(x, i, 1)) Mod 2) = 0 Then
s = s & 0
Else
s = s & 1
End If
Next
Text1.Text = Left(s, 5)
End Sub