單元：ch01. 第一個程式、ch02. 資料的基本概念

單元：ch01. 第一個程式、ch02. 資料的基本概念

• 主控台應用程式用到的輸出方法有：

 Console.WriteLine ("顯示文字") 不換行輸出   

 Console.Write ("顯示文字") 換行輸出

• 主控台應用程式用到的輸入方法有：

變數=Console.ReadLine()   換行輸入字串

變數=Console.Read()   不換行輸入字元

• 寫出 VB 運算子的優先順序(由上到下代表高到低) 

算術運算子>關係運算子>邏輯運算子

1. (  )  (括號) 
2.  ^  (指數運算子)
3.  +  (正數)、-  (負數)
4. *  (乘)、/  (除) 
5.  \  (整數除法)
6. Mod  (取餘數) 
7.  +  (加)、-  (減)
8.  &  (連接)
9.  =、<>、<、>、<=、>=、Like、Is、IsNot、TypeOf...Is...  (關係運算子)
10.  Not  (邏輯運算子)
11. And、AndAlso  (邏輯運算子)
12. Or、OrElse  (邏輯運算子)
13.  Xor  (邏輯運算子)
14.  =、+=、-=、*=、/=、^=

• 只用一條程式碼，印出上機練習題 1 的結果。

                 (字串串接及程式碼換行排版練習)

        Console.WriteLine("====Console.WriteLine練習====" & vbCrLf & "班級: 資應一甲" & vbCrLf & "班級: 資應一甲" & vbCrLf & "學號:1110534018" & vbCrLf & "姓名:廖珮榕" & vbCrLf & "=========================")

• 不恰當的資料型態宣告，會影響到結果的正確性。請參考 [ch02.資料的基本概念投影片] pp. 15-16 試寫一程式來印出各數值型別之表示範圍，並和課本比較是否有異。 

 Dim ans As String = "" '答案字串
        ans = "型態" & vbTab & "byte" & vbTab & "範圍" & vbNewLine
        ans &= "SBtye" & vbTab & "1" & vbTab & SByte.MinValue & "~" & SByte.MaxValue & vbNewLine
        ans &= "Btye" & vbTab & "1" & vbTab & Byte.MinValue & "~" & Byte.MaxValue & vbNewLine
        ans &= "Short" & vbTab & "2" & vbTab & Short.MinValue & "~" & Short.MaxValue & vbNewLine
        ans &= "UShort" & vbTab & "2" & vbTab & UShort.MinValue & "~" & UShort.MaxValue & vbNewLine
        ans &= "Integer" & vbTab & "4" & vbTab & Integer.MinValue & "~" & Integer.MaxValue & vbNewLine
        ans &= "UInteger" & vbTab & "4" & vbTab & UInteger.MinValue & "~" & UInteger.MaxValue & vbNewLine
        ans &= "Long" & vbTab & "8" & vbTab & Long.MinValue & "~" & Long.MaxValue & vbNewLine
        ans &= "ULong" & vbTab & "8" & vbTab & ULong.MinValue & "~" & ULong.MaxValue & vbNewLine
        ans &= "Single" & vbTab & "4" & vbTab & Single.MinValue & "~" & Single.MaxValue & vbNewLine
        ans &= "Double" & vbTab & "8" & vbTab & Double.MinValue & "~" & Double.MaxValue & vbNewLine
        ans &= "Decimal" & vbTab & "12" & vbTab & Decimal.MinValue & "~" & Decimal.MaxValue & vbNewLine

        MsgBox(ans)

• 請各位寫一個文字模式的程式，導引使用者輸入數值 x，數值 y，展示此二數的各項算 術運算 ^ * / \ mod + - 結果

（專案檔名: ch03-ConsoleIO-xxxxxxx）

Module Module1

    Sub Main()

        Console.WriteLine("輸入數值 x，數值 y，展示此二數的各項算術運算 ^ * / \ mod + - 結果")

        '輸入數值 x，數值 y，

        Dim x, y As Single

        Console.Write("x=")

        x = Console.ReadLine

        Console.Write("y=")

        y = Console.ReadLine

        '展示此二數的各項算術運算 ^ * / \ mod + - 結果

        'Console.WriteLine("{0}^{1}={2}", x, y, x ^ y)

        Console.WriteLine(x & " ^ " & y & " = " & x ^ y)

        Console.WriteLine(x & " * " & y & " = " & x * y)

        Console.WriteLine(x & " / " & y & " = " & x / y)

        Console.WriteLine(x & " \ " & y & " = " & x \ y)

        Console.WriteLine(x & " mod " & y & " = " & x Mod y)

        Console.WriteLine(x & " + " & y & " = " & x + y)

        Console.WriteLine(x & " - " & y & " = " & x - y)

    End Sub

End Module

• 輸入半徑 r , 印出此圓之「圓周長」及「圓面積」。 （專案檔名: ch03-ConsoleCircle-xxxxxxx-prj, 請用常數來定義圓周率 pi=3.14159265）

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '輸入半徑 r , 印出此圓之「圓周長」及「圓面積」。
        Dim ans As String = "" '答案
        Const pi = 3.1415926
        '輸入半徑 r
        Dim r As Single
        r = InputBox("半徑r=","輸入半徑 r , 印出此圓之「圓周長」及「圓面積」。 "，0)
        '印出此圓之「圓周長」
        ans &= "圓周長=" & 2 * pi * r & vbNewLine
        '及「圓面積」。
        ans &= "圓面積=" & pi * r ^ 2 & vbNewLine

        MsgBox(ans, , "結果")
    End Sub
End Class