产生10个全为0,1的几组随机数

来源：百度知道 编辑：UC知道 时间：2024/06/17 22:38:30
其中不能有3个0或者3个1连续,并且使每组数首尾相接后的数也没有3个0或3个1连续
并且不产生以下的情况
1 1 0 0 1 0 1 0 1 0
1 0 0 1 1 0 0 1 1 0
1 0 0 1 0 1 0 1 0 1
如第1，3 5 列 不产生 3个1或者3个0连续
而且产生的每个数能单独赋值给一个可调用的变量
产生的数也可单独赋值给一个可调用的数组
编成二维数组也行
关键是产生的数可以提取出来

用VB来编写 谢谢

====问题====
用什么语言呢？

======================================

Dim a(13, 13) As Integer
Dim t As Boolean
vv:
'生成10*10的2维数组
i = 0
j = 0
For i = 1 To 12
For j = 1 To 12
If i > 10 And j > 10 Then
a(i, j) = 0
Else
If i > 10 Then
a(i, j) = a(i - 10, j) '大于10以后拿10位以前的数。
Else
If j > 10 Then
a(i, j) = a(i, j - 10) '纵向大于10以后拿1~3行的数
Else
a(i, j) = 1 * Rnd '10*10方阵取随机数
End If
End If
End If
Next j
Next i
'数组取完，下面开始是 验证数据
i = 0
j = 0
For i = 1 To 10
For j = 1 To 10
If a(i, j) = a(i + 1, j) And a(i, j) = a(i + 2, j) Then
GoTo vv '如果3个横向相同则重新生成数组
Else
If a(i, j) = a(i, j + 1) And a(i, j) = a(i, j + 2) Then
GoTo vv '如果3个纵向相同则重新生成数组
End If
End If
Next j
Ne