д³öÏÂÃæ³ÌÐòµÄÔËÐнá¹û£¨10·Ö£©

  1. Private Sub Command1_Click()
         x = 0
         n = InputBox("")
         For i = 1 To n
             For j = 1 To i
                 x = x + 1
             Next j
         Next i
         Print x
       End Sub
³ÌÐòÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬Èç¹ûÊäÈë5£¬ÔòÔÚ´°ÌåÉÏÏÔʾµÄÄÚÈÝÊÇ:

2.

Option base 1

Private sub subp(b() As Integer)
£ £     for i=1 to 4

      b(i)=2*i

    next i 

End Function
£ £ Private Sub Command1_Click()
£ £    Dim a() as integer

a(1)=5

a(2)=6

a(3)=7

a(4)=8

subp a()

for i= 1 to 4

  print a(i)

next i

1£® 15          2.   2

                     4

                     6

                     8