106年計概Ⅳ 第1章 1-4 上機作業( VB4、加分題1 )

vb4

教學目標：

(1)練習使用Visual Basic之For ... Next 敘述及If ...Then... 敘述
(2)練習使用Visual Basic之換行常數「 vbCrLf   」

(3)儲存專案、方案、建置可執行檔

題目：

開啟新檔，撰寫一個可輸入三個整數的程式，並輸出最大數！

程式功能要求：
      (1) 輸入時需顯示目前欲輸入第幾個數值，如下圖：

          (2) 輸出所有輸入數值及最大值，並於標題處顯示作者，如下圖：

參考程式碼：

        Dim i, x, max As Integer

        Dim s As String

        max =                      

        For i = 1 To 3

            x = InputBox("請輸入第" &           & "個數：", "輸入數值")

            If                    Then max = x

            s = s & " " & x

        Next

        MsgBox("輸入的數值為" &          &             & "最大數為：" &          )

加分題1

題目：

請以 Do While ... Loop 、 Do Until ... Loop 或

         Do  ... Loop While 、 Do ... Loop Until 改寫上題程式！