Re: <新手>請問VB...
在 VB IDE 環境下不會直接當，會把錯誤行號用黃色反白標出來。
把變數用滑鼠反白按下 Shift+F9 ，就可以檢查問題。
發問時應註明錯誤行號，跟當時的變數。
==> 本文由 "流浪的mimi貓~~~ <eiven.bbs@bbs.badcow.com.tw>"
> 於 news:4aGLR9%24ZSJ%40bbs.badcow.com.tw 發表
> 老師要我們製作開獎的小程式
> 希望能控制開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
--
風禹科技驗證有限公司 ASP.NET Web News Reader 0.2.7 UTF-8 Beta
網站地圖 http://tlcheng.twbbs.org/wwwmap.htm
流域防洪/區域水資源/徐昇網/玫瑰圖/語音通訊 文章與程式
Basic/Fortran/Windows API/.Net/輔助說明檔 原始碼、文章與討論
微軟程式設計、系統管理使用新技術論壇討論區，網友回覆後即時簡訊、電子郵件通知：
MSDN: http://forums.microsoft.com/msdn-cht/default.aspx?siteid=14
TechNet: http://forums.microsoft.com/technet-cht/default.aspx?siteid=23
--
ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx
RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：