tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル IF文 複数条件判定のバグ
投稿日: 2009/07/30(Thu) 12:42
投稿者おーたか
VB.2005でBASICプログラムをVBに変換する作業をしています。
OSはXPです。
VB暦は5年ほどですが、技術力はまだまだ・・の者です。

以下のような、IF文の複数条件での判定文を作りたいのですが、
思ったところに入っていきません。

(実際はa,b,c,dはpublic変数です)
    dim a as single = 0.0194
    dim b as single = -0.56
    dim c as single = 2.18
    dim d as integer = 20
    dim kekka as string

    If a = 0.0957 AndAlso b = 2.84 AndAlso c = -0.8 AndAlso d = 40 Then
            kekka = "あ"
    ElseIf a = 0.0194 AndAlso b = -0.56 AndAlso c = 2.18 AndAlso d = 20 Then
            kekka = "い"
    ElseIf a = 0.0027 AndAlso b = 8.51 AndAlso c = 1.2 AndAlso d = 20 Then
            kekka = "う"
    ElseIf a = 0.0095 AndAlso b = 0.37 AndAlso c = 1.4 AndAlso d = 40 Then
            kekka = "え"
    ElseIf a = -0.0041 AndAlso b = -1.92 AndAlso c = 2.34 AndAlso d = 20 Then
            kekka = "お"
                      ・・・
           ・・・
           ・・・
      (ELSEIF文は30くらいあります)
    Else
      kekka = "ERROR!!!"
    EndIf

以上のプログラムだと
    kekka = "い"
となるはずなのですが、実際はELSE文に入ってしまいます。

おそらく非常に単純なバグがあると思うのですが、
私一人では見つけられないでおります。

どなたか、ご教授願います。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。