问题一：
我的话~~我不会用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这边忘记改了~~~所以会有问题

程式不会写可以问
但重要的事你要建立自己的逻辑观念
了解别人为什么要这样子写
跟你写的有什么差异
慢慢定中学习如何解题~~~而不是一昧的使用别人的程式
这样子是永远不会进步的

还有写程式的时候~~~有一些不成文的建议
像缩排啦、变数命名规则啦…
这些要稍微注意一下

那就谢谢各位的指导
我会注意的！！