看板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》 ◣◣◢ ─╯