V带传动程序设计VB程序代码.doc

Private mand1_Click()
Dim X(3, 5) As Single
X(0, 0) = 1: X(0, 1) = : X(0, 2) = :
X(0, 3) = : X(0, 4) = : X(0, 5) =
X(1, 0) = : X(1, 1) = : X(1, 2) = :
X(1, 3) = : X(1, 4) = : X(1, 5) =
X(2, 0) = : X(2, 1) = : X(2, 2) = :
X(2, 3) = : X(2, 4) = : X(2, 5) =
X(3, 0) = : X(3, 1) = : X(3, 2) = :
X(3, 3) = : X(3, 4) = : X(3, 5) =
ka = X(ki, kj)
= False

End Sub
Private Sub Option1_Click()
ki = 0
End Sub
Private Sub Option2_Click()
ki = 1
End Sub
Private Sub Option3_Click()
ki = 2
End Sub
Private Sub Option4_Click()
ki = 3
End Sub
Private Sub Option5_Click()
A = 0
End Sub
Private Sub Option6_Click()
A = 3
End Sub
Private Sub Option7_Click()
kj = 0 + A
End Sub
Private Sub Option8_Click()
kj = 1 + A
End Sub
Private Sub Option9_Click()
kj = 2 + A
End Sub
Public X As Single '输入功率
Public Y As Single '输入转速
Public i1 As Single '传动比
Public y1 As Single '由于连接带型选择与带轮选择的中间变量
Public d1 As Single '小带轮直径
Public d2 As Single '大带轮直径
Public a0 As Single
Public ld As Single
Public ad As Single '包角
Public kl As Single '长度系数
Public v As Single '带速
Private mand1_Click()
Dim A As Single
Dim B As Single
Dim C As Single
Dim D As Single
Dim E As Single
Dim z As Single
If = "" Then
MsgBox "请输入电动机功率!", 48, "警告!"

Exit Sub
End If
If = "" Then
MsgBox "请输入转速!", 48, "警告!"

Exit Sub
End If
If = "" Then
MsgBox "请输入传动比!", 48, "警告!"

Exit Sub
End If
Dim dog As Single
dog =
X = * dog
Y = ‘计算功率
A = - * X ^ 3 + * X ^ 2 + * X +
B = * X ^ 3 - * X ^ 2 + * X -
C = - * X ^ 3 + * X ^ 2 - * X +
D = - * X ^ 3 + * X ^ 2 - * X +
E = * X ^ 2 + * X +
z = - * X ^ 3 + * X ^ 2 - 81