在 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