Question

【选作题】用两重循环在窗体上显示如图所示

【提示】解该题的方法有两种：
方法一：利用数值实现，就是将各列列号通过运算连接起来。
方法二：利用Mid函数取字符串子串来实现，即从字符串中不断取所需的子字符串而得。

Answer 1

外边For控制i循环1到6
内部For控制j循环1到i
外部循环i为奇数时输出正数，i为奇数时输出负数。

Answer 2

Private sub form1_click ()
For i ＝1 to 6
For j ＝1 to i
For k ＝1 to j
If k ＝1 Then s＝k Else s＝s & k
Next k
If i mod 2＝0 then
Picture1.print"－" & s ;" ";
Else
Picture1.print" " & s;" ";
End If
Next j
Picture1.print
Next i
End sub

Answer 3

Private Sub Form_Click()
Dim s As String
For i = 1 To 6
If i Mod 2 = 0 Then
m = -1
Else
m = 1
End If
For j = 1 To i
For k = 1 To j
a = m * k
If k = 1 Then
s = s & a
Else
s = s & k
End If
Next k
Print s; Spc(2);
s = ""
Next j
Print
Next i
End Sub

追问

做得挺好的，但是就差对齐的格式了。看看能不能改一改，使它跟题目要求的一个样。