有一个 vb6.0 编程调试不出来,求大神们指教
错误提示是未找到方法或编译成员,红字为错误之处,程序如下 Dim words As String
Dim ii As Integer
Dim txtword As String
Dim lenth As Integer
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Ge = 1
Case 1
Ge = 2
Case 2
Ge = 3
End Select
End Sub
Private Sub Combo2_Click()
Select Case Combo2.ListIndex
Case 0
Wl = 1
Case 1
Wl = 2
Case 2
Wl = 3
End Select
End Sub
Private Sub Combo3_Click()
Select Case Combo3.ListIndex
Case 0
r = 1
Case 1
r = 2
End Select
End Sub
Private Sub Command2_Click()
Lh = Text4.Text
P = Text1.Text
T = Text1.Text * 9.55 * 10 ^ 6 / Text2.Text
N1 = Text2.Text
I = Text3.Text
Chikuanxishu = Label12.Caption
On Error GoTo lbl:
If Text1.Text = "" Then
MsgBox "功率为初始数据,请输入功率", vbOKOnly, "警告"
Exit Sub
lbl:
If Err.Number <> 0 Then
MsgBox Err.Number & "--" & Err.Description
End If
End If
zjj = Text5.Text
If CInt(Text5.Text) <= 10 Or CInt(Text5.Text) >= 170 Then
MsgBox "轴交角必须在10°与170°之间", vbOKOnly, " 警告"
Exit Sub
End If
Me.Hide
Form4.Show
End Sub
Private Sub Command1_Click()
Unload Me
Form2.Show
End Sub
Private Sub Form_Load()
Combo1.AddItem "电动机汽轮机燃气轮机"
Combo1.AddItem "单缸内燃机"
Combo1.AddItem "多缸内燃机"
Combo2.AddItem "均匀、轻微"
Combo2.AddItem "中等冲击"
Combo2.AddItem "较大冲击"
Combo3.AddItem "单向啮合"
Combo3.AddItem "双向啮合"
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = 0
Me.Caption = "圆锥齿轮传动参数设计系统"
words = Me.Caption
Timer1.Interval = 150
Timer1.Enabled = True
Me.Caption = ""
If Form2.Option3.Value = True Then
Text5.Text = 90
Text5.BackColor = &H80000004
Text5.Enabled = False
End If
If Form2.Option1 = True Or Form2.Option2.Value = True Then
Text2.Text = 1000
ElseIf Form2.Option3.Value = True Then
Text2.Text = 1500
End If
End Sub
Private Sub Text3_Change()
If CInt(Text5.Text) > 3 Then
MsgBox "锥齿轮最大传动比为3,请重新输入", vbOKOnly, " 警告"
Exit Sub
End If
End Sub
Private Sub timer1_timer()
lenth = Len(words)
txtword = Left(words, ii)
Me.Caption = txtword
ii = ii + 1
If ii > lenth Then
ii = 0
End If
End Sub