楼主这时一段根据题目出的查找程序,但是有一定的问题mumber = 0这句应该说number=0还有我将程序按照我的想法改变了一下,并做了注释Private Sub Command1_Click() 'VB中的按钮单击事件Const n = 10 '常量10Dim hole(10) As Integer 'hole(10)为整形数组,分别用来存放10个洞被查过几次Dim number As DoubleDim i, j As Integer '循环专用For i = 0 To 9 '将10个洞的计数清零hole(i) = 0Next inumber = 0For j = 1 To 1000 '...