タイトル : 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文に入ってしまいます。 おそらく非常に単純なバグがあると思うのですが、 私一人では見つけられないでおります。 どなたか、ご教授願います。 |