VB中做一个二维数组

谁能帮我?

生成一个二维数组,
dim 数组(1 to 2^8,1 to 8) As Boolean
然后赋值,让它其中任意两行都不相同。

会有金币打赏。
适用低版本的VB较好。
1金币8金币18金币58金币88金币188金币
其它金额

余额不足,立即充值
我的金币余额:个
支付即为同意 集思录答谢协议
发表时间 2020-10-18 21:49     最后修改时间 2020-10-18 23:14

赞同来自: fanjinlong

0

lzwhw1980

赞同来自:

遍历一下就行了
2020-10-18 21:56 0 条评论
0

jsl2025 - 持续学习,持续盈利。欲戴王冠,必承其重。

赞同来自:

按排列组合赋值
2020-10-18 21:59修改 0 条评论
0

jsl2025 - 持续学习,持续盈利。欲戴王冠,必承其重。

赞同来自:

for i=0 to 7
for j=1 to 8
a[i*8+j][i+1]=1
a[i*8+j][j]=1
next
next
2020-10-18 22:20修改 4 条评论
0

梦想在前方 - 稳健投资

赞同来自:

多少个金币
2020-10-18 22:20 0 条评论
2

小竹

赞同来自: jsl2025 tranquility

不要求随机的话简单啊,把0到63转成2进制,不满8位前面加0,赋值给数组就行
2020-10-18 22:40 1 条评论
0

pinroop

赞同来自:

for i=1 to 64
k=i-1
for j=1 to 8
a[i][j]=k mod 2
k=k div 2
next j
next i
2020-10-18 22:53 3 条评论
0

小竹

赞同来自:

'VB6都可运行
Dim a(1 To 64, 1 To 8) As Boolean
For i = 1 To 64
k = i - 1
For j = 8 To 1 Step -1
a(i, j) = k Mod 2
k = Int(k / 2)
Next j
Next i
2020-10-18 23:09修改 3 条评论
0

jin888555

赞同来自:

感谢各位,凡有代码的,都打赏了,本帖可以结束了,谢谢各位。
2020-10-18 23:17 0 条评论
0

jin888555

赞同来自:

试过了,后面两种是对的,再次感谢,如果我自己想,我永远想不出这种简明的办法。
2020-10-18 23:25 0 条评论
0

pinroop

赞同来自:

现在赚钱不容易啊,既要计算机好,又要数学好。
2020-10-18 23:31 2 条评论
0

薛丙丁 - 迫于无奈,你最终还是关注了我

赞同来自:

集思录教编程指日可待
2020-10-18 23:36 0 条评论
0

xianglinhu

赞同来自:

先生成随机数塞入set,如果已经够了
二维循环赋值即可。so easy!
2020-10-19 07:27 0 条评论

要回复问题请先登录注册