从1-35个数中选7个号码,要求输出所有的号码
非常感谢!!
第1个回答 2006-04-15
这个最简单的拉,看是否符合你的要求
其实看一下书都会写的拉
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本回答被提问者采纳
其实看一下书都会写的拉
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本回答被提问者采纳
第2个回答 2006-04-09
数学家们从来不买彩票,因为他们知道,在去买彩票的路上被车撞死的概率比中彩的概率要大得多