在 VB IDE 環境下不會直接當，會把錯誤行號用黃色反白標出來。 把變數用滑鼠反白按下 Shift+F9 ，就可以檢查問題。 發問時應註明錯誤行號，跟當時的變數。 ==> 本文由 "流浪的mimi貓~~~ <[email protected]>" > 於 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