有如下VB程序段：
Private Sub Command1_Click()
Dim n As Integer, r As Integer, s As String
Dim t As Integer, k As Integer, v As Integer
n = 35: t = 0: k = 0
s = ""
Do While n > 0
r = n Mod 2
n = n \ 2
t = t + r
k = k + 1
s = Str(r) + s
Loop
s = Mid("0000000", 1, 7 - k) + s
v = t Mod 2
Text1.Text = s + Str(v)
End Sub
执行该程序段后，文本框Text1中显示的内容是

A．1 0 0 0 1 1 1

B．0 1 0 0 0 1 1 1

C．1 1 0 0 0 1 1

D．1 1 0 0 0 1 0 1

x是大于0小于45的数，用VB表达式表示正确的是（    ）

A．0<=x<45	B．0<=x<=45
C．0<x and x<45	D．0<=x and x<=45

VB表达式Int(Rnd*10)+54\9/3的值可能是（   ）

A．18

B．12

C．28

D．11

某 VB 程序段如下：
Private Sub Command1_Click( )
Dim x As Integer
x = Val(Text1.Text)
x = x \ 2 + 1
Text1.Text = Str(x)
End Sub
程序运行时，在文本框 Text1 输入 13 时，连续两次单击命令按钮 Command1 后，文本框 Text1中显示的内容是（  ）

A．6

B．7

C．4

D．5

显示系统当前日期和时间