Dim a(5, 5) As Integer
Dim i As Integer
Dim j As Integer
Dim istr As StringFor i = 1 To 5
  For j = 1 To 5
    If i = j Then
      a(i, j) = 88
    Else
      a(i, j) = 11
    End If
  Next
Next
For i = 1 To 5
  istr = ""
  For j = 1 To 5
    istr = istr + "   " + Str(a(i, j))
  Next j
  Print istr
Next i

解决方案 »

  1.   

    Dim i As Integer
    Dim j As Integer
    Dim istr As StringFor i = 1 To 5
    istr = ""
    For j = 1 To 5
        If i = j Then
            istr = istr + "  " + Str(88)
        Else
            istr = istr + "  " + Str(11)
        End If
    Next j
    Print istr
    Next i
      

  2.   

    for i=1 to 5
        for j=1 to 5
            Print Format(a(i,j),"00");" ";
        next j
        Print
    next i