程序如下: Private Sub Command1 Click () Dim score (40) As Single, aver!, i% aver=0 For i= 1 To 40 score(i)= InputBox("请输入成绩") aver= aver+ score (i) Next i aver= aver /40 For i=1 to 40 If score (i> aver Then print score (D) Next i End sub 请单属标左键换页
程序如下： Private Sub Command1_Click（） Dim score（40）As Single，aver!，i% aver = 0 For i = 1 To 40 score（i）= InputBox（"请输入成绩"） aver = aver + score（i） Next i aver = aver / 40 For i = 1 To 40 If score（i）> aver Then Print score（i） Next i End Sub
【例74】从键盘上输入10个整数,把这些数按由 小到大的顺序排序输出。 排序的方法很多,如选择法、冒泡法等。这里介 绍最容易理解的“冒泡法”。 设10个数存放在A数组中,分别为:A(1)、A (2)、A(3)、A(4)、A(5)、A(6)、A(7) A(8)、A(9)、A(10)。 第1轮:先将A(1)与A(2)比较,若A(1) A(2),则将A(1)、A(2)的值互换,否则,不 作交换;这样处理后,A(1)一定是A(1)、A(2) 中的较小者 请单属标左键换页
【例7.4】从键盘上输入10个整数，把这些数按由 小到大的顺序排序输出。 排序的方法很多，如选择法、冒泡法等。这里介 绍最容易理解的“冒泡法”。 设10个数存放在A数组中，分别为：A（1）、A （2）、A（3）、A（4）、A（5）、A（6）、A（7）、 A（8）、A（9）、A（10）。 第1轮：先将A（1）与A（2）比较，若A（1）＞ A（2），则将A（1）、A（2）的值互换，否则，不 作交换；这样处理后，A（1）一定是A（1）、A（2） 中的较小者
再将A(1)分别与A(3)、…、A(10)比较, 并且依次作出同样的处理。最后,10个数中的最小者 放入了A(1)中。 第2轮:将A(2)分别与A(3) A(10)比 较,并依次作出同第1轮一样的处理。最后,第1轮余 下的9个数中的最小者放入A(2)中,亦即A(2)是 10个数中的第二小的数。 照此方法,继续进行第3轮 ●● 直到第9轮后,余下的A(10)是10个数中的最大 者 至此,10个数已从小到大顺序存放在A(1)~A (10)中。 请单属标左键换页
再将A（1）分别与A（3）、…、A（10）比较， 并且依次作出同样的处理。最后，10个数中的最小者 放入了A（1）中。 第2轮：将A（2）分别与A（3）、…、A（10）比 较，并依次作出同第1轮一样的处理。最后，第1轮余 下的9个数中的最小者放入A（2）中，亦即A（2）是 10个数中的第二小的数。 照此方法，继续进行第3轮… … 直到第9轮后，余下的A（10）是10个数中的最大 者。 至此，10个数已从小到大顺序存放在A（1）～A （10）中
为简单起见,我们以7,5,3三个数为例,再做说 明 第1轮:找出最小值3作为第一个数组元素 753比较7和5,7>5,需要交换,交换后的序 列为573; 573比较5和3,5>3,需要交换,交换后的序 列为375; 第2轮:找出剩下的元素中的最小值5作为第二个 数组元素 375比较7和5,7>5,需要交换,交换后的序列 为357。 剩下的一个元素7为三个元素中的最大者,排序完 成 请单属标左键换页
为简单起见，我们以7，5，3三个数为例，再做说 明： 第1轮：找出最小值3作为第一个数组元素 7 5 3 比较7和5，7＞5，需要交换，交换后的序 列为5 7 3； 5 7 3 比较5和3，5＞3，需要交换，交换后的序 列为3 7 5； 第2轮：找出剩下的元素中的最小值5作为第二个 数组元素 3 7 5 比较7和5，7＞5，需要交换，交换后的序列 为3 5 7。 剩下的一个元素7为三个元素中的最大者，排序完 成
程序如下: Private Sub Command1 Click () Dim t%,i%,j%, a(10) As Integer Fori= 1 To 10 a(i)= InputBox("输入一个整数") Next i Print'输入的10个整数为 Fori= 1 To 10 Print a (i) Next Print 请单属标左键换页
程序如下： Private Sub Command1_Click（） Dim t%，i%，j%，a（10）As Integer For i = 1 To 10 a（i）= InputBox（"输入一个整数"） Next i Print "输入的10个整数为" For i = 1 To 10 Print a（i）， Next i Print