Visual Basic 我想寫一個程式入黎幫幫手

💻 軟件台軟體

[匿名]

2007-01-10 1:02 am

如果我有5條問題
例如:msgbox("今日食左飯未呀?",vbyesno)
msgbox("有無出街呀?",vbyesno)
如果yes 2分 no 0分應該點寫用case黎寫唔該~~
跟住答晒5條問題要計總分應該點寫 0~4分恭喜 5~7分 happy 8分以上恭喜發財
請問應該點寫呀~~~~~我唔係好識用vb呢個程式唔該高手幫幫忙

更新1:

咁可唔可以唔用if 用 select case黎整?

更新2:

咁ｄ　msgbox("xxx",vbyesno)點代入case入面= =我唔係好識~

更新3:

點樣將if變做select case??= ="

回答 (2)

用戶4673

2007-01-10 1:08 am

✔ 最佳答案

.......
Dim intMarks As Integer
If MsgBox("abc?", vbYesNo) = vbYes Then
intMarks = intMarks + 2
End If
If MsgBox("def?", vbYesNo) = vbYes Then
intMarks = intMarks + 2
End If
If MsgBox("123?", vbYesNo) = vbYes Then
intMarks = intMarks + 2
End If
If MsgBox("ddd?", vbYesNo) = vbYes Then
intMarks = intMarks + 2
End If
If intMarks >= 8 Then
MsgBox "abc"
ElseIf intMarks >= 5 And intMarks <= 7 Then
MsgBox "def"
Else
MsgBox "ghi"
End If
.......

2007-01-09 22:57:14 補充：
可以, 不過會繁複些select case intmarkscase 0,1,2,3.....case 4,5,6,7.....case else.....end select

參考: me

👍 0 👎 0

donaldkwanhk

2007-01-11 10:04 pm

Dim 分數 As integer

if msgbox("今日食左飯未呀?",vbyesno)=vbyes then 分數=分數+2
if msgbox("今日食左飯未呀?",vbyesno)=vbyes then 分數=分數+2
if msgbox("今日食左飯未呀?",vbyesno)=vbyes then 分數=分數+2
if msgbox("今日食左飯未呀?",vbyesno)=vbyes then 分數=分數+2
if msgbox("今日食左飯未呀?",vbyesno)=vbyes then 分數=分數+2
'括左呢度唔可以用Select Case,因為你乜條件都無

Select case 分數
case 分數 <= 4
msgbox"恭喜!",vbexclamation
case 分數 >=5 And 分數 <=7
msgbox"Happy!",vbexclamation
case 分數>=8
msgbox"恭喜發財!",vbexclamation
End Select
'呢度可以用Select Case,因為你有一個條件--分數既值；亦可以變做If...

唔係所有If都可以變做SelectCase
但係SelectCase全部都轉得做If
加油呢...

參考: 自己

👍 0 👎 0

收錄日期: 2021-04-25 13:33:32
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20070109000051KK02250

檢視 Wayback Machine 備份