vb问题,每句话解释。
发布网友
发布时间：2024-10-23 03:48
共2个回答
热心网友
时间：2024-11-06 13:15
热心网友
时间：2024-11-06 13:15
dim a as String '定义一个字符串变量
DEC_to_HEX="" '函数返回值为空
DO While Dec>0 '循环判断,直到 DEC小于等于0退出
a=CSTR(DEC Mod 16) '取转换前的数字与16取模 ,即:取该数字被16整除后的余数并转换为字符型数据,如:33 Mod 16=1....
Select Case a
Case "10":a="A" '如果余数为10,a赋值为A
Case "11":a="B" '如果余数为11,a赋值为B
......
End Select
DEC_to_HEX=a & DEC_to_HEX '将转换后的结果返回给函数
Dec=Dec\16 Dec被16整除 根据结果决定是否继续下一个循环
Loop
