Question

vb代码。。。用两重循环在窗体上显示如图结果

解该题的方法有两种：
方法一：利用数值实现，就是将各列列号通过运算连接起来。
方法二：利用Mid函数取字符串子串来实现，即从字符串中不断取所需的子字符串而得。
还要注意行号与负号的关系。

Answer 1

Private Sub Picture1_Click()
Dim a As Integer
For i = 1 To 6
Picture1.Print
a = (-1) ^ (i + 1)
For j = 1 To i
Picture1.Print a * Left("1234567890", j);
Next j
Next i
End Sub