结果要输出所有组合,就是输入六个数后，输出5265个结果!大哥,麻烦你顺手做好,把程序发到我邮箱,好吗? [email protected]
谢谢了
6选4+27选2 用VB怎么编？
答案:4 悬赏:30
解决时间 2021-05-13 13:39
- 提问者网友：心裂
- 2021-05-13 00:03
最佳答案
- 二级知识专家网友：山鬼偶尔也合群
- 2021-05-13 01:25
哪六个数？
全部回答
- 1楼网友：孤伤未赏
- 2021-05-13 04:47
你的意思这6个数的所有排列组合？5265个结果怎么得出来的？
- 2楼网友：高冷不撩人
- 2021-05-13 03:42
思路：
Private Sub Command1_Click() Dim a(1 To 33) Dim b(1 To 6) Dim c(1 To 4) Randomize For i = 1 To 33 a(i) = Split(Text1.Text, ",") For j = 1 To 4 c(j) = Int(Rnd * 33 + 1) b(j) = a(c(j)) Next j Next i For k = 1 To 4 d = Int(Rnd * 33 + 1) If d <> c(k) Then b(k) = a(d) Next k For i = 1 To 6 'b(i) Next i End Sub
- 3楼网友：瘾与深巷
- 2021-05-13 03:05
听起来像彩票啊，是么？
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯