学进去

小李编写VB程序，实现如下功能：在文本框Text1中输入一个“十六进制数”（注：包含小数），例如：在文本框Text1中输入A2.4，单击“转换”按钮Command1，在文本框Text2中输出该十六进制对应的十进制数，运行界面如图所示。

（1）为实现上述功能，请在划线处填入合适的代码，使程序正常运行。
Private Sub Command1_Click()
Dim i As Integer, x As String, n As Integer, m As Integer

Dim y As Integer, s As Single, r As String

    x = Text1.Text   
n = Len(x)               '求长度
m = InStr(x, ".")        '找小数点的位置
s = 0
For i = 1 To n
r = Mid(x, i, 1)
If r >= "0" And r <= "9" Then  y = Val(r)
If r >= "A" And r <= "F" Then  y = _______
If i < m Then  s =___________             '整数部分
If i > m Then  s = s + y * 16 ^ (m - i)  '小数部分
Next i
Text2.Text = _______ + "D"
End Sub
（2）在文本框Text1中输入“A.8”，则在文本框Text2中输出结果是______。