关于vb编程中将十进制转化为十六进制

你的太麻烦了，逻辑有些复杂，这是我的代码： Private Sub Command1_Click()n = Val(InputBox("输入要转换的十进制整数：", "十进制转十六进制", "16"))m = nx = ""Do While n >= 16a = n Mod 16Select Case aCase Is < 10a = ax = a & xCase Is = 10a = "A"x