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

1. 主控台應用程式用到的輸出方法有：Console Write line , Console Write

2. 主控台應用程式用到的輸入方法有：Console Read line , Console Read

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

算術運算 > 關係運算 > 邏輯運算先算出值，才能比大小，比出真假才能判断且或

• 算術運算子的優先順序:   ^    -負號  * /   \  Mod  + -
• 關係運算子的優先順序: 優先順序相同，由左而右計算
• 邏輯運算子的優先順序: Not，And AndAlso，Or OrElse，Xor

4.只用一條程式碼，印出上機練習題 1 的結果。(字串串接及程式碼換行排版練習)

Console.WriteLine("===console.writeline練習===" & vbCrLf & "班級:資應一甲" & vbCrLf & "學號:1110534003" & vbCrLf & "姓名:吳佳蓉" & vbCrLf & "===========")

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

•         Dim ans As String = "" '答案字串

        ans = "型態" & vbTab & "Byte" & vbTab & "範圍" & vbTab & vbNewLine
        ans = ans & "sByte" & vbTab & "1" & vbTab & SByte.MinValue & "~" & SByte.MaxValue & vbTab & vbNewLine
        ans &= "Byte" & vbTab & "1" & vbTab & Byte.MinValue & "~" & Byte.MaxValue & vbTab & vbNewLine
        ans &= "Short" & vbTab & "2" & vbTab & Short.MinValue & "~" & Short.MaxValue & vbTab & vbNewLine
        ans &= "Integer" & vbTab & "4" & vbTab & Integer.MinValue & "~" & Integer.MaxValue & vbTab & vbNewLine
        ans &= "Long" & vbTab & "8" & vbTab & Long.MinValue & "~" & Long.MaxValue & vbTab & vbNewLine
        ans &= "Single" & vbTab & "4" & vbTab & Single.MinValue & "~" & Single.MaxValue & vbTab & vbNewLine
        ans &= "Double" & vbTab & "8" & vbTab & Double.MinValue & "~" & Double.MaxValue & vbTab & vbNewLine
        ans &= "Short" & vbTab & "2" & vbTab & Short.MinValue & "~" & Short.MaxValue & vbTab & vbNewLine
        ans &= "Decimal" & vbTab & "12" & vbTab & Decimal.MinValue & "~" & Decimal.MaxValue & vbTab & vbNewLine

   MsgBox(ans)

6. 請各位寫一個文字模式的程式，導引使用者輸入數值 x，數值 y，展示此二數的各項算 術運算 ^ * / \ mod + - 結果（專案檔名: ch03-ConsoleIO-xxxxxxx）

•  Sub Main() '輸入數值 x，數值 y' Console.WriteLine("輸入數值 x，數值 y，展示此二數的各項算術運算 ^ * / \ mod + - 結果") Dim x, y As Single Console.Write("x=") x = Console.ReadLine Console.Write("y=") y = Console.ReadLine 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) '展示此二數的各項算術運算 ^ * / \ mod + - 結果'
             End Sub

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

•  '輸入半徑 r , 印出此圓之「圓周長」及「圓面積」。 Dim ans As String = "" '答案 Const pi = 3.1415926 Dim r As Single r = InputBox("輸入半徑 r", "輸入半徑 r , 印出此圓之「圓周長」及「圓面積」。", 0) ans &= "圓周長=" & 2 * pi * r & vbNewLine ans &= "圓面積=" & r ^ 2 * pi
  MsgBox(ans, , "結果")