引用 | 编辑
starmissrita
2005-10-25 20:59 |
楼主
▼ |
||
x0
Private Sub exec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exec.ClickDim x As Single, s As String = "及格咩!" lbl.ForeColor = Color.Green x .. 访客只能看到部份内容,免费 加入会员 x0
|
引用 | 编辑
panasonic732
2005-10-26 02:56 |
1楼
▲ ▼ |
下面是引用starmissrita于2005-10-25 20:59发表的 vb... 的问题,If/then/else的范围!!><!: 能提供完整的程式吗?? 看不怎么懂... x0 |
引用 | 编辑
kevinliao
2005-10-26 09:46 |
2楼
▲ ▼ |
不太了你是想要问什么, 是问程式的结果吗? 这应该不难理解才对, 简单的说就是大于等于 60 分以上就印出 及格咩!, 小于 60 且大于等于 50 就印出 补考咩, 其他的就是印出 可怜喔!当了!, 再把书翻一翻看看 if 的用法及其所代表的意义啰
x1 |
引用 | 编辑
andyj
2005-12-09 21:25 |
3楼
▲ ▼ |
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为结果(补考或当掉) x0 |
引用 | 编辑
gamewalk
2005-12-16 21:56 |
4楼
▲ |
如果只是针对那个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 到此为止... 感觉好像有点在讲废话,不知道你看懂没 x0 |