用VB在窗体上打印数字图形，如下：

Question

              9
             989
            98789
           9876789
          987656789
         98765456789
          987656789
           9876789
            98789 
             989 
              9

Answer 1

            9 
           989 
          98789 
         9876789 
        987656789 
       98765456789 
        987656789 
         9876789 
          98789 
           989 
            9print 显示在窗体上。

Answer 2

Option ExplicitPrivate Sub Command1_Click()
  
Me.AutoRedraw = True
Me.Cls
Dim N As LongDim i, j As Long
N = 8  '此种为正中间最小数For i = 0 To 9 - N
  For j = 0 To 8 - N - i
   Print "  ";
  Next
 
  For j = 9 To 10 - i Step -1
    Print CStr(j) & " ";
  Next
  
  For j = 9 - i To 9
    Print CStr(j) & " ";
  Next
  
  Print
Next
  
For i = 8 - N To 0 Step -1
  For j = 0 To 8 - N - i
   Print "  ";
  Next
 
  For j = 9 To 9 - i Step -1
    Print CStr(j) & " ";
  Next
  
  For j = 10 - i To 9
    Print CStr(j) & " ";
  Next
  
  Print
Next
  
End Sub

Answer 3

'和你二楼的一模一样.
Option ExplicitPrivate Sub Command1_Click()
  
Me.AutoRedraw = True
Me.Cls
Dim N As LongDim i, j As Long
N = 4  '此种为正中间最小数For i = 0 To 9 - N
  For j = 0 To 14 - N - i
   Print "-";
  Next
 
  For j = 9 To 10 - i Step -1
    Print CStr(j);
  Next
  
  For j = 9 - i To 9
    Print CStr(j);
  Next
  
  Print
Next
  
For i = 8 - N To 0 Step -1
  For j = 0 To 14 - N - i
   Print "-";
  Next
 
  For j = 9 To 9 - i Step -1
    Print CStr(j);
  Next
  
  For j = 10 - i To 9
    Print CStr(j);
  Next
  
  Print
Next
  
End Sub

Answer 4

可以加你MSN吗？我的是[email protected].
以后有问题，还希望大侠多多帮忙。