Question

求一段用VB写的关于排列组合代码,类似彩票选号

从1-35个数中选7个号码,要求输出所有的号码
非常感谢!!

Answer 1

这个最简单的拉,看是否符合你的要求
其实看一下书都会写的拉
Private Sub Command1_Click()
Dim a(7) As Integer
Dim i As Integer
For i = 1 To 7
Randomize
a(i) = Int(35 * Rnd + 1)
Print ; a(i);
Next i
End Sub

Answer 2

数学家们从来不买彩票，因为他们知道，在去买彩票的路上被车撞死的概率比中彩的概率要大得多