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

タイトル Re^2: 温度の等高線
投稿日: 2008/01/30(Wed) 10:55
投稿者
If T1 > 28 And T1 <= 28 Then
  If T1 > 26 And T1 <= 28 Then
    If T1 > 24 And T1 <= 26 Then
      If T1 > 22 And T1 <= 24 Then
        If T1 >= 20 And T1 <= 22 Then
        End If
      End If
    End If
  End If
End If

入れ子になってますね。
並び替えればこうなりますょ
ELSEIF文 使うかSELECT文使うかですね
SELECT CASE T1
  CASE Is < 20
  Case Is <= 22
  CASE Is <= 24
  CASE Is <= 26
  CASE Is <= 28
End Select
ですかね

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

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