关于要写个乐透问题
还想请各位协助
关于这段
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这边忘记改了~~~所以会有问题

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

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

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