程式設計實習

Download Report

Transcript 程式設計實習 

程式設計實習
流程控制(二)
巢狀選擇結構
外層結構
If 條件式1 Then
If 條件式2 Then
敘述區塊(程式指令)
Else
內層結構
敘述區塊(程式指令)
End If
Else
Select Case 條件3
Case 條件值1
敘述區塊(程式指令)
Case條件值1
敘述區塊(程式指令)
End Select
內層結構
End If
作業三第二題二以巢狀解
‘設 ax2+bx+c=0 方程式中之 a,b,c 由表單輸入且已由程式轉換為數值
If a=0 Then
lblAns.Text=“此方程式非一元二次方程式”
Else
x=b^2-4*a*c
Select Case x
Case 0
lblAns.Text=“重根”
Case Is >0
lblAns.Text=“兩個根”
Case Else
lblAns.Text=“兩虛根”
End Select
End If
選擇性質函數
雙向選擇函數：
IIf函數
多向選擇函數：
Choose函數
Microsoft.VisualBasic.Switch函數
IIf函數
語法
變數＝IIf(關係/條件式,變數1,變數2)
範例
Dim A As Integer,X As String
A=5
X＝IIf(A Mod 2=1,”奇數”,”偶數”)
MsgBox(A & “是” & X)
Choose函數
語法
變數＝Choose(索引值,值1,值2……,值N)
說明
索引值：
可以是常數、變數或運算式，範圍為1~N之間
，若索引值超出範圍時會傳回Null
值1~值N：
依索引的值指示所要傳回的各項值
Choose函數範例
X＝Choose(A,”壹”,”貳”,”叁”,”肆”,”
伍”,”陸”)
A的值
X的結果
1
“壹”
5
“伍”
0
Null
註：Null指的是沒有資料，Null字元串就是空字串
Microsoft.VisualBasic.Switch函數
語法
變數＝Microsoft.VisualBasic.Switch(條件1,值1,
條件2,值2…)
說明
此函數相當於下列程式：
If 條件１ Then
變數＝值1
ElseIf 條件2 Then
變數＝值2
.
End If
MsgBox函數
用來輸出訊息，使用時可單純的只顯示
訊息不會回應訊息，亦可透過函數的按
鈕組合而有回傳值供程式判讀。
MsgBox函數語法說明－無傳回值
語法
MsgBox(顯示訊息,[按鈕/圖示參數],[標題文字])
顯示訊息－
必要參數，顯示於訊息方塊上，為字串型態。
按鈕／圖示參數－
選擇性參數，為MsgBoxStyle列舉常數，可設定各
種圖示及按鈕組合。
標題文字－
選擇性參數，顯示於訊息方塊交談視窗的標題上。
MsgBox函數語法說明（二）－無傳回值
MsgBox(顯示訊息,[按鈕/圖示參數],[標題文字])
MsgBox函數按鈕常數－顯示按鈕
列舉常數
說明
MsgBoxStyle.OKOnly
僅顯示按鈕
MsgBoxStyle.OKCancel
顯示按鈕
MsgBoxStyle.YesNo
顯示按鈕
MsgBoxStyle.YesNoCancel
顯示按鈕
MsgBoxStyle.RetryCancel
顯示按鈕
MsgBoxStyle.AbortRetryIgnore 顯示按鈕
MsgBoxStyle.DefaultButton1
指定第一個按鈕為預設鈕
MsgBoxStyle.DefaultButton2
指定第二個按鈕為預設鈕
MsgBoxStyle.DefaultButton3
指定第三個按鈕為預設鈕
MsgBox函數按鈕常數－顯示圖示
列舉常數
MsgBoxStyle.Critical
MsgBoxStyle.Exclamation
MsgBoxStyle.Information
MsgBoxStyle.Question
顯示圖示說明
MsgBox函數按鈕常數和圖示常數的組合
如前述之語法格示中之說明，按鈕參數及圖
示參數是共用在一個參數欄位中，因此若要
混用時則以『+』將其串接即可
同時顯示『問號』圖示及『是』『否』按鈕
MsgBoxStyle.YesNo + MsgBoxStyle.Question
MsgBox函數語法說明－有傳回值
變數=MsgBox(顯示訊息,[按鈕/圖示參數],[標題文字])
因有回傳值，故必需要設定一變數接收此一
回傳值，而變數的資料型態為整數，而回應
值的例舉常數如下：
按下按鈕
是
否
確定
取消
列舉常數
按下按鈕
列舉常數
MsgBoxResult.Abort
MsgBoxResult.Yes
中止
MsgBoxResult.Retry
MsgBoxResult.No
重試
MsgBoxResult.Ignore
MsgBoxResult.OK
忽略
MsgBoxResult.Cancel
MsgBox函數語法說明－有傳回值範例
Private Sub Button3_Click(ByVal......
Dim Ans As Integer
Ans=MsgBox("確定離開嗎？", MsgBoxStyle.YesNo +
MsgBoxStyle.Question, "確認...")
If Ans = MsgBoxResult.Yes Then
End
End If
End Sub
FormClosing事件
當表單在關閉的過程中，系統會啟動FormClosing事
件，因此我們可以利用這個事件配合前述之方法詢
問是否要關閉程式，如下：
Private Sub Form1_FormClosing(ByVal......
Dim Ans As Integer
Ans=MsgBox("確定離開嗎？", MsgBoxStyle.YesNo +
MsgBoxStyle.Question, "確認...")
If Ans = MsgBoxResult.Yes Then
End
Else
e.Cancel=True
取消表單關閉的動作
End If
End Sub
補充－RadioButton元件使用
選項按鈕－
RadioButton
常用屬性
屬性
說明
CheckAlign 決定選項按鈕的位置
Checked
表示元件是否被選取；選取-True、未選取-False
註：
選項按鈕為單選元件，即在同一區域中只能有一
個被選取 ，因此在同表單上最多一次只能被選取
一個，若要同時多個選取就必需使用GroupBox元
件在做分組