C# と VB.NET の質問掲示板

■No54774 (gonna さん) に返信
> VBの話ですが、VBにはAndとAndAlsoが有りますよね。
> AndAlsoはAndを効率化した物、And以前に偽ならば即刻偽と帰してしまうすぐれものらしいです。
> 
> ここで一つ疑問が生まれました。
> 「And以前に偽ならば即刻偽と帰してしまう」と云う事がどの様な状況に対しても
> 必ず正しい事柄なら、AndAlsoという命令語は無くして、Andの内部構造をAndAlsoのものに
> 変えてしまえばよいのではないでしょうか。
> 
> なのにAndAlsoが存在するという事は、何か意味が在る様に思えて仕方が無いのですが、
> 実際の所はどうなのでしょう。
A and B　=> AもBも必ず評価される。つまりA,Bが関数の呼び出しであればAによる副作用と
Bによる副作用は結果にかかわらず起こる。

A andalso B => Aを評価してFalseならBは評価されない。つまりAの評価結果によりBによる
副作用を発生させる事ができない。

という違いがあります。評価による副作用がなければandの実装をandalsoにする事も出来るのでしょうけど
前者のような組み方は出来なければならないので（それが良い方法かは別として）２つになっているのでしょう。

■No54779 (gonna さん) に返信

決して良いコーディングではありませんが、挙動が異なる例です。
あくまで同じ動きをするものではないということを示すための例です。

・Button1のクリックでは必ずCountUpが呼ばれるのでchkUpdateLabelがチェックされていない時でも
m_intClickCntの値が変わります。
・Button2のクリックではchkUpdateLabelがチェックされていないとCountUpが呼ばれないのでchkUpdateLabelが
チェックされたときにしかm_intClickCntの値が変わりません。

Public Class Form1

    Private m_intClickCnt As Integer

    Sub New()
        ' この呼び出しはデザイナーで必要です。
        InitializeComponent()

        ' InitializeComponent() 呼び出しの後で初期化を追加します。
        m_intClickCnt = 0
    End Sub

    Private Function CountUp() As Boolean
        m_intClickCnt += 1
        If m_intClickCnt = 10 Then
            m_intClickCnt = 0
            Return False
        Else
            Return True
        End If
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If chkUpdateLabel.Checked And CountUp() Then
            Label1.Text = m_intClickCnt.ToString
        End If
　　　　Label2.Text = m_intClickCnt.ToString
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If chkUpdateLabel.Checked AndAlso CountUp() Then
            Label1.Text = m_intClickCnt.ToString
        End If
　　　　Label2.Text = m_intClickCnt.ToString
    End Sub
End Class