VB撰寫程式

第一題
撰寫程式, 可供使用者輸入一個整數 n, 並完成以下動作：
a.使用for迴圈印出1 ~ 2n
例如:輸入數字為3, 則印出1, 2, 3, 4, 5, 6
b.使用for迴圈印出1 ~ 3n
例如:輸入數字為3, 則印出1, 2, 3, 4, 5, 6, 7, 8, 9
c.使用while迴圈印出1~n之間的偶數
例如:輸入數字為10, 則印出2, 4, 6, 8, 10
d.使用while迴圈印出1 ~ n之間的奇數
例如:輸入數字為5, 則印出1, 3, 5
e.使用do while迴圈印出n個立方數(由1開始)
例如:輸入數字為5,則印出1, 8, 27, 64, 125
f.使用do while迴圈印出n個平方數(由1開始)
例如:輸入數字為5, 則印出1, 4, 9, 16, 25



第二題
撰寫程式, 可供使用者輸入兩個整數 x, y, 並完成以下動作：
a. 撰寫函式sub，函式原型為 sub(byval a as integer, byval b as integer)，可計算及傳回a - b的結果；於主程式呼叫此函式傳入參數x, y並列印函式執行結果
b. 撰寫函式multiply，函式原型為 multiplysub(byval n1 as integer, byval n2 as integer)，可計算及傳回n1*n2結果；於主程式呼叫此函式傳入參數x, y並列印函式執行結果
c. 撰寫函式divide，函式原型為 divide(byval a as integer, byval b as integer),可計算及傳回a / b的商數；於主程式呼叫此函式傳入參數x, y並列印函式執行結果
d. 撰寫函式triple，函式原型為 triplesub(byval a as integer, byval b as integer)可將輸入參數a與b的值乘上3倍(例如a與b原本的值若為1與2函式執行後a與b的值分別變成3與6)；於主程式呼叫此函式傳入參數x, y，函式呼叫結束後列印出x與y的內容
f. 撰寫函式swap，函式原型為 swap (byval a as integer, byval b as integer), 可交換a, b內容；於主程式呼叫此函式傳入參數x, y，函式呼叫結束後列印出x與y的內容
g.撰寫函式power，函式原型為 power(byval b as integer, byval e as integer)，此函式計算及傳回be 的結果；於主程式呼叫此函式傳入參數x, y並列印函式執行結果


第三題
撰寫以下程式：
a. 產生及印出4個介於0~10之間的亂數
b. 產生及印出6個介於7~12之間的亂數
c. 產生及印出4個介於0~10之間的亂數，且所產生的四個數字不能重覆



第四題
撰寫程式：
a. 宣稱及列印(使用迴圈)一具如下內容的一維陣列array
2, 1, 7, 9, 5, 6
b. 要求使用者輸入一個介於0~5之間的數字, 然後列印出陣列中相對應的元素內容
例如：輸入0印出2, 輸入1印出1, 輸入2印出7, ...
c. 要求使用者輸入一個數字, 找出並印出該數字在陣列中的位置
例如：輸入7印出2, 輸入9印出3
d. 撰寫函式modifyArray, 函式原型為 modifyArray(byref ary( ) as integer, byval arySize as integer)，可將陣列ary每個元素的值加上10；於主程式呼叫此函式後印出陣列內容
e. 撰寫函式findMin, 函式原型為 findMin (byref ary( ) as integer, byval arySize as integer)可找出及傳回陣列最小值；於主程式呼叫此函式後印出函式傳回結果



拜託VB高手幫我解題一下
急需要
因為禮拜二要用到了

寫出程式碼就可以啦