看板 [ Visual_Basic ]
討論串[請益] 請問關於do loop
共 5 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[請益] 請問關於do loop
推噓2(2推 0噓 0→)留言2則，0人參與, 最新作者smaljohn (平平)時間19年前 (2005/05/28 20:46), 編輯資訊
0
0
0
內容預覽:
正在寫一個猜數字的程式 其中用到do loop. 目前只希望能做出四位不同數字的陣列r(1)~r(4). 程式碼如下(有問題處用紅色標了). Private Sub Command1_Click(). For i = 1 To 4. For j = 1 To 4. Randomize. f = In
(還有432個字)
#2
Re: [請益] 請問關於do loop
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者fumizuki (小獅)時間19年前 (2005/05/28 21:28), 編輯資訊
1
0
0
內容預覽:
Private Sub Command1_Click(). For i = 1 To 4. For j = 1 To 4. Randomize. f = Int(Rnd * 10). If f = 0 Then. r(i - 1) = 0. ElseIf f = 10 Then. r(i - 1)
(還有522個字)
#3
Re: [請益] 請問關於do loop
推噓3(3推 0噓 1→)留言4則，0人參與, 最新作者smaljohn (平平)時間19年前 (2005/05/28 21:51), 編輯資訊
0
0
0
內容預覽:
跟原程式碼是一樣的. 不過現在我重新複製回成是去跑就沒出現那個錯誤訊息. 反倒是現在一跑這段就當機...????. 是不是loop變成無限迴圈了..?你們跑的時候有出現數字嗎?謝謝. --. ※ 發信站: 批踢踢實業坊(ptt.cc). ◆ From: 203.67.104.186.
#4
Re: [請益] 請問關於do loop
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者sioo (加油加油)時間19年前 (2005/05/29 00:57), 編輯資訊
0
0
0
內容預覽:
好巧,下午正在幫堂弟寫作業,也寫了一個猜數字,. 我是看網路上面的範例來產生四個不同的數字:. Randomize. A(0) = CInt(Int(Rnd * 10)). Do. A(1) = CInt(Int(Rnd * 10)). Loop While A(1) = A(0). Do. A(2
(還有48個字)
#5
Re: [請益] 請問關於do loop
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者fumizuki (小獅)時間19年前 (2005/05/29 07:20), 編輯資訊
0
0
0
內容預覽:
Private Sub Command1_Click(). Dim r(3) As Integer, i As Integer, j As Integer, Exists As Boolean. Randomize. For i = 0 To 3. Exists = True. Do While E
(還有186個字)
首頁
上一頁
1
下一頁
尾頁