Question

VB单击窗体在显示图形

private sub form_click()
for a=3 to -3 step -1
n=__________(1)
print tab(15-n);
for b=1 to n
print _________(2)
___________(3)
print
next a
end sub

答案:(1)4-abs(a)或者4-sgn(a)*a

(2) M

3)next b

........主要解析一下第一小问为什么........4-abs(a)或者4-sgn(a)*a.............不懂

Answer 1

abs(a)与sgn(a)*a的结果是一样的，都是取变量a的绝对值

tab(15-n)是当前输出位置为第14列

追问

问题补充完整，刚才缺少一张图片
主要解析一下第一小问为什么........4-abs(a)或者4-sgn(a)*a.............不懂

追答

private sub form_click()
for a=3 to -3 step -1
n=4-abs(a)
print tab(15-n); //此处定义起始列。
for b=1 to n //第二个循环为输出多少个M
print M
next b
print
next a
end sub

追问

始终没有回答为什么4-abs(a),

追答

服了你了，自己理解，
abs(a)是取A的绝对值，将a的值代入其中，自己算结果
根据结果算需求，这你都理解不了，那我懒得再敲了，
编程哪有这么多为什么，你要实现起始列位置与输出个数，当然要这样写才能符合需求
大清早的，开工去，已经无语了。

追问

还不懂4-abs(a), 为什么3-abs(a)就不行

追答

…………
你没救了

Answer 2

'运行一下这下面的程序。再对照说明仔细研究下，相信你会更明白的。朋友。
Private Sub Command1_Click()
For k = 1 To 15 '先输出一行a
Print "a";
Next
For a = 3 To -3 Step -1 '因为要输出的是对称图形，所以循环变量一般都取对称的起始值，这里确定从上到下输出七行
n = 4 - Abs(a) '这个n,是为下面确定输出起始位置和每行输出M的个数设置的，具体说，第一行从第14个字符位置起，即tab(15-n),输出一个M，第二行从第13个字符位置起，输出2个M
Print Tab(15 - n); '这句是确定每行输出的起始位置，是从窗体左侧按字符数计算的
For b = 1 To n '外循环确定行数，内循环确定每行输出几个M
Print "M";
Next
Next
End Sub

追问

你如此解释，我完全明白了，实在太笨了