在VB中，已知a=3，b=5，运行下列程序段后，a和b的值为（  ）
a = a * b
b = a / b
a = a / b

A．a=3  b=5	B．a=15  b=3
C．a=5  b=5	D．a=5  b=3

若要执行语句a  = ( 5 >= 5 ) ,则定义变量a的语句应为（   ）。

A．Dim a as Integer	B．Dim a as String
C．Dim a as Boolean	D．Dim a as Single

在VB中，如果x=-25.8，则运行“x=Int(x):x=abs(x)”后，x的值是（ ）

A．-25

B．25

C．-26

D．26

某宾馆的房间号由5位字符组成(例如A0823表示A幢8层33号房间)，末位数字为奇数时表示房间朝南、为偶数时表示房间朝北。字符串变量s中存储了1个房间号，下列能正确判断房间朝南的VB表达式是(  )

A．Val(Mid(s，5，1))Mod 2＝1

B．Val(Mid(s，5，1))Mod 2＝0

C．Val(Mid(s，5，1))\2＝1

D．Val(Mid(s，5，1))\2＝0

某英文字符加密算法，对明文中的每个字符进行下列加密处理：
1）将该字符 ASCII 码转换成对应的 2 位 16 进制数；2）将产生的 16 进制数互换位置3）步骤 2 产生的 16 进制数即为明文加密后的密文字符根据上述加密算法，小明编写了一个解密程序，界面如图。

（1）如果明文为 24，那么密文是_____
（2）请在横线处填上合适的代码
Dim    s as string
Private Sub Command1_Click()
Dim d as string,d1 as string,d2 as string
Dim c as integer,c1 as integer,c2 as integer
Dim ans as string,i as integer
‘读取密文，显示在 text1，并存储在 s 中，代码略
Ans=””
For i = 1 To len(s) step 2
d1 = Mid(s, i, 1) : d2 = Mid(s, i+1, 1)
if d1>=”A” then______________   
else
c1=val(d1)

c2=val(d2) : c=____________

 d=chr(c) : ans=_________
Next i
Text2.Text = ans
End Sub