[求助]：IF THEN ELSE 判断流程的问题

flashfish

各位大侠，我初学VBA，在使用IF THEN ELSE判断流程时总编译错误，说ELSE无IF。
例子：
dim a as double
dim b as double
dim c as integer
a=cdbl(text1.text)
b=cdbl(text2.text)
if a>b then c=1
elseif a=b then c=0
else c=-1
end if
以上代码问题出在哪里，请指教。

小美菜

dim a as double
dim b as double
dim c as integer
a=cdbl(text1.text)
b=cdbl(text2.text)
if a>b then
   c=1
elseif a=b then
  c=0
else
  c=-1
end if

flashfish

谢谢小美菜，难道就这么简单吗？教材上就是如此些的，我也照猫画虎写了，编译通不过，55555
能否留QQ，好经常请教。

abu

如果这样写可能比较能理解:(个人意见)

1. 
   
2. [php]
   
3. dim a as double
   
4. dim b as double
   
5. dim c as integer
   
6. a=cdbl(text1.text)
   
7. b=cdbl(text2.text)
   
8. if a>b then
   
9.     c=1
   
10. else
    
11.         if a=b then
    
12.              c=0
    
13.         else
    
14.             c=-1
    
15.          end if
    
16. end if
    
17. [/php]
    

复制代码

雪山飞狐(lzh)

if a>b then c=1
是一个完整的if语句，后面不能折行写Else语句了，要写只能写在同一行
if a>b then c=1 else c=2
哪本教材？作者该打pp

yj821005

我觉得好像语法没错，但是两个double类型的数不可能相等啊，（即使是两个一样的）在vba中好像都等不了，好像应该用这两个的差小于某个极小的值，这样才有可能让c＝0吧！