偶數卷

偶數卷

• B1 求 1^2 + 3^2 + 5^2 ...+ 99^2

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'B1 求 1^2 + 3^2 + 5^2 ...+ 99^2
        Dim ans As Integer
        For i = 1 To 99
            ans += If(i Mod 2 = 1, i, 0) ^ 2
        Next
        Me.TextBox1.Text = ans
    End Sub

• B2 輸入 a , b , c 三個邊長，若能夠成三角形，則印出計算此三角形面積；否則印出 " 非三角形 "。

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'B2 輸入 a , b , c 三個邊長，若能夠成三角形，則印出計算此三角形面積；否則印出 " 非三角形 "。
        Dim a, b, c As Single
        Dim ans As String
        a = InputBox("a=", "", 0)
        b = InputBox("b=", "", 0)
        c = InputBox("c=", "", 0)
        Dim s = (a + b + c) / 2
        If a + b > c And a + c > b And b + c > a Then
            ans = (s * (s - a) * (s - b) * (s - c)) ^ 0.5
        Else
            ans = "非三角形"
        End If
        Me.TextBox2.Text = ans
    End Sub

               

• B3 限用Do while...Loop結構，由外部讀入整數數字，列印從1開始直到該數字為止之直角三角形。

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'B3 限用Do while...Loop結構，由外部讀入整數數字，列印從1開始直到該數字為止之直角三角形。
        Dim ans As String
        Dim n As Integer
        n = InputBox("n=", "", 0)
        Dim j = 1
        Do While j <= n
            Dim i = 1
            Do While i <= j
                ans &= i
                i += 1
            Loop
            ans &= vbNewLine
            j += 1
        Loop
        Me.TextBox3.Text = ans
    End Sub

• B4 輸入整數a,b,c 求一元二次方程式AX^2+BX+C的解。(有相異實根、重根、相異虛根)限用select case

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        'B4 輸入整數a,b,c 求一元二次方程式AX^2+BX+C的解。(有相異實根、重根、相異虛根)限用select case
        Dim ans As String
        Dim a, b, c As Integer
        a = InputBox("a=", "", 0)
        b = InputBox("b=", "", 0)
        c = InputBox("c=", "", 0)
        Select Case b ^ 2 - 4 * a * c
            Case Is > 0
                ans = "有相異實根" & -b + (b ^ 2 - 4 * a * c) ^ 0.5 / (2 * a) & "  " & -b - (b ^ 2 - 4 * a * c) ^ 0.5 / (2 * a)
            Case Is < 0
                ans = "有相異虛根"
            Case Else
                ans = "有重根" & -b / (2 * a)
        End Select
        Me.TextBox4.Text = ans
    End Sub

• B5 輸入 0 到 100 之間的成績 s ，印出 優 甲 乙 丙 丁 五等第。限用 if 結構

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        'B5 輸入 0 到 100 之間的成績 s ，印出 優 甲 乙 丙 丁 五等第。限用 if 結構
        Dim ans As String
        Dim s As Single
        s = InputBox("s=", "", 0)
        If s <= 100 And s >= 90 Then
            ans = "優"
        ElseIf s < 90 And s >= 80 Then
            ans = "甲"
        ElseIf s < 80 And s >= 70 Then
            ans = "乙"
        ElseIf s < 70 And s >= 60 Then
            ans = "丙"
        Else
            ans = "丁"
        End If
        Me.TextBox5.Text = ans
    End Sub

• B6 不換行輸出 -2.5  -2  -1.5  -1  ...  2  2.5 。 限用 Do...Loop while

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        'B6 不換行輸出 -2.5  -2  -1.5  -1  ...  2  2.5 。 限用 Do...Loop while
        Dim ans As String = ""
        Dim i = -2.5
        Do
            ans &= i & "  "
            i += 0.5
        Loop While i <= 2.5
        Me.TextBox6.Text = ans
    End Sub