某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序,将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在 文本框Text1中输入连续多组编码，单击“翻译”按钮Commandl，结果显示在列表框List1中。
程序运行界面如右图所示。

（1）要使程序运行时，文本框Text1的Width属性值为2018，可在Form_Load事件过程中添加语句________（单选，填字母：

A．Width=2018 /

B．Textl. Width = 2018 /

C．Width. Textl=2018）。

（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Command1_Click()
Dim s As String, c As String, d As String
Dim n As Integer, bl As Integer, b2 As Integer, v As Integer, i As Integer
s = Textl.Text: n = Len(s): i = 1
Do While i <= n
c = Mid(s, i, 2)
If c = "00" Then
d = "东"
ElseIf c = "01" Then
d = "南"
ElseIf c = "10" Then
d = "西"
Else
d = "北"
End If
b1 = Val(Mid(s, i + 2, 1))
b2 = Val(Mid(s, i + 3, 1))
v=_______________①
List1.AddItem d + " " + Str(v)
_____________②
Loop
End Sub
（3）若文本框Textl中输入的内容为“1111”，单击“翻译”按钮，列表框List1中显示的内容是_________。

下列 VB 表达式中，只随机产生 9 到 99 之间偶数的是（   ）

A．Int(Rnd*90+10)

B．Int(Rnd*90+9)

C．Int(Rnd*45)*2+10

D．Int(Rnd*45)*2+9

编写VB程序，实现如下功能：单击“启动”按钮Command1，在列表框List1内每隔2秒输出一个由30个大、小写字母组合成的字符串，运行界面如图所示，程序代码如下。
(字母A和字母a的ASCII码值分别为65、97)

(1)该程序除窗体外使用了________（填数字）个对象。
(2)为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Timer1.Enabled = _________________________'①
End Sub
Private Sub Timer1_Timer()
Dim s As String, c As String
Dim a As Integer, e As Integer, h As Integer
Randomize
s = ""
For a = 1 To 30
e = Int(Rnd() * 52 + 1)
If e <= 26 Then
h = e + 64
Else
h = _________________________'②
End If
c = _________________________'③
s = s + c
Next a
List1.AddItem s
End Sub
(3)为了减缓字符串的出现速度，可将Timer1的Interval属性值________（选填，填字母：

A．调大、

B．调小）。

下列VB表达式，只能产生-100到100之间（包括-100和100）随机数的是（    ）

A．int(rnd*101)

B．int(rnd*1-100)+100

C．int(rnd*200)-100

D．int(rnd*201)-100

产生一个在-10，99中随机整数的VB表达式是

A．int (rnd*100) -10	B．int(rnd*99)-10
C．int(rnd*109)-10	D．int(rnd*110)-10