單元:ch01. 第一個程式、ch02. 資料的基本概念
Console.WriteLine ("顯示文字") 不換行輸出
Console.Write ("顯示文字") 換行輸出
變數=Console.ReadLine() 換行輸入字串
變數=Console.Read() 不換行輸入字元
- 寫出 VB 運算子的優先順序(由上到下代表高到低)
算術運算子>關係運算子>邏輯運算子
- ( ) (括號)
- ^ (指數運算子)
- + (正數)、- (負數)
- * (乘)、/ (除)
- \ (整數除法)
- Mod (取餘數)
- + (加)、- (減)
- & (連接)
- =、<>、<、>、<=、>=、Like、Is、IsNot、TypeOf...Is... (關係運算子)
- Not (邏輯運算子)
- And、AndAlso (邏輯運算子)
- Or、OrElse (邏輯運算子)
- Xor (邏輯運算子)
- =、+=、-=、*=、/=、^=
(字串串接及程式碼換行排版練習)
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
- 輸入半徑 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