問題一：
我的話~~我不會用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這邊忘記改了~~~所以會有問題

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

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

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