Question

这题用VB怎么实现，求详解

这题用VB怎么实现，求详解不要直接用空格函数的

Answer 1

Private Sub Command1_Click()
    Dim i As Integer, j As Integer, str As String
    For i = 1 To 9 '1至9行
    For j = 1 To 9 '1至9列
        str = 5 - Abs(j - 5) '计算条i行条j列要输出的数字
        If Int(str) < Abs(i - 5) + 1 Then str = " " '如果要输出的数字小于Abs(i - 5) + 1，则输出空格
        Print "  " & str; '输出。后面的分号表示接着上次输出的位置输出。
    Next j
    Print '换行
    Next i
End Sub

Answer 2

按照你的要求编写的VB语言的数字菱形的程序如下(代码写在按钮的Click事件中,Abs函数是求绝对值的函数)

Private Sub Command1_Click()
Dim N,m,i,j As Integer  '定义用到的变量
N=5                     '上半部打印5层  
For i = 1 To 2*N-1      '共打印2*N-1层菱形
 For j=1 To Abs(N-i) '打印每行菱形前面的空格
  Print " ";
 Next j
 m=Abs(N-i); '为m变量确定每行的起始值
 For j=1 To 2*N-1-2*Abs(N-i)   '打印每行菱形的数字
  If j<=N-Abs(N-i) Then '如果j小于中间值N-Abs(N-i)就m+1打印每行前半段,否则m-1打印每行后半段
   m=m+1;
   Print m;
  Else
   m=m-1;
   Print m;
  End If 
 Next j
 Print   '打印换行
Next i
End Sub