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 到此为止...
感觉好像有点在讲废话,不知道你看懂没