显示今天距离2019年元旦的天数。

设a=2,b=3,c=4,d=5,表达式a>b And c<=d Or 2*a>c 的值是（    ）

A．True

B．False

C．-1

D．1

下列VB表达式中，值最大的是（ ）

A．Abs(-8)+Len("Taizhou")

B．Val(Mid("Zhe2017Jiang", 6,2))

C．Int(2*Sqr(49)+7.5)/3

D．10^2 Mod 25\2^2

小秦用VB编写十进制数自动转换成二进制数的程序，运行界面如下图，运行代码如下：

Private Sub Command1_Click()
Dim a, i, n As Integer,s as string
n = Val(Text1.Text)
Do While n > 0
①
②
③
Loop
Text2.Text = s
End Sub
缺少部分的代码应填（    ）。

A．①a = n Mod 2    ②n = n \ 2 ③ s = Str(a) + s

B．①n = n \ 2 ②a = n Mod 2  ③ s = Str(a) + s

C．①a = n Mod 2    ②n = n \ 2 ③ s = s +Str(a)

D．①n = n \ 2 ②a = n Mod 2  ③  s = s +Str(a)

“如果a，b，c相等，那么y＝a＋b＋c”，能实现该功能的VB语句是

A．If a=b And b=c Then y=a+b+c

B．If a=b=c Then y=a+b+c

C．If a＝b Or b=c Or a=c Then y=a+b+c

D．Ifa－b＝b－c Then y=a+b+c

对于任意小数 a，如果要四舍五入保留 2 位小数，表达式为

A．(int(a)*10+0.5)/10	B．int(a*10+0.5)/10
C．(int(a)*100+0.5)/100	D．int(a*100+0.5)/100

在 Visual Basic 中，表达式 13 \ 5 Mod 4 的值是

A．1

B．2

C．3

D．4

素数只能被 1 和它本身整除，不能被其他自然数整除。编写 VB 程序实现如下功能：单击“产生奇数并判断”按钮 Command1，随机产生一个三位正奇数显示在文本框 Text1 中，并在文本框 Text2 中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为 953 时，程序运行界面如图 a 所示。

(1)在设计程序界面时，应使用图 b 所示“控件工具箱”中的_____(填写相应编号)添加文本框 Text1。
(2)实现上述功能的 VB 程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数
Randomize
n =____________________ ‘n 为三位正奇数
Text1.Text = Str(n) : flag = True: i = 3
Do While i <= n - 1 And flag = True
If n Mod i = 0    Then flag = False
End If
i = i + 2
Loop
If ____________Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是_____(单选，填字母）。

A．    n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i

某英文字符加密算法，对明文中的每个字符进行下列加密处理：
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

随机产生一个二位正奇数的VB表达式是（  ）

A．Int(Rnd*99) + 1

B．Int(Rnd*88) + 11

C．2* Int(Rnd*45 + 5) + 1

D．2* Int(Rnd*45 + 5) - 1