1、新建一个子程序loopcolor。
2、然后是定义几个变量,都是整数型。Dim myrow As Integer Dim mycol As Integer Dim mycolor As Integer。
3、为mycolor赋值。mycolor = 0。
4、对myrow进行循环。
5、在myrow的循环里面再嵌套另外一个循环mycol。
6、再循环里面,分别选中单元格,并为这些单元格填充颜色。
7、最后运行这个程序,然后回到excle的界面,就可以看到被填充的颜色块了。
不知道参数具体数值无法运行,这里给你指出编程错误。
if s1>s2
for i=150:15:0;%应修改为i=150:-15:0
new1=AFFT(im1,i);
s10=AS(new1);
if abs(s10-s2)<0.01
subplot(1,2,1),imshow(new1,[])
subplot(1,2,2),imshow(im2,[])
%这里你是否只需画一幅图?根据你的表达退出所有循环这里要加个break
end
end%最后仍缺个end
修改程序如下:
if s1>s2
for i=150:-15:0
new1=AFFT(im1,i);
s10=AS(new1);
if abs(s10-s2)<0.01
subplot(1,2,1),imshow(new1,[])
subplot(1,2,2),imshow(im2,[])
break
end
end
end
如有疑问请追问,若满意请采纳哦。
for循环嵌套if语句,参考实例如下:
int fun(int i,j)
{
for(i=0;i<100;i++)
{
if(i==20)
{
printf("!!!!!");
}
if(i==40)
{
printf("~~~~~~~~~~~~");
}
if(i!=20||i!=40)
{
printf("!!!!~~~~~");
}
}
}
少了一个end