您所在位置：主题：我这程序有什么问题
sxbd1974
[专家分：0] 发布于 2009-10-25 16:05:00
我想编写一个满足下面条件的VB程序，可结果为什么是错误的呢？
要求：当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
要求：当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
