VB 6.0 講義 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
程式練習7: 配對程式
設計一個程式, 用來做交友配對
2A問題: "戴眼鏡和不戴眼鏡, 你喜歡前者?"
2B問題: "長髮和短髮, 你喜歡前者?"
( 1, 3: 則回答 A小姐適合你, 1, 4: 則回答 B 小姐適合你 2,3: 則回答 C小姐適合你, 2,4: 則回答 D 小姐適合你)
步驟1. 依畫面擺上物件 (1 個標籤, 1個命令鈕, 2個框架, 4個選項鈕)
步驟2. 修改相關屬性
| 類別 | 預設物件名稱 | 屬性欄 | 屬性說明 | 屬性值 |
| form(表單) | form1 | name | 表單名稱 | frmbestgirl |
| caption | 表單標題 | 交友配對 | ||
| label(標籤) | label1 | name | 標籤名稱 | lbl1 |
| caption | 標籤外觀 | 清為空白 | ||
| borderstyle | 標籤外框 | 1 | ||
| CommandButton(命令鈕) | command1 | name | 命令鈕名稱 | cmdresult |
| caption | 命令鈕內容 | 配對結果 | ||
| Frame(框架) | frame1 | caption | 框架外觀 | 戴眼鏡和不戴眼鏡? |
| Frame(框架) | frame2 | caption | 框架外觀 | 長髮和短髮? |
| OptionButton(選項鈕) | option1 | name | 選項鈕名稱 | op1 |
| value | 選項鈕的值 | true | ||
| caption | 選項鈕外觀 | 戴眼鏡 | ||
| OptionButton(選項鈕) | option2 | name | 選項鈕名稱 | op2 |
| caption | 選項鈕外觀 | 不戴眼鏡 | ||
| OptionButton(選項鈕) | option3 | name | 選項鈕名稱 | op3 |
| value | 選項鈕的值 | true | ||
| caption | 選項鈕外觀 | 長髮 | ||
| OptionButton(選項鈕) | option4 | name | 選項鈕名稱 | op4 |
| caption | 選項鈕外觀 | 短髮 |
修改完後看一下畫面, 是否有所改變
步驟3. 撰寫程式碼
在 命令鈕 cmdequal 上雙按 , 寫入以下藍色的程式碼
Private Sub cmdequal_Click()
上課講解
End Sub
思考1: 能否改成3組? (多一個 胖/廋 )
思考2: 不用框架能否使用?
思考3: 能否不用命令鈕?
上課講解:
If op1.Value = True and op3.Value = True
Then
lbl1.Caption = "適合A小姐"
End If
If op1.Value = True and op4.Value = True Then
lbl1.Caption = "適合B小姐"
End If
If op2.Value = True and op3.Value = True Then
lbl1.Caption = "適合C小姐"
End If
If op2.Value = True and op4.Value = True Then
lbl1.Caption = "適合D小姐"
End If
If op1.value = true then
If op3.value = true then
lbl1.Caption = "適合A小姐"
else
lbl1.Caption = "適合B小姐"
end if
Else
If op3.value = true then
lbl1.Caption = "適合C小姐"
else
lbl1.Caption = "適合D小姐"
end if
End if
a = 0
If op2.Value = True Then a = a + 1
If op4.Value = True Then a = a + 2
If op6.Value = True Then a = a + 4 '
如果有第3組選擇時(op5/op6)
Select Case a
Case 0
lbl1.Caption = "適合A小姐"
Case 1
lbl1.Caption = "適合B小姐"
Case 2
lbl1.Caption = "適合C小姐"
Case 3
lbl1.Caption = "適合D小姐"
Case 4 ' 如果有第3組選擇時會有8種結果
lbl1.Caption = "適合E小姐"
Case 5
lbl1.Caption = "適合F小姐"
Case 6
lbl1.Caption = "適合G小姐"
Case 7
lbl1.Caption = "適合H小姐"
End Select
Private Sub op1_Click()
If op3.value = True Then
lbl1.Caption = "適合A小姐"
Else
lbl1.Caption = "適合B小姐"
End If
End Sub
Private Sub op2_Click()
If op3.value = True Then
lbl1.Caption = "適合C小姐"
Else
lbl1.Caption = "適合D小姐"
End If
End Sub
Private Sub op3_Click()
If op1.value = True Then
lbl1.Caption = "適合A小姐"
Else
lbl1.Caption = "適合C小姐"
End If
End Sub
Private Sub op4_Click()
If op1.value = True Then
lbl1.Caption = "適合B小姐"
Else
lbl1.Caption = "適合D小姐"
End If
End Sub