新人求教关于VBA中select case条件中如何编写大于且小于等于

Case Is > 07, Is <= 1 这样写程序认为是大于07 或者小于等于1
因为满足条件只会执行第一个Case，所以你的代码可以这样写
Select Case sale1 - sale2
Case Is <= 07
charge = 0
Case Is <= 1
charge = (sale1 - sale2) 100
Case Is > 1
charge = (sale1 - sale2) 200 + 3 10
End Select
当等于05的时候满足第一个条件，所以执行第一个，执行完后程序直接跳出了，不会再去执行后面的Case了。
如果你非要写两个条件，可以这样，直接写上条件，不要用 IS
a = sale1 - sale2
Select Case a
Case Is <= 07
charge = 0
Case a > 07 And a <= 1
charge = (a) 100
Case Is > 1
charge = (a) 200 + 3 10
End Select

Private Sub Command1_Click()
Dim i, n, a, b, c
For i = 1 To 100
Randomize
n = Int(Rnd 900) + 100
If n > 500 Then a = a + 1
If n <= 500 Then b = b + 1
If n > 900 Then c = c + 1
Next
Print "大于500的个数:"; a; "小于等于500的个数:"; b; "大于900的个数:"; c
End Sub

这是VB代码！楼上的ASP也行！知道2个自然数A，B，如果A+B，A-B都是平方数，那么A，B就是自然数对。
Private
Sub
Command1_Click()
Dim
i,
j
As
Integer
For
i
=
1
To
500
For
j
=
i
+
1
To
500
If
Sqr(i
+
j)
=
Fix(Sqr(i
+
j))
And
Sqr(j
-
i)
=
Fix(Sqr(j
-
i))
Then
Text1Text
=
Text1Text
&
"自然数对："
&
i
&
"
"
&
j
&
vbCrLf
End
If
Next
j
Next
i
End
Sub

1、算术表达式：
算术表达式是最常用的表达式，又称为数值表达式。它是通过算术运算符来进行运算的数学公式。我们先来看Visual Basic中的算术运算符：
算术运算符
1）乘法运算符
XY 求X乘Y的值 举例：67=42
2） 除法运算符 /
X/Y 求X除Y的值（浮点数运算） 举例：276/12=23
3)整除运算符 div
X div Y 求X除Y的整数商（对整型数计算） 举例：25=5
4)取余运算符 Mod
X mod Y 求X除Y的余数（对整型数运算） 举例：25 mod 4=1
5）加法运算符 +
X+Y 加法运算 举例：32+2=34
6）减法运算符 -
- X-Y 减法运算 举例：48-21=27
由于Visual Basic只能识别按其格式书写的数学表达式，所以必须将我们常用的数学表达式转换成Visual Basic表达式。
2、逻辑表达式
逻辑运算的结果只有两个：True（真）和False（假）。Visual Basic提供了六种关系运算符和三种逻辑运算符：
=(等于)、<（小于）、<=（小于等于）、>（大于）、>=（大于等于）、<>（不等于）
NOT（非）、AND（与）、OR（或）
运算关系
p q NOT p p AND q p OR q
True True False True True
True False False False True
False True True False True
False false True False False
例如：5>3 结果为 True, “a”>”b” 结果为False。

if a<=2000 then 如果a小于等于2000时
b=03 b等于03
else 否则
b=05 b=05
end if 结束判断
这样解释一下你应该会看的很清楚了！

---