數(shù)組實(shí)驗(yàn)課練習(xí)題

1、1、生成一個(gè)一維數(shù)組(10個(gè)數(shù)組元素依次為：15、23、72、43、96、23、3、65、88、17)，寫(xiě)程序求出這個(gè)數(shù)組中的最大值、最小值和平均值，并輸出在窗體上。將最大值，最小值，平均值分別存入變量Max,Min,Aver中,平均值保留整數(shù)部分。、求二維數(shù)組中最大元素及其所在的行和列并將最大值存入變量Max中，將最大值的行位置存入row中，列位置存入變量column中。3、在窗體上打印數(shù)列2/1，3/2，5/3，8/5,13/8的前10項(xiàng)和，將和保存在變量s中。、求3行3列的矩陣主對(duì)角線(xiàn)元素和副對(duì)角線(xiàn)之和。1編程：在窗體上打印數(shù)列2/1，3/2，5/3，8/5,13/8的前10項(xiàng)和，將和保

2、存在變量s中。 Private Sub Form_Click() Dim f(1 To 11) As Long f(1) = 1 f(2) = 2 :s=2 print cstr(f(2) & / & cstr(f(1) For i = 3 To 11 f(i) = f(i - 1) + f(i - 2) s=s+f(i)/f(i-1) print cstr(f(i) & / & cstr(f(i-1) Next i Print sEnd Sub 2、下面的程序?qū)崿F(xiàn)：從鍵盤(pán)輸入一個(gè)數(shù)字，將其插入一個(gè)有序數(shù)組中，插入后的數(shù)組仍保持有序。Private Sub Form_Click()Dim a(

3、10) As Integer, x As IntegerFor i = 1 To 8 a(i) = 2 * i 1 : Print a(i);Next iPrintx = InputBox(請(qǐng)輸入要插入的整數(shù))*SPACE*【?】i = 8Do While a(i) x*SPACE* 【?】 i = i - 1Loop*SPACE*If i 0 Then 【?】 Else a(1) = xFor i = 1 To 9 Print a(i);Next iEnd Sub3、本程序用于實(shí)現(xiàn)：從鍵盤(pán)接收一數(shù)字，判斷其是否在數(shù)組中，如果在數(shù)組中則將其刪除，否則顯示該數(shù)字不在數(shù)組中。Private Sub

4、 Form_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 10 a(i) = Int(Rnd * 90) + 10 : Print a(i);Next ix = InputBox(請(qǐng)輸入要?jiǎng)h除的整數(shù))For i = 1 To 10*SPACE* If a(i) = x Then 【?】Next i*SPACE*If 【?】 Then For k = i To 9*SPACE* 【?】 Next k Print 刪除后的數(shù)組: For i = 1 To 9 Print a(i); Next i Else : Print 該數(shù)字不在數(shù)組

5、中End IfEnd Sub4、下面的程序段用于刪除數(shù)組中指定位置的數(shù)字，如果位置錯(cuò)誤給出提示，否則分別顯示刪除前后的數(shù)組元素Private Sub Form_Click()Dim a(10) As Integer, x As IntegerDim i as integer,k as integerFor i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i);Next iPrintx = InputBox(請(qǐng)輸入要?jiǎng)h除第幾位數(shù)字)*FOUND*If x 0 Then For k = x+1 To 10*FOUND* a(k+1) = a(k ) Ne

6、xt k Print 刪除后的數(shù)組: For i = 1 To 9 Print a(i); Next i*FOUND*End If Print 刪除位置錯(cuò)誤End IfEnd Sub5、下面程序運(yùn)行后單擊窗體，輸出結(jié)果為1234。Private Sub Form_Click()Dim aa = Array(1, 2, 3, 4)j = 1*SPACE*For i = 【?】 s = s + a(i) * j*SPACE* j = 【?】Next i*SPACE* Print 【?】End Sub6、題目：以下程序段用于輸出楊輝三角：11 11 2 11 3 3 11 4 6 4 11 5 10

7、 10 5 11 6 15 20 15 6 11 7 21 35 35 21 7 11 8 28 56 70 56 28 8 17Private Sub Form_Click()Const n = 10Dim arr(n, n) As IntegerFor I = 1 To n arr(I, I) = 1*SPACE* 【?】Next IFor I = 3 To n For j = 2 To I - 1*SPACE* arr(i, j) =【?】 Next jNext IFor I = 1 To n For j = 1 To I*SPACE* 【?】 Next j PrintNext IEnd

8、 Sub8、編程求一個(gè)m*n矩陣中最大元素及其所在的行列號(hào)。Private Sub Form_Click() Dim A() As Integer, max As Integer Dim M As Integer, N As Integer Dim i As Integer, j As Integer Dim col As Integer, row As Integer M = InputBox(輸入矩陣的行數(shù)：) N = InputBox(輸入矩陣的列數(shù)：) ReDim A(M, N) As Integer For i = 1 To M For j = 1 To N A(i, j) = In

9、putBox( 輸入數(shù)組元素:) Next j Next i9*FOUND* max = A(0, 0) For i = 1 To M For j = 1 To N If max a(j + 1) Then x=a(j):a(j)=a(j+1): a(j+1)=x*SPACE* 【?】 End If Next j*SPACE* If work Then 【?】Next iFor i = 1 To n Print a(i);Next iEnd Sub13、隨機(jī)生成10個(gè)數(shù)存入數(shù)組中，并將數(shù)組排序后輸出Private Sub Command1_Click() Dim a(10) As Intege

10、r Dim i, j, t As IntegerFor i = 1 To 10 *SPACE* a(i) = CInt(10 【?】 Rnd + 1) Next For i = 1 To 9 *SPACE* For j = 【?】 To 10 *SPACE* If a(i) 【?】 Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i For i = 1 To 10 Print a(i) Next End Sub14、下面程序段將7個(gè)隨機(jī)整數(shù)從小到大排序Private Sub Form_Click()Dim t%, m%, n%, w%,a(7) as integerFor m = 1 To 7 a(m) = Int(10 + Rnd() * 90) Print a(m); ;Next m PrintFor m = 1 To 6 t = m*FOUND* For n =2 To 7*FOUND* If a(t) a(n) Then n = t Next n*FOUND* If t = m Then w = a(m)： a(