關於要寫個樂透問題
還想請各位協助
關於這段
For q = 0 To 5
Do
Label3(q) = Val(InputBox("請輸入第" & q + 1 & "個號碼" & vbCrLf & "彩球範圍為1～42號"))
Loop Until Label3(q) > 0 And Label3(q) <= 42
Next
現在我的問題是...
當我輸入完一個數要讓他馬上跟其他的其他數來對照是否重複如果重複就要馬上重新輸入 ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

問題一：
我的話~~我不會用for next來做
我會改寫用do until來做
因為for next的執行次數會固定
用do until才能改次數

上面只是我想到的＝　＝
如果有比較好懂得麻煩還請多多指教...
謝謝指教

大概寫了一下問題一與檢查號碼是否重覆

snum%=1
do
  Do
      checknum%=0
      Label3(snum) = Val(InputBox("請輸入第" & snum & "個號碼" & vbCrLf & "彩球範圍為1～42號"))

      if (label3(snum) <1 or label3(snum)>42) then
        checknum=1
        msgbox "輸入數字不在允許範圍內"
      end if

  Loop Until checknum =0

  checkdou%=0
  for i=1 to snum
    if Label3(i)=Label3(snum) then
        checkdou=1
    end if
  next i

  if checkdou = 0 then
    snum = snum+1
  else
    msg "輸入號碼重覆，請重新輸入"
  end if
loop until snum=5

至於問題二
我的建議是再設一個陣列把對中的號碼丟進去
在要顯示的時候整個變數印出來(不等於0的~~~記得初始化)
就解決了

給你參考

我把他套進去後會有問題
不管我輸入多少都會說號碼重複...
我能再問一下snum%=1
　checkdou=1　各代表什麼意思？

1.Integer 的型態宣告字元是百分比符號(%)
2.checkdou可能是 checkdouble 的縮寫 --->checkdou=1 判斷是否重覆

後來把底下修改成 For i = 0 To snum - 1
  If Label3(i) = Label3(snum) Then
    checkdou = 1
  End If
Next i

If checkdou = 0 Then
  snum = snum + 1
Else
  MsgBox "輸入號碼重覆，請重新輸入"
End If
Loop Until snum = 6
就不會卡住了
謝謝大家的指導...

其實要他不卡住
只要把 Label3(i) = Label3(snum)
改成   Label3(i - 1) = Label3(snum)

程式每個人的習慣寫法不一樣
在copy別人的程式時~~~最好注意一下細節
像
For i = 0 To snum - 1
If Label3(i) = Label3(snum) Then
與我原來寫的
for i=1 to snum
if Label3(i)=Label3(snum) then

i的起始值不同~~~所以你有在snum那邊-1
但if這邊忘記改了~~~所以會有問題

程式不會寫可以問
但重要的事你要建立自己的邏輯觀念
了解別人為什麼要這樣子寫
跟你寫的有什麼差異
慢慢定中學習如何解題~~~而不是一昧的使用別人的程式
這樣子是永遠不會進步的

還有寫程式的時候~~~有一些不成文的建議
像縮排啦、變數命名規則啦…
這些要稍微注意一下

那就謝謝各位的指導
我會注意的！！