12/9 訂正

sumEven

'Q1：sumEven(n) 己知正整數 n，求 2+4+6..+ n 之和'偶數
Dim n As Integer
n = InputBox("n=", "Q1：sumEven(n) 己知正整數 n，求 1+3+5..+ n 之和", 1)
n = If(n Mod 2 = 1, n - 1, n)
Me.TextBox3.Text = sumEven(n)

模組  

'Q1：sumEven(n) 己知正整數 n，求 2+4+6..+ n 之和
'偶數
 Function sumEven(n)
        If n <= 2 Then
              Return n
        Else
              Return sumEven(n - 2) + n
        End If
End Function

最小公倍數lcm

       '輸入
        Dim a, b As Integer
        a = InputBox("輸入一個正整數A", "求出「最小公倍數」", 0)
        b = InputBox("輸入一個正整數B", "求出「最小公倍數」", 0)
        '處理
        Dim ans As String = ""
        ans = lcm(a, b)
        '輸出
        Me.TextBox4.Text = ans

模組 

'GCD(a, b) 求A 及B 之最大公因數
Function GCD(a, b)
     If b = 0 Then
          Return a
     Else
          Return GCD(b, a Mod b)
     End If
End Function 

'lcm(a, b) 求A 及B 之最小公倍數
'a * b = lcm(a, b) * GCD(a, b)
Function lcm(a, b)
      Return a * b / GCD(a, b)
End Function