操作题机数组中偶数且大于平均值第二及其位置元素小于的奇

1、数组中偶数且大于平均值，第二偶数及其位置，数组元素小于平均值的奇数的个数，增加列，二十个数奇数一行偶数一行，数组平均值及小于平均值的最大最小数，五行四列最大值与最后一位交换数组中偶数且大于平均值将 20 个【10,99】之间的随机数放入一维数组中，然后找出偶数且大于平均值的个数并输出Private Sub Form_Click()Dim Dim Fora(20) Asaver As i = 1 Toeger eger20a(i) Pr If i=(Rnd* 90) + 10a(i); Mod 5 = 0Then Prs = s + a(i)Next Pr aver Pr Pr Pr= s /

2、20平均数是 &aver;大于平均数的偶数是Fori = 1 To 20If a(i)n = PrEnd IfMod 2 = 0 And a(i) aver Then n + 1a(i);NextPrPr大于平均数的数的个数为 & n End Sub第二偶数及其位置任意输出10 个范围在(10 到99)的数,打印第二偶数和其所在位置.若没有则显示 not foundPrivate Sub Form_Click() Dim a%(10), i%, j%, n%For i= 1 To 10a(i) =(Rnd * 90 + 10)Pra(i);Next Pr For iIf= 1 To 10a(i

3、) Mod 2 = 0 Thenn = n + 1If n = 2 ThenPra(i); i Exit ForEnd IfEnd Next If n MsgBox End IfIf2 Thennot foundEnd Sub数组元素小于平均值的奇数的个数数组 a(1 to 6,1 to 6),元素值从【0.50】机抽，输出元素小于平均值的奇数的个数Private Sub Form_Click()Dim s = For Fora(1 To 6, 1 To 6), s%, aver%,t%0: aver = 0: n = 0: t= 0i =j =11=To To66(Rnd * 51)a(i,

4、 j)Pr s =Next Pr Next aver Pr For Fora(i, j);s + a(i, j) ji= s / 36平均数是： & averi =j =1 To 61 To 6j) Mod 2 0 And 1If a(i, t = t + End Ifa(i,j) aver ThenNext Next Prj i小于平均值的奇数的个数是： & tEnd Sub增加列用随机数产生 5 行 6 列的方阵，并显示；将方阵增加一列，求出每一行的元素值的和，并把和放入增加列，显示结果Private sub form_click() dim a() m=inputbox(“”) n=in

5、putbox(“”)redim a(1 to m,1 to n)for i=1 for j=1 a(i,j)=to mto n (rnd*3)pr next pr next pra(i,j);jiredim preservea(1to m,1to n+1)for i=1 to s=0for j=1 to s=s+a(i,j) a(i,n+1)=s next j next imnfor for pr next pr nexti=1 to j=1 tom n+1a(i,j);jiend sub二十个数奇数一行偶数一行20 个 1099 随机数排序，奇数一行，偶数一行Private Sub Form

6、_Click()Dim sum ForA(20) As= 0i = 1 Toeger, i%, j%, n%20(Rnd * 90 + 10)A(i)Pr If iNext i Pr=A(i);Mod 5 = 0 Then PrFori = 1 For j IfTo 19= i + 1 To 20A(i) A(j) Thent = A(i): A(i) = A(j): A(j) = tEnd If Next jNext iFori = 1 To 20If A(i) Mod 2 0 Then PrA(i);End If Next i PrFor i = 1 To 20If A(i) Mod 2

7、= 0 Then PrA(i);End If Next i End Sub数组平均值及小于平均值的最大最小数一个数组的平均值，小于平均值的最大数和最小数Private Sub Form_Click()Dim For a(i) Pra(20)i = 1=Aseger, s%, aver%, max%,To 20(Rnd * 90) + 10min%a(i);Mod 5 = 0 Then PrIf is = Next aver Pr max min Fors + a(i) i= s / 20平均数是 & aver=i0100= 1 To 20If Pr If Ifa(i) max And a(i) a(i) min And a(i) aver averThen max Then min= a(i)= a(i)End IfNext Pr Pr Pr Endimax; maxmin; minSub五行四列最大值与最后一位交换20 个随机数打印 5x4，求出最大数与最后一个数交换位置 Private Sub Form_click()Dim For Fora(5, 4)i = 1 To 5j = 1 To 4a(i, Pr Next Pr Next Pr For For Maxj) =(Rnd * 9 + 1) a(i, j);jii j