试题七

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

(说明)

已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdGene按钮时，随机产生10个［1，100］范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。

(程序代码)

D．im intA(1 To 10)As Integer

Private Sub cmdGene_Click()

D．im intI As Integer

Randomize

F．or intI=1 To 10

intA(intI)= (1)

Next intI

E．nd Sub

Private Sub cmdSort_Click()

D．im intI，intJ，intMin，intTemp As Integer

F．or intI=1 To 9

intMin=intA(intI)

F．or intJ= (2) To 10

If intA(intJ)<intMin Then

Temp=intA(intJ)

intA(intJ)= (3)

intMin=intTemp

E．nd If

Next intJ(4)(5)

F．or intI=1 To 10

Print Str(intA(intI))+" "；

Next intI

Next IntI

Print

E．nd Sub