滿意答案

唯一手記

2013.08.17

采納率：57%????等級(jí)：12

已幫助：2085人

樓主

這時(shí)一段根據(jù)題目出的查找程序，但是有一定的問(wèn)題

mumber = 0

這句應(yīng)該說(shuō)number=0還有我將程序按照我的想法改變了一下，并做了注釋

Private Sub Command1_Click() 'VB中的按鈕單擊事件

Const n = 10 '常量10

Dim hole(10) As Integer 'hole(10)為整形數(shù)組，分別用來(lái)存放10個(gè)洞被查過(guò)幾次

Dim number As Double

Dim i, j As Integer '循環(huán)專用

For i = 0 To 9 '將10個(gè)洞的計(jì)數(shù)清零

hole(i) = 0

Next i

number = 0

For j = 1 To 1000 '主要查詢程序方法是第幾次要找的洞是 前幾次次數(shù)相加并整除10，余數(shù)為要找的洞

number = number + j '前幾回次數(shù)相加

i = number Mod n '求余數(shù)

hole(i) = hole(i) + 1 '查找次數(shù)累加

Next j

For i = 0 To n - 1

If hole(i) = 0 Then Print i + 1 '打印為被查找的洞號(hào)，數(shù)組從0開(kāi)始所以加1

Next i

End Sub

有問(wèn)題312626838 最后可能躲在3,5,8,10。但是從10號(hào)來(lái)所以10被排除了

00分享舉報(bào)

總結(jié)

以上是生活随笔為你收集整理的C语言狐狸与兔子编程,狐狸找兔子（VB程序设计）的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。