1、作业六：数组一、自己阅读练习的作业1、实验教材：P58 实验 8：实验案例 /实验回答问题/设计性实验2、教材：P183 习题：一二、必需上交的作业作业 1：随机产生 N 个二位正整数存放在一维数组中，求数组的最大值、平均值。作业 2：随机产生 10 个30，50的整数，并放入一维数组中，然后将其前5 个元素与后 5 个元素对换，即第 1 个元素与第 6 个元素互换，第 2 个元素与第 7 个元素互换.第 5 个元素与第 10 个元素互换。分别在窗体上输出数组原来各元素的值和对换后各元素的值。三、上交作业的地方位置：FTP:/192.168.120.199/班级编号/H06/001特别强调：（
2、1）窗体文件和工程文件名均以自己的学号+姓名命名，如 2009121801 张三，学号必须用 10 位。如有几道题，就用 1、2 等数字来区别，如 2009121801张三 1，2009121801 张三 2。（2）上交作业要保证窗体文件和工程文件同时上交。 Private Sub Form_Click()Dim N as Integer,A() as IntegerDim Max as integer,Min as integer,Avg as IntegerN=10Redim A(1 to n) as IntegerRandomizeMax=0Min=100For i=1 to NA(i)
3、=Int(Rnd*90)+10if A(i)Max Then Max=a(i)If A(i)Min Then Min=A(i)Avg=Avg+A(i)NextPrint “最大值为:“ & MaxPrint “最小值为:“ & MinPrint “平均值为:“ & Avg/NEnd Sub用 Vb 编写程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Textl 输入。例如数组各元素的值依次为 0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为 8，9，10，0，1，2，3，4，5，6，7。Private Sub Command1_Click()Dim i As Integer, j As Integer, t As SingleFor i = 1 To Text1.Textt = a(10)For j = 10 To 1 Step -1a(j) = a(j - 1)Nexta(0) = tNextFor i = 0 To 10Print a(i)NextEnd SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 10a(i) = iNextEnd Sub
