菜单
　　

      If fwj(i + 1) > 360 Then
       fwj(i + 1) = fwj(i + 1) - 360
       End If
     Text9.Text = Text9.Text & Format(Str(zhuanhua(fwj(i + 1))), "###.0000") & vbCrLf
      Next
       For i = 0 To UBound(xj1)
        sxj = sxj + Val(xj1(i))
        Next
        Text20.Text = Str(Format(sxj, "####.000"))
        For i = 0 To UBound(xj1) - 1
        zx(i) = Val(xj1(i)) * Cos(hudu(fwj(i + 1)))
       zy(i) = Val(xj1(i)) * Sin(hudu(fwj(i + 1)))
       fx1 = fx1 + zx(i)
       fy1 = fy1 + zy(i)
       Text10.Text = Text10.Text & Format(Str(zx(i)), "####.00") & vbCrLf
       Text11.Text = Text11.Text & Format(Str(zy(i)), "####.00") & vbCrLf
       Next
      fx = fx1 - (Val(Text2.Text) - Val(Text1.Text))
      fy = fy1 - (Val(Text4.Text) - Val(Text3.Text))
  1. 上一篇：jsp+sqlserver数据结构教学网站的设计与实现
  2. 下一篇：人行横道线检测算法设计与实现

  1. 基于安卓系统的测量软件...

  2. jsp计算机学院学生就业及...

  3. Java航空订票系统设计

  4. Hadoop云计算环境下的Web应用日志安全威胁分析

  5. 计算机音乐分类辨识研究

  6. asp.net+sqlserver计算机在线考...

  7. 高效视频编码帧间预测中运动估计算法研究

  8. 杂拟谷盗体内共生菌沃尔...

  9. 酸性水汽提装置总汽提塔设计+CAD图纸

  10. 河岸冲刷和泥沙淤积的监测国内外研究现状

  11. 大众媒体对公共政策制定的影响

  12. 当代大学生慈善意识研究+文献综述

  13. 中考体育项目与体育教学合理结合的研究

  14. 乳业同业并购式全产业链...

  15. 十二层带中心支撑钢结构...

  16. java+mysql车辆管理系统的设计+源代码

  17. 电站锅炉暖风器设计任务书

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回