茹茵 發問時間: 電腦與網際網路程式設計 · 2 0 年前

VB寒假作業 -- 急用

自由落體的距離與時間關係為 d=1/2gt^2

其中 g=32.174 呎/秒^2

寫一個程式輸入時間(秒)

計算其降落距離為多少呎?

2 個解答

評分
  • 2 0 年前
    最佳解答

    因不知你的詳細輸出入要求只能用最簡單方式回答

    s=INPUTBOX("請輸入秒數")

    L=32.147*S*S*0.5

    PRINT L '註:會輸出至FORM

    MESSAGEBOX "距離為:", L '輸出至訊息視窗

    因是你的作業 無法回答你所有答案

    有問題再mail TO : edwardlo@mail.ksu.edu.tw

  • ?
    Lv 6
    2 0 年前

    Private Sub Form_Activate()   Const G = 32.174   t = Val(InputBox("輸入時間(秒)"))   d = 1 / 2 * G * t ^ 2   Print "降落距離"; dEnd Sub

還有問題?馬上發問,尋求解答。