VB中 CInt(CDec("&H" & ExR(i)) / 4096) 以下是比较完整的语句:'有关工艺属性和同步处理HangCheLPublic Sub GetGangData()Dim Strc As StringDim Dnum As StringDim i,n,c,Num,Gnum As LongFor i = 0 To 81If ExR(i) = "" Then Exit ForGangong

来源:学生作业帮助网 编辑:作业帮 时间:2024/08/10 02:26:20
VB中 CInt(CDec(
x_O`ƿ.nh-A jY,%NH!P/@S&I4E D7k劯ӷČjAȰ"p".0-Dg84@+Qhr`Ƌ 9:<3Hu{~ Vɵ,D6[ 2ӵVUpioo3SțqUz=j}) }{ /F R9<$`G]}i#)Z{;ǜ~yM8k&9w"~Dc.

VB中 CInt(CDec("&H" & ExR(i)) / 4096) 以下是比较完整的语句:'有关工艺属性和同步处理HangCheLPublic Sub GetGangData()Dim Strc As StringDim Dnum As StringDim i,n,c,Num,Gnum As LongFor i = 0 To 81If ExR(i) = "" Then Exit ForGangong
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

VB中 CInt(CDec("&H" & ExR(i)) / 4096) 以下是比较完整的语句:'有关工艺属性和同步处理HangCheLPublic Sub GetGangData()Dim Strc As StringDim Dnum As StringDim i,n,c,Num,Gnum As LongFor i = 0 To 81If ExR(i) = "" Then Exit ForGangong
EXR(i)数组中某一元素
"&H" & ExR(i)表示16进制数
CDec("&H" & ExR(i)) 将这个16进制数转换为decimal 类型数据(关于这个类型,可以百度下,一般小数计算都用这个类型,非浮点型小数)
CDec("&H" & ExR(i)) / 4096 一个除法,
CInt(CDec("&H" & ExR(i)) / 4096) 将上一步结果强制转换成整形,也就是一个整数