这个图形怎么做中间一列和中间一行是1，其他是0
vb吧
全部回复
仅看楼主
level 7
贴吧用户_QNAAVSQ 楼主
这个图形怎么做中间一列和中间一行是1，其他是0
2020年06月12日 08点06分 1
level 7
贴吧用户_QNAAVSQ 楼主
@初音✨七奈
2020年06月12日 08点06分 2
level 7
贴吧用户_QNAAVSQ 楼主
@初音✨七奈 在吗大佬
2020年06月12日 09点06分 3
level 15
初音✨七奈
for i=-4 to 4
?spc(abs(i));
for j=abs(i)-4 to 4-abs(i)
?cstr(cbool(i*j)+1);
next j
?
next i
2020年06月12日 09点06分 4
level 7
贴吧用户_QNAAVSQ 楼主
能不能用我的格式改@初音✨七奈
2020年06月12日 10点06分 5
初音✨七奈
你要学会比较[滑稽]我们两个的代码说白了只有两句不同（你的If块整体算一句），我是用非If的形式实现了你的If的功能，如果把我那句改成If就是这样写：If i * j <> 0 Then Print "0"; Else Print "1";
2020年06月12日 10点06分
level 7
贴吧用户_QNAAVSQ 楼主
不行啊@初音✨七奈
2020年06月12日 10点06分 6
初音✨七奈
我说了，有【两句】不同，你只改了一句，还有一句没改，就是j的循环范围
2020年06月12日 10点06分
初音✨七奈
如果你不想改j的范围，那么应该让j等于多少时输出1呢？答案是：当Abs(i)+j=5时
2020年06月12日 10点06分
贴吧用户_QNAAVSQ
妙啊，我为什么想不出[泪]
2020年06月12日 10点06分
贴吧用户_QNAAVSQ
我就只晓得行怎么写
2020年06月12日 10点06分
level 7
贴吧用户_QNAAVSQ 楼主
只能让行实现
2020年06月12日 10点06分 7
level 7
贴吧用户_QNAAVSQ 楼主
这题这样写对吗？
2020年06月12日 11点06分 8
初音✨七奈
应该是s=s+j
2020年06月12日 11点06分
level 10
涐吢铱舊囿儚
[滑稽]
2020年06月12日 12点06分 9
1