看板Programming
標 題<新手>請問VB...
發信站不良牛牧場 (Fri May 30 17:00:08 2008)
轉信站ptt!ctu-reader!ctu-gate!news.nctu!news.ntu!news.au!zoonews.ee.ntu!SimF
老師要我們製作開獎的小程式
希望能控制開4或6個數，數值不足時會顯示警告訊息
開6個數的時候一切正常執行
但開4個數的時候，數值不足出現警告訊息後就當了...= =
是少了什麼嗎?
Dim n As Integer
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Dim cdig, dig(6), k, m, dmin, dmax As Integer
Randomize
If Trim(D1.Text) = "" Then
dmin = 1
D1.Text = "1"
Else
dmin = Val(D1.Text)
End If
If Trim(D2.Text) = "" Then
dmax = 100
D2.Text = "100"
Else
dmax = Val(D2.Text)
End If
If dmax < dmin Then
MsgBox "資料輸入錯誤! d2 不能比 d1 小", 48, "資料輸入錯誤"
dmax = dmin + n - 1
ElseIf dmax < dmin + n - 1 Then
MsgBox "資料輸入錯誤! d2 的值太小", 48, "資料輸入錯誤"
D2.Text = ""
dmax = dmin + n - 1
End If
D2.Text = dmax
Do While dig(6) = 0
cdig = Int((dmax - dmin + 1) * Rnd) + dmin
k = 0
For J = 1 To m
If cdig = dig(J) Then
k = 1
End If
Next
If k = 0 Then
m = m + 1
dig(m) = cdig
End If
Loop
N1.Text = dig(1)
N2.Text = dig(2)
N3.Text = dig(3)
N4.Text = dig(4)
N5.Text = dig(5)
N6.Text = dig(6)
End Sub
Private Sub Command3_Click()
N1.Text = ""
N2.Text = ""
N3.Text = ""
N4.Text = ""
N5.Text = ""
N6.Text = ""
End Sub
Private Sub Form_Load()
n = 6
End Sub
Private Sub Option1_Click()
N5.Visible = False
N6.Visible = False
n = 4
End Sub
Private Sub Option2_Click()
N5.Visible = True
N6.Visible = True
n = 6
End Sub
--
╭──── Origin:
<不良牛牧場> bbs.badcow.com.tw (210.200.247.200)─────╮
│ ↘ Welcome to SimFarm BBS -- From : [218.172.107.12] │
╰◣◣◢ ◢◢《不良牛免費撥接→電話:40586000→帳號:zoo→密碼:zoo》 ◣◣◢ ─╯