百思不得其解，怎么可能会这样呢？？？？？？

For   x   =   0   To   10   Step   0.1  
        If   x   =   1.4   Then  
              MsgBox   ("sssss“）  
        Else  
              pic.Line   (x,   Tan(x))-(x   +   0.1,   Tan(x   +   0.1))  
  End   If  
   
   
  为什么不执行：   MsgBox   ("sssss“）  
  x明明会等于1.4的？？？？？？？？？？？？ 问题点数：20、回复次数：3Top

1 楼tianxueer（甜雪儿）回复于 2004-05-02 20:43:04 得分 0

我已经明白了，需要用round四舍五入Top

2 楼MSTOP（陈建华）回复于 2004-05-02 20:51:11 得分 10

For   x   =   0   To   10   Step   0.1  
        If   ABS(x   -1.4)<=1E-8   Then  
              MsgBox   ("sssss“）  
        Else  
              pic.Line   (x,   Tan(x))-(x   +   0.1,   Tan(x   +   0.1))  
  End   IfTop

3 楼luoxiaoxiang（翔翔）回复于 2004-05-03 10:23:08 得分 10

If   ABS(x   -1.4)<=1E-6   ThenTop

相关问题

• sssss
• tan
• msgbox
• to10step

• 帖主：tianxueer
• MSTOP
• luoxiaoxiang

• Visual Basic类图书
• Visual Basic类源码下载