关于vb编程中将十进制转化为十六进制
关于vb编程中将十进制转化为十六进制
日期:2017-08-28 20:58:38 人气:1
你的太麻烦了,逻辑有些复杂,这是我的代码:
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