回 帖 发 新 帖 刷新版面

主题:我这程序哪里错了?

我想编写一个满足下面条件的VB程序,可结果为什么是错误的呢?当我检查是输入x=0.45运行结果是A=0
要求:当x≤0.05时, A=3
当0.05<x≤0.1时, A=2.8
当0.1<x≤0.2时, A=2.75
当0.2<x≤0.3时, A=2.28
当0.3<x≤0.4时, A=2.25
当0.4<x≤0.5时, A=2.23
当0.5<x≤0.6时, A=2.2
当0.6<x时, A=2.12
我的代码如下:

Dim A As Single
If 0.05 > x Then
A= 3
 ElseIf 0.1 >= x > 0.05 Then
 A= 2.8
  ElseIf 0.2 >= x> 0.1 Then
 A = 2.75
    ElseIf 0.3 >= x > 0.2 Then
   A = 2.28
      ElseIf 0.4 >= x > 0.3 Then
    A = 2.25
         ElseIf 0.5 >= x> 0.4 Then
       A = 2.23
         ElseIf 0.6>= x> 0.5 Then
          A = 2.2
            ElseIf x> 0.6 Then
             A = 2.12
  End If

回复列表 (共3个回复)

沙发

类型,双精度

板凳

If x > M And x < N Then
    'Place your code here
End If

3 楼

0.1 >= x > 0.05 
这不是vb的条件表达式!
正确的条件表达式如楼上所示。

我来回复

您尚未登录,请登录后再回复。点此登录或注册