⑴用户通过输入n，点击按钮Command2生成规模为n×n的数字矩阵；

  ⑵矩阵元素随机生成，并按数组顺序保存，如规模为3×3的矩阵，元素对应数组的排列方式如图a所示；

  ⑶点击按钮Command1后输出主对角线上的元素以及其元素之和。

程序界面如图b所示，程序代码如下：

Dim a(100)As Integer，n As Integer

Private Sub Command1_Click()    ‘输出主对角线数据及其之和

  Dim i As Integer，j As Integer，t As Integer，sum As Integer

  t=1：sum=0

  For i=1 To n

    For i= 1 To n

      If    ①    Then

      List2．AddItem Str(a(t))

      sum=sum+a(t)

    End If

    Next i

    ②   

  Next i

  List2．Addltem“和：  ”+Str(sum)

End Sub

Private Sub Command2_Click()        ‘生成数组矩阵

  Dim i As Integer，s As String

  n=Val(Text1．Text)            ‘获取矩阵规模

  List1．Clear：List2．Clear

  Randomize

  For i=1 To n2

    a(i)=99-Int(Rnd*90)

    s=s+Str(a(i))

    If   ③    Then

    List1．AddItem s

    s=“”

    End If

  Next i

End Sub

1）程序运行后，给出文字提示:"请输入一个正整数："

2）输入一个整数n按回车后，程序输出从1-n所有整数中既是3的倍数又是5的倍数的数。

3）不要超过5行代码。

程序运行举例：

n= 5

head=0

tail=4

que=['a' , 'b' ,'c' ,'d' ,'e' ]

while head!=tail:

    if head%4==0:

        print (que[head])

    else:

        tail=(tail+1)%n

        que[tail]=que[head]

    head= (head+1)%n

print (que[head])

王明同学为希望工程捐款。第一个月捐款1元，第二个月捐款2元，以后每个月都在前一个月的基础上增加1元。至少需要多少个月捐款总额达1000元？

sum＝{#blank#}1{#/blank#}   #给捐款总额变量赋初值（单位：元）

m＝1   #给捐款需要的月份赋初值

while {#blank#}2{#/blank#}：

   sum＋＝{#blank#}3{#/blank#}   #计算每月新的捐款总额

   m＋＝1   #捐款月份加1

print（"至少需要", m, "个月完成捐款任务，共捐款", sum, "元"）   # 输出结果

a = [ 6 , 12 , 9 , 20 , 8 , 11 , 4 ]

for j in range( 1 , len( a ) ) :

    if  a[ j ] < a[ j - 1 ] :

 a[ j ] = a[ j ] + a[ j - 1 ] ;  a[ j - 1 ] = a[ j ] - a[ j - 1 ] ;  a[ j ] = a[ j ] - a[ j - 1 ]

执行该段程序后，列表a的值是（   ）