VB实现的一个号码组合软件

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

　　输入数据: A组:2,8,9 B组:4,7,9,10 C组:8,11,12 条件: 1,一组只能选一个号 2,选出的号不能相同 3,A组　　用VB编写的代码如下
　　view plaincopy to clipboardprint?
　　Option Base 1
　　Private Sub Command1_Click()
　　Dim a()
　　Dim b()
　　Dim c()
　　a = Array(2, 8, 9)
　　b = Array(4, 7, 9, 10)
　　c = Array(8, 11, 12)
　　For i = 1 To UBound(a)
　　For j = 1 To UBound(b)
　　If a(i) < b(j) Then
　　For k = 1 To UBound(c)
　　If b(j) < c(k) Then
　　Print a(i), b(j), c(k)
　　End If
　　Next k
　　End If
　　Next j
　　Next i
　　End Sub

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。