比尔盖子 博客

用VB6.0实现的简单逻辑判断

其实站长也只是一个编程菜鸟,以前用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

Categories: Visual Basic, 代码如诗

再遇硬盘问题——硬盘经常间歇式瞬间停转 » « 修复主题的Bug

1 Comment

  1. 一个check都博主玩出这么多东西,牛

发表评论

Your email address will not be published.

To create code blocks or other preformatted text, indent by four spaces:

    This will be displayed in a monospaced font. The first four 
    spaces will be stripped off, but all other whitespace
    will be preserved.
    
    Markdown is turned off in code blocks:
     [This is not a link](http://example.com)

To create not a block, but an inline code span, use backticks:

Here is some inline `code`.

For more help see http://daringfireball.net/projects/markdown/syntax

Copyright © 2017 比尔盖子 博客

匿名浏览:http://x4wttqqrkud5pttgqlpxgevtr4rbqpa6lkwdiw3o3m6q4deeldgq.b32.i2p
警告:残留有明网混合资源,访问前请自行屏蔽明网流量

Theme by Anders NorenUp ↑