物流设计大赛,美的生产基地软件源代码.docVIP

物流设计大赛,美的生产基地软件源代码 Private Sub Form_Load() form1.Show form2.Hide Form3.Hide Form4.Hide End Sub Private Sub cmdwork_Click() Dim w1 As Single, w2 As Single, l1 As Single, l2 As Single, h1 As Single, w0 As Single, l0 As Single, h0 As Single, z As Single, z0 As Single Dim wj As Single, lj As Single, hj As Single, sl As Single, z1 As Single Dim jg As Double 运输时间 Dim sw As Long, sn As Long 定意ysj,lc If cmxz.Text = 新疆A公司 Then ysj = 36: lc = 3326 End If If cmxz.Text = 天津市A公司 Then ysj = 7: lc = 552 End If If cmxz.Text = 陕西A公司 Then ysj = 8.5: lc = 758 End If If cmxz.Text = 陕西B公司 Then ysj = 8.5: lc = 758 End If If cmxz.Text = 太原A公司 Then ysj = 9: lc = 396 End If If cmxz.Text = 山东A公司 Then ysj = 6: lc = 443 End If If cmxz.Text = 大连A公司 Then ysj = 18.5: lc = 1481 End If If cmxz.Text = 沈阳B公司 Then ysj = 18: lc = 1241 End If If cmxz.Text = 长春A公司 Then ysj = 20: lc = 1541 End If If cmxz.Text = 哈尔滨A公司 Then ysj = 23: lc = 1787 End If If cmxz.Text = 郑州A公司 Then ysj = 3: lc = 247 End If If cmxz.Text = 石家庄A公司 Then ysj = 2: lc = 165 End If If cmxz.Text = 甘肃青云A公司 Then ysj = 15.5: lc = 1434 End If If cmxz.Text = 北京A公司 Then ysj = 5: lc = 442 End If If cmxz.Text = 北京B公司 Then ysj = 5: lc = 442 End If If cmxz.Text = 其它地区... Then ysj = Val(InputBox(请输入至目的地所需总时间：)) lc = Val(InputBox(请输入至目的地总里程)) End If Rem w0 l0 h0 wj hj