電梯控制程式 - For Next 迴圈

電梯控制程式目標


程式專案上傳於學校 BlackBoard 課程教材


輸入：電梯向上、電梯向下、暫停等功能
輸出：目前樓層與電梯狀態


程式設計：使用For  Next 迴圈設計管理學院大樓 1 至 10樓


上樓程式


For 樓層 As Integer = 1 To 10


   Label1. Text = 樓層 & " F" 
   MsgBox("電梯向上 ")


Next 樓層


下樓程式

For 樓層 As Integer = 10 To 1 Step -1

   Label1. Text = 樓層 & " F" 

   MsgBox("電梯向下 ")

Next 樓層