o这是因为有字节对齐的问题。每一个变量的首地址必须是它所占字节长度的倍数。
网站建设哪家好,找创新互联!专注于网页设计、网站建设、微信开发、微信小程序定制开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了长沙县免费建站欢迎大家使用!
比如int32长度是4,那么它的首地址只能取0,4,8,12……
下面的图形象的表示了MSG在内存中的储存情况:
OOXXOOOO
第一个和第二个O表示两个BYTE类型的数据,两个X表示空地址,里面什么也没放。后面四个OOOO便是一个int32类型数据也就是Code。加起来总共占了8个字节的内存
for i=3 to 100
if i mod 3=0 then print i '除以3余数为0的话,就是3的倍数
next
望采纳
double是双精度 有效数值位52位 表示成指数的形式 即指数11位 即表示成
所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101
即
180.89305在double中存在的实际数值是
1.01101001110010010011110111011001011111110110001010110110101 *2^7
取小数点后 52位有效值后 等于10进制的180.893049999999998
所及加最后变成了 1808930.99999999998
第一次当然输出近似值1808931
第二次int函数去掉了小数点后的数int就是只取整数的部位的不是四舍五入 所以少了1
if x mod 3 = 0 and x 0 then
msgbox ”x 是3的倍数”
end if
if x mod 7 = 0 and x 0 then
msgbox ”x 是7的倍数”
end if
如果是固定格式的,
str=34X+45Y=67Z
x=split(str,"X")(0) ‘以X分割,取第0段,即:34
y=split(split(str,'+')(1),'Y')(0) '以+分割,取第1段即:45Y=67Z,再以Y分割,取0段得45
z=split(split(str,'=')(1),'Y')(0) '同上
把字符串分割,查找,截取这些常用字符串处理函数掌握了,
就差不多能随心所欲的处理了...
以上是vb6.0代码,
。net 不用api就行
缩放操作
Function 缩放(ByVal bitmap As Bitmap, ByVal 倍数 As Single) As Bitmap
Dim w As Integer = bitmap.Width * 倍数
Dim h As Integer = bitmap.Height * 倍数
Dim tem As New Bitmap(w, h)
Dim g As Graphics = Graphics.FromImage(tem)
g.DrawImage(bitmap, New Rectangle(0, 0, w, h), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)
g.Dispose()
Return tem
End Function
鼠标滚轮事件 MouseWheel
MouseEventArgs.Delta 值可以判断滚动方向