题目

以下程序要实现十进制转换为十六进制的功能，则划线处的代码为（   ） Private Sub Command1_Click()     Const jz = "0123456789ABCDEF"     Dim d As Integer, r As Integer, s As String     d = Val(Text1.Text)     s = ""     Do While d > 0                                                                                               Loop     Label1.Caption = "十六进制结果是" + s End Sub ①d=d\16     ② s=Mid(jz,r+1,1)+s    ③ s=s + Mid(jz,r,1)      ④ r=d Mod 16 A . ④①③ B . ①②④ C . ④①② D . ①②③ 答案：C

查看本题答案和解析