高校问答刘惜君快乐女生第几:VB 图象合并 高手来
来源：百度文库 编辑：高校问答 时间：2024/05/03 00:59:19
我要编一个程序，是这样的，假设我有两张200*100的照片a和b，是否可以把每张照片删掉一半象素，合并成一张照片。再说明一下，我把一张照片看成是一个坐标系，横坐标X，纵坐标Y；现在我把照片a的象素的横坐标X是2,4,6,8,10,12·····196,198,200的删掉，再把照片b的象素的横坐标X是1,3,5,7,9,11····195，197，199的删掉，然后把两张照片合并起来，
我想要的是完整的代码可以吗 ？ 谢谢！ 回答使我满意的可以加50觉不食言！！！
我想要的是完整的代码可以吗 ？ 谢谢！ 回答使我满意的可以加50觉不食言！！！
picture1 和 picture2 为你的两个照片a,b
For i = 1 To 100 * 15 Step 15
For j = 1 To 200 * 15 Step 15
If j Mod 30 = 0 Then
a = Picture1.Point(i, j)
Else
a = Picture2.Point(i, j)
End If
Picture3.PSet (i, j), a
Next j
Next i