下列关于Select Case之测试表达式的叙述中，错误的是() 。

以下正确的叙述是 ______。 Select Case x Case 1 to 10 …… End Select

A．Select Case语句中的测试表达式可以是任何形式的表达式

B．Select Case语句中的测试表达式只能是数值表达式或字符串表达式

C．在执行Select Case语句时，所有的Case子句均按出现的次序被顺序执行

D．如下Select Case语句中的Case表达式是错误的：

A. Select Case语句中的条件表达式可以是任何形式的表达式

B. Select Case语句中的条件表达式只能是数值表达式或者字符表达式

C. 在执行Select Case语句时，所有的Case子句都按出现的次序被顺序执行

D. Select Case语句的测试表达式会多次计算

A.Select Case语句中的条件表达式只能是数值表达式或者字符表达式

B.Select Case语句中的条件表达式可以是任何形式的表达式

C.在执行Select Case语句时，所有的Case子句都按出现的次序被顺序执行

D.Select Case语句的测试表达式会多次计算

以下正确的叙述是______。

A．Select Case语句中的测试表达式可以是任何形式的表达式

B．Select Case语句中的测试表达式只能是数值表达式或字符串表达式

C．在执行Select Case语句时，所有的Case子句均按出现的次序被顺序执行

D．如下Select Case语句中的Case表达式是错误的： Select Case x Case 1 to 10 …… End Select

A.Case 1 ＜= a ＜= 10

B.Case 1 ≦ a And a ≦ 10

C.Case Is ＞= 10 or Is ＞= 1

D.Case 1 To 10

以下正确的叙述是：_______。

A．Select Case语句中的测试表达式可以是任何形式的表达式

B．Select Case语句中的测试表达式只能是数值表达式或字符串表达式

C．在执行Select Case语句时，所有的Case子句均按出现的次序被顺序执行

D．如下Select Case语句中的Case表达式是错误的： Select Case x Case 1 to 10 …… End Select

此题为判断题(对，错)。

以下叙述正确的是

A．SelectCase语句中的测试表达式可以是任何形式的表达式

B．SelectCase语句中的测试表达式只能是数值表达式或字符串表达式

C．在执行SelectCase语句时，所有Case子句均按出现的次序被顺序执行

D．如下SelectCase语句中的Case表达式是错误的 Select Case x Case 1 to 10 ... End Select

A.Case 10 To 100 表示判断Is是否介于10与100之间

B.Case "abc","ABC" 表示判断Is是否和"abc"、"ABC"两个字符串中的一个相同

C.Case "X" 表示判断Is是否为大写字母X

D.Case -7,0,100 表示判断Is是否等于字符串"-7，0，100"

下列程序的功能是按照上述规定调整每位职工的工资 ， 并显示所涨工资之总和 。 请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Command5_Click()

Dim ws As DAO.Workspace

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim gz As DAO.Field

Dim zc As DAO.Field

Dim sum As Currenc y

Dim rate As Single

Set db = CurrentDb()

Set rs = db.OpenRecordset(" 工资表 " ）

Set gz = rs.Fields(" 工资 " )

Set zc = rs.Fields(" 职称 " )

sum = 0

Do While Not 【 14 】

rs.Edit

Select Case zc

Case Is = " 教授 "

rate = 0.15

Case Is = " 副教授 "

rate = 0.1

Case Else

rate = 0.05

End Select

sum = sum + gz * rate

gz = gz + gz * rate

【 15 】

rs.MoveNext

Loop

rs.Close

db.Close

Set rs = Nothing

Set db = Nothing

MsgBox " 涨工资总计 ： " & sum

End Sub