設定控制項陣列 text1(0~6)
在輸入 時不可重複的防錯就你自己寫啦
算中幾個n
dim n as integer
for i=0 to 6
for j=0 to 6
if val(text1(i).text)=num(j) then n=n+1
next j
next i
這上面的是不管啥特別碼之類的
要特別碼改一改就好了....其實我不太清楚那特別碼是怎麼一回事 我才買過一次樂透=.=
有問題再問吧^^
※ 引述《sweap (元氣酵素)》之銘言：
: Option Explicit
: Private Sub Command1_Click()
: Dim Num(6) As Integer
: Dim i As Integer
: Dim a As Integer
: Randomize Timer
: For i = 0 To 6
: RA:
: Num(i) = Int(Rnd * 42 + 1)
: If i > 0 Then
: For a = 0 To i - 1
: If Num(i) = Num(a) Then GoTo RA
: Next a
: End If
: Next i
: Label3.Caption = Num(0)
: Label4.Caption = Num(1)
: Label5.Caption = Num(2)
: Label6.Caption = Num(3)
: Label7.Caption = Num(4)
: Label8.Caption = Num(5)
: Label9.Caption = Num(6)
建議你用控制項陣列
: End Sub
: Private Sub Command3_Click()
: End
: End Sub
: command1我用來亂數產生號碼...
: command2我自己用6個TEXT輸入一組號碼..來跟亂數比對...
: 也就是對獎...就是這裡寫不下去了....
: 麻煩各位高手...幫忙解答一下...
--
╦═══╗ ╔════ ╔═══╗ ╗ ╔
║ ║ ║ ║ ║ ║ ║
║ ║ ╠════ ╠══╦╝ ╚╮ ╭╝
║ ║ ║ ║ ╚╮ ║ ║
║ ║ ╚════ ║ ║ ╚═╝
Http://98.to/吱 Copyright(C) 2003 Nerv.Studio
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 210.85.4.68