学进去

RGB色彩，是通过对红(R)、绿(G)、蓝(B)三个颜色通道的变化以及它们相互之间的叠加来得到各式各样的颜色的，也即红绿蓝R,G,B，它们从0到255。小李编写了VB程序，在文本框Text1中输入十进制RGB值，如：“255，0，192”。单击“对照”Command1按钮，在文本框text2中输出相应的十六进制“FF00C0”。如图所示：

请在画线处填入合适的代码：
Private Sub Command1_Click()
   Dim s As String, ch As String, temp As String, hx As String
   Dim i As Integer, r As Integer, t As Integer
   s = Text1.Text            ‘RGB的十进制值，用“,”分开
   t = 0
   hx = ""
   For i = 1 To Len(s)
       ch = Mid(s, i, 1)
       If ch = "," Then          ‘对“，”前的十进制t转换成十六进制数
          hx = hx & D2H(t)       ‘自定义函数D2H(t),将十进制t的值转换成十六进制
          t = 0
       Else
          t =   ____________
       End If
   Next i
   Text2.Text = ___________
End Sub
‘自定义函数D2H(t),将十进制t的值转换成十六进制
Function D2H(k As Integer) As String
   If k = 0 Then
       temp = "00"
   Else
       temp = ""
   End If
   Do While k <> 0
          r = k Mod 16
          k = k \ 16
          If r > 9 Then
             temp = Chr(Asc("A") + r - 10) & temp
          Else
             temp = r & temp
          End If
   Loop
   D2H = temp
End Function