Board logo

标题: 【VB】学过那么一点点编程的都进来帮帮忙 [打印本页]

作者: liuhlightning    时间: 2007-12-15 10:57     标题: 【VB】学过那么一点点编程的都进来帮帮忙

当M=0 N<>0 O<>0 P<>0时给LABEL1.CAPTION赋值1
当M=0 N=0 O=0 P=0时给LABEL1.CAPTION赋值2
当M<>0时给LABEL1.CAPTION赋值3
这个应该怎么写。
作者: 黑龍    时间: 2007-12-15 11:02

做SF...观望....
作者: liuhlightning    时间: 2007-12-15 11:02

原帖由 黑龍 于 2007-12-15 11:02 AM 发表
做SF...观望....

我不想说的:我操你大爷的!
作者: 飞雪の轨迹    时间: 2007-12-15 11:06

我学C的,完全不一样啊
作者: liuhlightning    时间: 2007-12-15 11:19

原帖由 飞雪の轨迹 于 2007-12-15 11:06 AM 发表
我学C的,完全不一样啊

其实我知道是用IF+ELSEIF+ELSE语句解决问题,但是写出来的就是不对.............................
作者: 与星独白    时间: 2007-12-15 12:57

原帖由 liuhlightning 于 2007-12-15 11:19 发表

其实我知道是用IF+ELSEIF+ELSE语句解决问题,但是写出来的就是不对.............................

...

直接用if就可以了  不要else了

这样就可以了
if M=0 and N<>0 and O<>0 and P<>0 then
LABEL1.CAPTION=1
end if
if M=0 and N=0 and O=0 and P=0 then
LABEL1.CAPTION=2
end if
if M<>0 then
LABEL1.CAPTION=3
end if
end

[ 本帖最后由 与星独白 于 2007-12-15 13:03 编辑 ]
作者: 蜡烛鞭三郎    时间: 2007-12-15 13:40

当M=0 N<>0 O<>0 P<>0时给LABEL1.CAPTION赋值1
当M=0 N=0 O=0 P=0时给LABEL1.CAPTION赋值2
当M<>0时给LABEL1.CAPTION赋值3


If M=0 Then
    If N<>0 Then
          If O <> 0 and P<>0 Then
               LABEL1.Caption=1
          End If
    ElseIf N=0 Then
          If O=0 and P=0 Then
                LABEL1.Caption=2
          End If
    End If
Else
    LABEL1.Caption=3
End If

[ 本帖最后由 蜡烛鞭三郎 于 2007-12-15 13:42 编辑 ]
作者: 神医【曲席瑞】    时间: 2007-12-15 14:02

高中学编程的
作者: liuhlightning    时间: 2007-12-15 18:11

原帖由 蜡烛鞭三郎 于 2007-12-15 01:40 PM 发表
当M=0 N0 O0 P0时给LABEL1.CAPTION赋值1
当M=0 N=0 O=0 P=0时给LABEL1.CAPTION赋值2
当M0时给LABEL1.CAPTION赋值3


If M=0 Then
    If N0 Then
          If O  0 and P0 Then
               L ...

还是有问题。难道是我用错变量了?single没问题的啊。

[ 本帖最后由 liuhlightning 于 2007-12-15 18:13 编辑 ]
作者: 蜡烛鞭三郎    时间: 2007-12-15 22:43

你吧程序给我算了 我改完还你..
作者: 与星独白    时间: 2007-12-15 23:01

原帖由 liuhlightning 于 2007-12-15 18:11 发表

还是有问题。难道是我用错变量了?single没问题的啊。


用我那个试试
作者: 小明打小白    时间: 2007-12-16 01:09

if M<>0 then
  label1.caption = 3
    elseif n=0 and o=0 p=0 then
       label1.caption = 2
          else
             label1.caption =1
end if
作者: 蜡烛鞭三郎    时间: 2007-12-16 02:03

原帖由 小明打小白 于 2007-12-16 01:09 发表
if M0 then
  label1.caption = 3
    elseif n=0 and o=0 p=0 then
       label1.caption = 2
          else
             label1.caption =1
end if



if M=0 then
  label1.caption = 3
    elseif n=0 and o=0 and p=0 then
       label1.caption = 2
          elseif n<>0 and o<>0 and p<>0
             label1.caption =1
end if

这样写吧
作者: 春仔    时间: 2007-12-16 08:35

学过也忘记了。。。我大1学的
















现在大1。。




欢迎光临 浆糊论坛-RO小站 (http://bbs.rohome.cn/) Powered by Discuz! 7.2