编写VB程序，实现如下功能：在文本框Text1中输入一个十进制整数，单击命令按钮Command1,在标签Label2上显示转换成十六进制数的结果，运行效果如图所示。

（1）在设计程序界面时，要使按钮Command1上的文字显示为“转化成十六进制”，应修改按钮Command1的_____________________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim y As Integer, r As Integer
Dim s As String, t As String
t = "0123456789ABCDEF"
s = ""
y = ①_________
Do While  y>0
r = y Mod 16
s = ②__________
y = ③_________
Loop
Label2.Caption = Text1.Text + "转化成十六进制数为：" + str(s)
End Sub

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

A．Int(Rnd * 11) -11

B．Int(Rnd * 20)-10

C．Int(Rnd * 21) -11

D．Int(Rnd * 21)-10

编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如第1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。

（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（2图) 中将
____________属性的属性值修改为“转换”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If_________Then '(选填字母,从下列A、B、C、D四个选项中选取一项）
t =" t1:" t1 =" t2:" t2 = t
End If
i = t1
Do While__________'(选填字母,从下列A、B、C、D四个选项中选取一项）
f =" i" * 9 / 5 + 32    '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
_________'（填程序代码）
Loop
End Sub
划线①、②处的选项:

A．i <= t2

B．f <= t2

C．t1 > t2

D．i < f

在VB中，若x=5，y=30，则下列表达式的运算结果不等于6的是 (   )

A．y/x

B．1-x*5+y

C．y/4+1

D．x+1

小王同学正在学习二元一次方程，老师布置了一个二元一次方程求解的题目，方程为2x+3y=10。请利用VB编程帮他求出此二元一次方程的所有整数解（10≥x≥-10，10≥y≥-10），并将每组解在列表框List1中输出，同时统计出共有多少组解，并将统计结果在文本框Text1中显示。
程序运行界面如图所示，为实现以上功能，请在划线处填入合适代码。

Private Sub Command1_Click()
Dim x As Integer, y As Integer, t As Integer
t = 0
For x =" -10" To 10
For y =" -10" To 10
If_____________Then
List1.AddItem "X:" + Str(x) + "  " + "Y:" + Str(y)
t=t+1
___________
Next y
Next x
Text1.Text = Str(t)
End Sub