Private Sub exec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exec.Click
Dim x As Single, s As String = "及格咩!"
lbl.ForeColor = Color.Green
x ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

下面是引用starmissrita於2005-10-25 20:59發表的 vb... 的問題，If/then/else的範圍!!><!:
Private Sub exec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exec.Click
    Dim x As Single, s As String = "及格咩!"
    lbl.ForeColor = Color.Green
    x = din.Text
    If x >= 50 And x < 60 Then
.......

能提供完整的程式嗎??
看不怎麼懂...

不太了你是想要問什麼, 是問程式的結果嗎? 這應該不難理解才對, 簡單的說就是大於等於 60 分以上就印出 及格咩!, 小於 60 且大於等於 50 就印出 補考咩, 其他的就是印出 可憐喔!當了!, 再把書翻一翻看看 if 的用法及其所代表的意義囉

Dim x As Single, s As String = "及格咩!"
  lbl.ForeColor = Color.Green

  If x >= 50 And x < 60 Then   '如果x超過50並且小於60進入以下判斷IF
      x = din.Text
    s = "補考咩"
    lbl.ForeColor = Color.Purple
  End If '判斷IF結束
  If x < 50 Then 'IF判斷開始,低於50分的進入以下
    s = "可憐喔!當了!"
    lbl.ForeColor = Color.Black
  End If 'IF判斷結束
  lbl.Text = x & s '印出x及s

X應該是分數
S為結果(補考或當掉)

如果只是針對那個If/then/else的話,我覺得這應該不難吧

If <條件A> then     '它的格式就是這樣
<敘述1>
else                 '跟A相反的條件,我把它叫做條件B好了
<敘述2>
End If

當A條件為真,也就是滿足A條件的話,會去執行敘述1的內容
當不滿足條件A的時候,會去執行敘述2
這邊做個小翻譯 雖然大家都知道 還是講一下
IF:如果
then:然後;就(這邊把他當作"就"可能比較好懂吧)
else:其他;否則(這邊當"否則"應該也是比較好懂)
最後面的End If是表示結束這個If,也就那整個 If 到此為止...
感覺好像有點在講廢話,不知道你看懂沒