编写VB程序,实现如下功能:在文本框Text1中输入十进制数,单击“转换”按钮Command1,在列表框List1中输出对应的十六进制数,运行界面如图a所示,程序代码如下。

图a 图b
(1)在设计程序界面时,应使用图b所示的“控件工具箱”中的 ________(填写相应编号)添加列表框。
(2)为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Const code = "0123456789ABCDEF"
Dim s1 As String, s As String, t As String
Dim a As Integer
Dim f As Boolean
Dim x As Long
t = Text1.Text
a = Len(t)
__________
For i = 1 To a
c = Mid(t, i, 1)
If c < "0" Or c > "9" Then f = False
Next i
If f Then
x = Val(t)
s = ""
Do While x > 0
y = x Mod 16
x = x \ 16
s1 = Mid(code, y + 1, 1)
_________
Loop
List1.AddItem "(" & Text1.Text & ")10" & "-->(" & s & ")16"
Else
List1.AddItem "(" & Text1.Text & ")10" & "-->不是十进制数"
End If
End Sub
(3)若在文本框Text1中输入“63”,则单击“转换”按钮后s的值为:________。