VB中 CInt(CDec("&H" & ExR(i)) / 4096)
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/11 09:20:33
VB中 CInt(CDec("&H" & ExR(i)) / 4096)
以下是比较完整的语句:
'有关工艺属性和同步处理HangCheL
Public Sub GetGangData()
Dim Strc As String
Dim Dnum As String
Dim i,n,c,Num,Gnum As Long
For i = 0 To 81
If ExR(i) = "" Then Exit For
GangongJ(i).GJGYnum = CInt(CDec("&H" & ExR(i)) / 4096) '得到所属工艺步
GangongJ(i).GJGYstep = CDec("&H" & ExR(i)) - GangongJ(i).GJGYnum * 4096 '得到所属工艺号
Next i
以下是比较完整的语句:
'有关工艺属性和同步处理HangCheL
Public Sub GetGangData()
Dim Strc As String
Dim Dnum As String
Dim i,n,c,Num,Gnum As Long
For i = 0 To 81
If ExR(i) = "" Then Exit For
GangongJ(i).GJGYnum = CInt(CDec("&H" & ExR(i)) / 4096) '得到所属工艺步
GangongJ(i).GJGYstep = CDec("&H" & ExR(i)) - GangongJ(i).GJGYnum * 4096 '得到所属工艺号
Next i
EXR(i)数组中某一元素
"&H" & ExR(i)表示16进制数
CDec("&H" & ExR(i)) 将这个16进制数转换为decimal 类型数据(关于这个类型,可以百度下,一般小数计算都用这个类型,非浮点型小数)
CDec("&H" & ExR(i)) / 4096 一个除法,
CInt(CDec("&H" & ExR(i)) / 4096) 将上一步结果强制转换成整形,也就是一个整数
再问: 如果EXR(i)中的数值是20,那么 "&H" & EXR(i) 是将20转换成16进制(也就是16进制的14)还是将20认定为16进制呢(相当于十进制的32呢)?呵呵,好像有些乱哈,简单一点说EXR(i)中的数值如果是20,那么 "&H" & EXR(i)会返回一个怎样的值?期待中!
再答: 16进制是这样表示的 &H20 因此,这个20是16进制的20,相当于10进制的32 你的意思我懂
"&H" & ExR(i)表示16进制数
CDec("&H" & ExR(i)) 将这个16进制数转换为decimal 类型数据(关于这个类型,可以百度下,一般小数计算都用这个类型,非浮点型小数)
CDec("&H" & ExR(i)) / 4096 一个除法,
CInt(CDec("&H" & ExR(i)) / 4096) 将上一步结果强制转换成整形,也就是一个整数
再问: 如果EXR(i)中的数值是20,那么 "&H" & EXR(i) 是将20转换成16进制(也就是16进制的14)还是将20认定为16进制呢(相当于十进制的32呢)?呵呵,好像有些乱哈,简单一点说EXR(i)中的数值如果是20,那么 "&H" & EXR(i)会返回一个怎样的值?期待中!
再答: 16进制是这样表示的 &H20 因此,这个20是16进制的20,相当于10进制的32 你的意思我懂