計概Ⅳ 3-4 上機作業( VB5、VB6 )

【VB5】
教學目標：練習使用Visual Basic 之「For ... Next 敘述 」 及換行常數「 vbCrLf   」
題        目：開啟新檔，撰寫一個可顯示「n ~m之間所有奇數」的程式，並讓輸出的奇數
                    每輸出10 個後即自動換行。       
實習步驟：(1)在表單上佈建4個標籤(Label)、2個文字方塊(TextBox)及1個按鈕(Button)
                       ，並設定相關屬性及輸入相關程式碼 (請參考課本 p.322~p.323)
                    (2)利用 If ... Then 敘述 及 VB換行常數 vbCrLf  ，
                         讓輸出的奇數，每輸出 10 個後即自動換行。 
                    (3)最後將方案存為 "a2x-xx-vb5.sln"，並繳交""a2x-xx-vb5.exe"之執行檔
程式碼參考 :
        Dim n1, n2, i, c As Integer
        n1 = TextBox1.Text
        n2 = TextBox2.Text
        For i = n1 To n2
            If i Mod 2 <> 0 Then
                c =                       
                Label4.Text = Label4.Text & i & "   "
                If c Mod 10 =           Then Label4.Text =                                   & vbCrLf
            End If
        Next
執行參考畫面：

【VB6】
教學目標：練習使用Visual Basic 之「While ... End While」 及「Do While ... Loop」敘述 
題        目：將上題程式碼中的迴圈敘述以
                  「While ... End While」 或「Do While ... Loop」改寫
實習步驟：(1)將上題方案資料夾複製一份，並將資料夾更名為a2x-xx-vb6
             (2)改寫程式碼並全部儲存
                   (3)繳交""a2x-xx-vb6"之資料夾  
程式碼參考 :
        Dim n1, n2, i, c As Integer
        n1 = TextBox1.Text
        n2 = TextBox2.Text
        i=                  
        While                           
            If i Mod 2 <> 0 Then
                c =                       
                Label4.Text = Label4.Text & i & "   "
                If c Mod 10 =           Then Label4.Text =                                   & vbCrLf
            End If
            i=                    
       End While