Dim n As IntegerDim st As String Dim a( 1 To 1005 As Integer Dim b( 1 To 100)As Integer Private Sub Command1_Click( ) n=Val( Text1.Text) For i=1 To n*n a(i)=i Next i For i=1 To n st-““ For j=1 To n st-st+adj( Str(a(i-1)*n+j)),3) Next j List1.AddItem st Next i End Sub Private Sub Command2_Click( ) List2.Clear For i=1 To n st-““ For j=1 To n b((i-1)*n+j)=① st=st+adj(Str(b((i-1)*n+j)),3) Next j List2.AddItem st Next i For i=1 To n*na(i)=② Next i End Sub 'adj函數的功能:在字符串a前加入適當的空格,使a的長度為n位Function adj(a As String,n As Integer)As String Dim sa As String na=Len(a):sa=a For i=1 To n-na sa=““sa Next i adj=③ End Function