比尔盖子 博客

其实站长也只是一个编程菜鸟，以前用VB编计算器时还犯过1+1=11的错误。最近重新开始学习VB，写了一个非常简单的逻辑判断程序。这里的主题稍微恶搞了一下，呵呵。

程序截图：

我目前使用两种方法来实现同样的效果，请知情人士告诉我哪种方法效率高，我试图用API来统计运行时间，但是时间每次都不固定……

方法1：用If…Then…Elself

Private Sub Command1_Click()
If Check2.Value = 1 And Check1.Value = 1 Then
 MsgBox "我晕！您到底是谁的粉丝啊？！" '暂时的Bug修正大法，以后有更先进的方法！
ElseIf Check1.Value = 1 Then
 MsgBox "你原来是果粉！"
ElseIf Check2.Value = 1 Then
 MsgBox "你原来是谷粉！"
ElseIf Check2.Value = 1 And Check1.Value = 1 Then
MsgBox "你原来是谷粉！"
Else
 MsgBox "我晕！您到底是谁的粉丝啊？！"
End If
End Sub

方法2：用Case

Private Sub Command1_Click()
fans = (Check1.Value + 10) + (Check2.Value / 20)
'为了使用Case判断，我这里使用了数学方法。这样，如果Check1为True，那么fans就等于11；如果Check2为True，那么fans就等于10.05；如果Check1、Check2为True或都为False，那么fans就等于11.05和10。如果你有更好的方法，欢迎提出更好的建议！
Select Case fans
Case 11
 MsgBox "你原来是果粉！"
Case 10.05
 MsgBox "你原来是谷粉！"
Case 11.05, 10
 MsgBox "我晕！您到底是谁的粉丝啊？！"
End Select
End Sub