vb程序源代码

来源：百度知道 编辑：UC知道 时间：2024/05/16 15:48:03
求曲柄摇杆机构的VB程序代码!要快
兄弟今天要得急，有我需要的程序的快点！我把分给他！

曲柄滑块机构slider-crank mechanism
用曲柄和滑块来实现转动和移动相互转换的平面连杆机构，也称曲柄连杆机构。
VB程序代码：
Public Status, Status2 As Integer, tmp, tmp2 As Single
Private Sub Command1_Click(Index As Integer)
If Text1 = "0" Then
Text1 = ""
Dim i, j As Integer
Select Case Index
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
If Status <> 0 And Status2 = 1
Then tmp = Text1
If Status <> 0 Then
Text1 = ""
End If
Text1.SetFocus
SendKeys Index, True
If Status = 0 Then tmp = Text1
If Status2 = 1 Then tmp2 = Text1
Debug.Print tmp; tmp2; Status; Status2; vbCrLf

我也是从网上找的，我看了下结构应该没问题。

以前帮人写了一个,现在不知道放哪里了