正章老師的教學部落格: 2011

2011年3月23日

TreeView（樹狀檢視）

設定使用元件：Microsoft Windows Common Controls 6.0 (SP6)

使用方法：在 TreeView上按[滑鼠右鍵]→[屬性] 進行基本設定

常用屬性：

屬性名稱	說明
Indentation	設定每層子樹節點的縮排距離
LineStyle	設定節點之前的連接線樣式
PathSeparator	設定在樹狀節點路徑中，所使用的分隔符號
Scroll	設定是否自動顯示捲軸並允許捲動功能
SingleSel	展開一選項時，是否取消先前展開的節點

【說明】

TreeView的節點須以程式的方式建立。

Private Sub Command1_Click()
'treeview1.ImageList = ImageList1
Dim nd As Node

' 建立根節點
Set nd = TreeView1.Nodes.Add(, , "root", "科技大學")
'TreeView1.Nodes(1).Image = "pic1"

' 建立子節點
    Set nd = TreeView1.Nodes.Add("root", tvwChild, "a", "管理學院")
    Set nd = TreeView1.Nodes.Add("a", tvwChild, "a1", "資訊管理系")
    
        ' 建立孫節點
        Set nd = TreeView1.Nodes.Add("a1", tvwChild, "a11", "技術類")
        Set nd = TreeView1.Nodes.Add("a1", tvwChild, "a12", "管理類")

Set nd = TreeView1.Nodes.Add("a", tvwChild, "a2", "企業管理系")
    Set nd = TreeView1.Nodes.Add("a", tvwChild, "a3", "財稅金融系")
    
    ' 顯示目前的所有節點
    nd.EnsureVisible

' 建立子節點
    Set nd = TreeView1.Nodes.Add("root", tvwChild, "b", "設計學院")
    Set nd = TreeView1.Nodes.Add("b", tvwChild, "b1", "視覺傳達系")
    Set nd = TreeView1.Nodes.Add("b", tvwChild, "b2", "空間設計系")
    Set nd = TreeView1.Nodes.Add("b", tvwChild, "b3", "工業設計系")

' 顯示目前的所有節點
    nd.EnsureVisible

'滑鼠滑過時，有底線或反白
    TreeView1.HotTracking = False

End Sub

SSTab（頁籤）

設定使用元件：Microsoft Tabbed Dialog Control 6.0 (SP6)

使用方法：在 SSTab 上按[滑鼠右鍵]→[屬性]

常用屬性：

屬性名稱	說明
TabHeight	索引頁籤的高度
TabMaxWidth	索引頁籤的最大寬度
TabOrientation	索引頁籤所要顯示的位置
Tabs	索引頁籤數量，預設為3
TabsPerRow	每列顯示的索引頁籤數量
Tab	目前在第幾個頁籤
TabCaption	設定頁籤顯示文字，如SSTab.TabCaption(1) = "test"

ImageList（圖片清單）

設定使用元件：Microsoft Windows Common Controls 6.0 (SP6)

使用方法：在 ImageList 上按[滑鼠右鍵]→[屬性]

常用屬性：

屬性名稱	說明
ImageHeight	可設定存放在清單中所有圖片的高度
ImageWidth	可設定存放在清單中所有圖片的寬度

ProgressBar（進度列）

設定使用元件：Microsoft Windows Common Controls 6.0 (SP6)

常用屬性：

屬性名稱	說明
Max	進度的最大值
Min	進度的最小值
Value	進度的目前值
Scrolling	顯示的方式為區塊方式或圓滑方式

TabStrip（頁籤）

設定使用元件：Microsoft Windows Common Controls 6.0 (SP6)

【使用方法】

在 TabStrip 上按[滑鼠右鍵]→[屬性]
欲知道那個頁籤被按下，請在 TabStrip_Click() 事件中，以下列程式取得：
TabStrip.SelectedItem.Index

【說明】

TabStrip不是容器，需自行控制其上的物件顯示或隱藏。

StatusBar（狀態列）

設定使用元件：Microsoft Windows Common Controls 6.0 (SP6)

使用方法：在 StatusBar 上按[滑鼠右鍵]→[屬性]

常用屬性：

屬性名稱	說明
Style	0-sbrNormal顯示所有 Panels 1-sbrSimple只顯示一個大面板
SimpleText	Style為1-sbrSimple時顯示的文字內容

【說明】

最多可分成16個 Panels（面板），每個 Panel 可包含文字或圖片。
內建樣式有七種，須進屬性設定，Caps, Numlock, Date, Time...。
程式中欲更改 StatusBar 某個面板文字時：StatusBar.Panels(1).Text = "test"
程式中欲新增一個面板時：StatusBar.Panels.Add(索引值)

PopupMenu（快顯功能表）

設定使用元件：無

須先以「功能表編輯器」完成下拉式選單。
在表單的 MouseDown 事件中輸入：
If Button = 2 Then PopupMenu 下拉式選單中的某個選項名稱
一次只能顯示一個。

2011年2月20日

【迴圈】For…Next

◎ 迴圈內執行次數：（終值－初值＋增值）＼增值。

2011年2月16日

計算時該以什麼為基底呢？

同學在做題目的時候，常會遇到要以什麼做為基底來轉換、計算？原則如下：

只要是遇到「CPU」、「硬碟」、「網路」這三項，請以 10 為基底做計算，
其他的則以２為基底來計算。

◎ 某CPU平均執行一個指令需耗時 5 ns，則此CPU執行速度為多少MIPS？

【答案】 200 MIPS
【解析】
(1 / 5 × 10 ^- 9) = 0.2 × 10^9 = 200 × 10^6 = 200 MIPS

◎ 某一磁碟機之轉速為 7,200RPM，資料傳輸率為 1,000,000Bytes/Sec，搜尋時間為10ms，則要存取同一磁柱內5,000Bytes之資料需花費多少時間？

【答案】 19.2 ms

【解析】

a. 搜尋時間 = 10ms

b. 旋轉時間 = (1 / 7200 × 60秒) / 2 = 0.0042秒 = 4.2ms

c. 傳輸時間 = 5,000 / 1,000,000 = 0.005秒 = 5ms

存取時間 = a + b + c = 10ms + 4.2ms + 5ms = 19.2ms

2011年1月11日

BUS（匯流排）

◎ 資料匯流排有 N 條線代表：

N 位元 CPU（N 位元電腦）
WORD（字組）為 N 位元(bit)
CPU一次可處理 N 位元資料

各種比較

◎ 記憶體存取速度（由快到慢）
暫存器(Register) ＞快取記憶體(L1>L2>L3, SRAM) ＞ DRAM(DDR2>DDR>SDRAM) ＞硬碟＞隨身碟＞光碟(BD>DVD>CD) ＞軟碟＞磁帶

◎ Ｉ/Ｏ連接埠速率比較（由快到慢）
SATA ＞ SCSI ＞ IDE ＞ 1394 ＞ USB ＞平行埠(LPT1) ＞序列埠(COM1, COM2)

PCI-E(8GB~250MB) ＞ USB 3.0(4.8Gb) ＞ eSATA(3Gb) ＞ Ultra SCSI(640MB) > SATA 3.0(450MB) ＞ IEEE 1394b(3200Mb) ＞ SCSI(320MB) ＞ SATA 2.0(300MB) ＞ SATA 1.0(150MB) ＞ IDE(133MB) ＞ USB 2.0(480Mb) ＞ IEEE 1394a(400Mb) ＞ LPT(2MB) ＞ RS232(COM1，115.2K) 待轉換Byte、Bit。

◎ ASCII 碼字元的大小順序（由大到小）
中文字＞小寫(a) ＞大寫(A) ＞數字(0) ＞空白

◎ 磁碟結構的大小順序（由大到小）

磁柱＞磁軌＞磁簇＞磁區

◎ 資料庫結構的大小順序（由大到小）

資料庫(Database) ＞檔案(File) ＞記錄(Record) ＞欄位(Field) ＞位元組(Byte) ＞位元(Bit)

其中

「檔案(File)」又稱為「表格(Table)」。

「記錄(Record)」又稱為「Tuples」。
「欄位(Field)」又稱為「屬性(Attribute)」。

◎ 未完待續…

【自定函數】遞迴函數

自己呼叫自己的函數稱為「遞迴函數」(Recursive)。以下以二個題目說明解法。

◎ 執行下列程式片段後，K值為何？(A) 1　(B) 5　(C) 15　(D) 120　　　　　　[商業語文]

Rem MAIN PROGRAM
K = GAME(5）
Print K
End

Function GAME(X)
If (X > 1) Then
   GAME = X * GAME(X - 1)
Else
   GAME = 1
End If
End Function

【答案】 (D)
【解析】
GAME(5) = 5 * GAME(4)
GAME(4) = 4 * GAME(3)
GAME(3) = 3 * GAME(2)
GAME(2) = 2 * GAME(1)

接著開始代入：
GAME(1) = 1
GAME(2) = 2 * GAME(1) = 2 * 1
GAME(3) = 3 * GAME(2) = 3 * (2 * 1)
GAME(4) = 4 * GAME(3) = 4 * (3 * 2 * 1)
GAME(5) = 5 * GAME(4) = 5 * (4 * 3 * 2 * 1) = 120。

陣列

陣列＋迴圈一向是統測計概程式題的最愛，同學應在這二大部份認真的準備。

單純陣列的應考重點在於「計算陣列元素的個數」（搭配迴圈時考法會有所不同）。

VB的陣列預設由０開始，例如 Dim A(5) As Integer，其實含有 0, 1, 2, 3, 4, 5 共６個元素。
陣列也可以自己訂定，例如： Dim B(2 To 5) As Integer，則含有 2, 3, 4, 5 共４個元素。
計算的公式為 (5 - 2 + 1)，亦即 (最大 - 最小 + 1)。

二維陣列如 C(2, 3) 則有 (0 To 2) × (0 To 3) 共 12 個元素。計算的公式為(2-0+1)×(3-0+1)=12，
三維、四維或更多維的陣列元素計算方式都是如此。

陣列註標的起始值可以為０或是為１，如果要從１開始，只要在第一行鍵入 Option Base 1 即可。要注意的是只能是０或１，不能有其他的值。如果已經使用 Option Base 1，又想要從２或３之類的開始呢？那…就用上面說過的 Dim D(3 To 8) As Integer就可以啦…^_^。

請問下列的程式會有幾個元素呢？
Option Base 1
Dim A(0 To 3) As Integer

答案是 0,1,2,3 共４個，原因是這種有指定 m To n 的方式，是不受 Option Base 1 的限制的。

單純陣列並不會太難，最後引一題 94 年統測的題目做為練習。

◎ 執行下列BASIC程式片段時，請問陣列A占用記憶體多少 Bytes 的儲存空間？
Dim A(3, 4) As Double
(A) 160　(B) 96　(C) 80　(D) 48

【答案】 (A)
【解析】
(3 - 0 + 1) × (4 - 0 + 1) = 20 個元素，Double 倍精準型態每個元素佔 8 Bytes，
共占用 20 × 8 = 160 Bytes。

陣列宣告後若未賦予初值，則預設的初值視宣告時的資料型態而定，
數值型態 → 初值為：「０」
字串型態 → 初值為：「空字串」
自由型態 → 初值為：「Empty」

【註】如果題目要求印一個沒有宣告的變數，例如： Print A，那是不會印出任何東東滴…^_^

【函數】字串函數

字串運算函數（在VB字串函數中，無論中英文皆視為一個字元，非Byte）
函數	功能	範例	結果
Asc(X$)	將字元或字串中的第一個字元轉成ASCII碼	Asc(“Abc”)	65
Chr(X)	將ASCII碼轉換為代表的字元	Chr(97)	a
UCase(X$) LCase(X$)	將字串中的英文轉換為【大寫】將字串中的英文轉換為【小寫】	UCase(“aBc”) LCase("QoO")	ABC qoo
Left(X$) Right(X$)	取回字串【左起】第 n 個字元取回字串【右起】第 n 個字元	Left(“美麗Taiwan”, 3) Right(“美麗Taiwan”, 3)	美麗T wan
Mid(X$)	由字串第 m 個字元起，取回 n 個字	Mid("美麗Taiwan", 2, 4)	麗Tai
Instr(n,X$, Y$)	由X字串第 n 個字元起，找出 Y$第一個出現的位置，找不到傳回０	Instr(1, “VB is Best!”, “B”) Instr(4, “VB is Best!”, “B”)	2 7
HEX(X)	將X轉成家六進位字串資料	Hex(16)	10
Oct(X$)	將X轉成八進位字串資料	Oct(8)	10

【函數】數值函數

函數	功能	範例	結果
Abs(X)	求Ｘ的絕對值	Abs(-20)	20
Sqr(X)	求X的平方根	Sqr(4)	2
Rnd(X)	產生小於１，大於等於０的亂數	*Int(Rnd(max-min+1)+min)** ☆
Int(X)	若X<0，取小於等於Ｘ的負整數	Int(5.6) Int(-5.4)	5 -6
Fix(X)	取X的整數部分。Fix(5.6) = 5，Fix(-5.4) = -5
CInt(X) 轉(長)整數	小數以四捨六入取整數值小數＝５，整數為偶數→小數捨去　　　　　　　　奇數→整數＋１	CInt(-3.6) A%=5.5， Print A% B%=6.5， Print B% B%=6.51，Print B% C%= -3.5， Print C%	-4 6 6 7 -4
Round(X, n)	將X數值轉換成小數位數n位的格式未設表示整數。進位部份同 CInt（逢５奇進偶吐）	Round(4.144, 2) Round(4.145, 2) Round(4.155, 2)	4.14 4.14 4.16
Val(X$)	將X$轉為數值，碰到非數值字元則忽略其後字元（不包括空格、正負號）	Val(“52”) + Val(“47A3”) Val(“52” + “47A3”) Val("-1 2 3")	99 5247 -123
SGN(X)	X為正 → １，X為負 → -1，X為零 → ０

【註】以下三種情況，一樣使用CInt（逢５奇進偶吐）

＼　：例如　5.45 \ 2 = 2　，　5.5 \ 2 = 3。
Mod ：例如　32.5 Mod 2 = 0　，　33.5 Mod 2 = 0。
宣告為整數型態的變數：
Dim A as Integer
A = 28.5
Print A
A 的值為28。　←　CInt（逢５奇進偶吐）

不過下面的例子有點不同，請同學留意：
Dim A as Integer
A = Sqr(8)　　　←　求 8 的平方根
Print A
A 的值為3。　←　原因是 Sqr(8) = 2.82842712474619…，為無理數。

2011年1月10日

Select Case 子句用法

◎ 在 Select Case 敘述中，下列有關 Case 子句的用法，何者錯誤？
(A) Case 0 To 10　(B) Case Is > 10　(C) Case Is > 10 And Is < 50　(D) Case 3, 5, Is > 10

【答案】 (C)
【解析】

(C)選項的答案，並不符合Select Case的用法。

Select Case 的子句大抵有３種用法：

運算式，運算式，…　　　　　　→　例如：　Case 1, 3, 5
運算式１ To 運算式２　　　　　→ 例如：　Case 40 To 60
（注意：運算式２必須大於運算式１，否則不成立！）
Is 關係運算式（<, <=, =, >=, >）　→　例如：　Case Is <= 100
以上三項可以混合使用　　　　　→　例如： Case 2, 8, 10 To 12, Is > 20

若符合多個 Case 條件，僅會執行第一個符合的 Case。

Select Case 條件判斷式

◎執行下列程式，若輸入「12.8」，則輸出結果為何？ (A)12.8　(B)12　(C)11.8　(D)15.8

Private Sub Form_Activate()
A = InputBox("請輸入一個數")
Select Case (A Mod 3)
Case (6 ^ 2 = True)
　　A = A + 1　　Rem 這樣的條件式並不會成立！
Case 1
　　A = A - 1
Case 2
　　A = A - 2
　Case Else
　　A = A + 3
End Select
Print A
End Sub

【答案】 (C)
【解析】

同學解題時，凡運算式遇到「＼(整除）」、「Mod」時，必須將小數以「CInt（逢５奇進偶吐）」的方式轉成整數。本題中的(A Mod 3) = (12.8 Mod 3) = 1。
注意其中的 A 仍為12.8，並未被改變，故 12.8 - 1 = 11.8。

訂閱：文章 (Atom)

正章老師的教學部落格

2011年3月23日

TreeView（樹狀檢視）

SSTab（頁籤）

ImageList（圖片清單）

ProgressBar（進度列）

TabStrip（頁籤）

StatusBar（狀態列）

PopupMenu（快顯功能表）

2011年2月20日

【迴圈】For…Next

2011年2月16日

計算時該以什麼為基底呢？

2011年1月11日

BUS（匯流排）

各種比較

【自定函數】遞迴函數

陣列

【函數】字串函數

【函數】數值函數

2011年1月10日

Select Case 子句用法

Select Case 條件判斷式

搜尋此網誌

相關連結