分类：电脑/网络-软件
问题：VB中程序调试出现的问题，求救自己编了一个程序，运行时显示错误4 
自己编了一个，运行时显示错误429,Active X部件不能创建，程序代码如下：Private StopWatch1 As ccrpStopWatchDim one_time As DoubleDim m As IntegerPrivate Sub Form_Keypress(Keyascii As Integer):  Dim x As Integer:L1.Visible = FalseLine1.Visible = True: Line2.Visible = Trueone_time = StopWatch1.El自己编了一个，运行时显示错误429,Active X部件不能创建，程序代码如下：Private StopWatch1 As ccrpStopWatchDim one_time As DoubleDim m As IntegerPrivate Sub Form_Keypress(Keyascii As Integer):  Dim x As Integer:L1.Visible = FalseLine1.Visible = True: Line2.Visible = Trueone_time = StopWatch1.Elapsedn = Data1.Recordset("数字"): i = Keyascii: p = n Mod 2:Select Case p   Case 0     Select Case i          Case 107          Open "d:\结果输出偶数.txt" For Append As #1          Print #1, n, m, "正确", one_time          Close #1          Case 115          Open "d:\结果输出偶数.txt" For Append As #1          Print #1, n, m, "不正确", one_time          Close #1          Case Else          Open "d:\结果输出偶数.txt" For Append As #1          Print #1, n, m, "不正确", one_time          Close #1     End Select   Case 1      Select Case i          Case 107          Open "d:\结果输出奇数.txt " For Append As #2          Print #2, n, m, "不正确", one_time          Close #2          Case 115          Open "d:\结果输出奇数.txt " For Append As #2          Print #2, n, m, "正确", one_time          Close #2          Case Else          Open "d:\结果输出奇数.txt " For Append As #2          Print #2, n, m, "不正确", one_time          Close #2       End Select End Select End SubPrivate Sub Form_Load()Form3.Width = Screen.WidthForm3.Height = Screen.HeightLine1.BorderColor = vbRedLine2.BorderColor = vbRedSet StopWatch1 = New ccrpStopWatchm = 0End SubPrivate Sub Timer1_Timer()  Data1.Recordset.MoveNext  L1.Visible = True  Line1.Visible = False: Line2.Visible = False  m = Int(Rnd * 3 + 1)  Select Case m    Case 1         Form3.L1.Left = 0.19 * Form3.Width         Form3.L1.Top = 0.35 * Form3.Height         Form3.L1.Width = 0.2 * Form3.Width         Form3.L1.Height = 0.3 * Form3.Height     Case 2         Form3.L1.Left = 0.5 * Form3.Width         Form3.L1.Top = 0.35 * Form3.Height         Form3.L1.Width = 0.5 * Form3.Width         Form3.L1.Height = 0.3 * Form3.Height     Case 3         Form3.L1.Left = 0.8 * Form3.Width         Form3.L1.Top = 0.35 * Form3.Height         Form3.L1.Width = 0.8 * Form3.Width         Form3.L1.Height = 0.3 * Form3.Height    End Select  L1.Caption = Label2.Caption  StopWatch1.Reset  If Form3.Data1.Recordset.EOF Then Form2.ShowEnd Sub调试后显示如图
回答：应该是没有引用ccrpStopWatch库或者部件