滿意答案

唯一手記

2013.08.17

采納率：57%????等級：12

已幫助：2085人

樓主

這時一段根據題目出的查找程序，但是有一定的問題

mumber = 0

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

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

Const n = 10 '常量10

Dim hole(10) As Integer 'hole(10)為整形數組，分別用來存放10個洞被查過幾次

Dim number As Double

Dim i, j As Integer '循環專用

For i = 0 To 9 '將10個洞的計數清零

hole(i) = 0

Next i

number = 0

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

number = number + j '前幾回次數相加

i = number Mod n '求余數

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

Next j

For i = 0 To n - 1

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

Next i

End Sub

有問題312626838 最后可能躲在3,5,8,10。但是從10號來所以10被排除了

00分享舉報

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。