小李编写VB程序，实现如下功能：在文本框Text1中输入一个“十六进制数”（注：包含小数），例如：在文本框Text1中输入A2.4，单击“转换”按钮Command1，在文本框Text2中输出该十六进制对应的十进制数，运行界面如第14题图所示。
（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=1To n
r=Mid（x,i,1）
If r＞=“0“And r＜=“9“Then  y=Val（r）
If r＞=“A“And r＜=“F“Then  y=①

Asc（r）-55

Asc（r）-55

If i＜m Then  s=②

s*16+y

s*16+y

'整数部分
If i＞m Then  s=s+y*16^（m-i）'小数部分
Next i
Text2．Text=③

Str（s）

Str（s）

+“D“
End Sub
（2）在文本框Text1中输入“A.8”，则在文本框Text2中输出结果是

10.5D

10.5D

。