Question

VB代码改成伪代码

请大神帮忙将以下一串代码改成伪代码
Width1 = Picture1.ScaleWidth
height1 = Picture1.ScaleHeight
DoEvents
For i = 0 To Width1 - 1
For j = 0 To height1 - 1
col = Picture1.Point(i, j)
r1 = col Mod 256
g1 = col \ 256 Mod 256
b1 = col \ 65536
rr = 255 - r1
gg = 255 - g1
bb = 255 - b1
Picture2.PSet (i, j), RGB(rr, gg, bb)
Next j
Next i

Answer 1

Width1 = Picture1.ScaleWidth
height1 = Picture1.ScaleHeight

For i = 0 To Width1 - 1
For j = 0 To height1 - 1
col = Picture1.Point(i, j)
r1 = col Mod 256
g1 = col \ 256 Mod 256
b1 = col \ 65536
rr = 255 - r1
gg = 255 - g1
bb = 255 - b1
Picture2.PSet (i, j), RGB(rr, gg, bb)
DoEvents
Next j
Next i

宽度=图片框1的缩放宽度
高度=图片框1的绽放高度
循环图框1的高度
循环图框1的宽度
取图片框1当前点颜色
对取到颜色进行处理
用画点法画到图片框2
操作权交给操作系统
返回高度循环
返回宽度循环