大佬们，这两题怎么写代码

Static p As Integer
For i = 2000 To 3000
If Val(Mid(i, 1, 1)) + Val(Mid(i, 2, 1)) = Val(Mid(i, 3, 1)) + Val(Mid(i, 4, 1)) Then
Print i;
p = p + 1
End If
If p Mod 10 = 0 Then Print
Next i
别直接抄，理解了自己在打一遍

For i = 1 To 100
For j = 1 To i
Print j;
Next j
Print
Next i