求0至9这十个数字组成的所有三位数的组合,用VB6。0

发布网友发布时间：2022-12-23 08:07

共3个回答

热心网友时间：2023-07-17 07:26

是120 个。大体上这样就行：

for a = 0 to 7
for b = a+1 to 8
for c = b+1 to 9
text1.value = text1.value & a & b & c & vbCrlf
next
next
next

其他的什么窗体、按钮、触发什么的自己随便搞下吧。

热心网友时间：2023-07-17 07:26

上面这个就是正解，可以给他分了~呵呵
不过有个错误就是 text不是用value属性，而是text1.text

热心网友时间：2023-07-17 07:26

用数字三彩神通软件组号，可以组成如下120注组选号码：
012 013 014 015 016 017 018 019 023 024
025 026 027 028 029 034 035 036 037 038
039 045 046 047 048 049 056 057 058 059
067 068 069 078 079 089 123 124 125 126
127 128 129 134 135 136 137 138 139 145
146 147 148 149 156 157 158 159 167 168
169 178 179 189 234 235 236 237 238 239
245 246 247 248 249 256 257 258 259 267
268 269 278 279 289 345 346 347 348 349
356 357 358 359 367 368 369 378 379 389
456 457 458 459 467 468 469 478 479 489
567 568 569 578 579 589 678 679 689 789