如何利用InputBox連續輸入數值直到-1停止,再把所輸入的數值中最大的數值列印出來.
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(2) 人氣()


留言列表 (2)

發表留言
  • SPENCER YANG
  • 1)湔?蹈ㄛ瞳蚚都?腔齬唗楊眳齬蹈ㄛ堤?蹈郔湮硉﹝
    2)蕉躂腔◇揃蹋磐?妏蚚visual basic◆笢藩??瞰飲岆偌桽斕垀扴源宒
    ??蹈﹝?笨掀廌砃燴?ㄛ珨啜?忨麼萵?忨褫夔?婓芢沎ㄛ禭
     祥溥梑珨梑﹝
  • 紀文和
  • Dim data As Long '輸入值
    Dim max As Long '最大值
    Do
    data = InputBox("請輸入數字, -1 結束", "求最大值")
      If data > max Then max = data
    Loop Until data = -1
    MsgBox max '最大值