VB編程程序代碼

1、程序文件都保存，存盤時(shí)不得修改文件夾和文件名。1在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的VB編程程序代碼1求100以內(nèi)的素PriVate SUb Form_Click()Dim i%, j%For i = 2 To 100Forj = 2 To i- 1If i Mod j = 0 Then EXit ForNeXt jIfj = i The n Print iNeXt iEnd SUb2、從鍵盤輸入任意長度的字符串，要求將字符順序倒置例如，將輸入的“

2、ABCDE”換成“GFEDCBAPriVate SUb Comma nd1_Click()Dim a$, I%, C$, d$, n%a = InPUtBOX$(""輸入字符串 H)n = Len(a)頁腳內(nèi)容11在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的程序文件都保存，存盤時(shí)不得修改文件夾和文件名FOr I = 1 TO lnt(n 2)C = Mid(a, I, 1)Mid(a, I, 1) = Mid(a, n - I + 1,

3、 1)Mid(a, n - I + 1, 1) = CNeXt IPrint aEnd SUb3、計(jì)算0200之間所有能被11或5整除的數(shù)之和PriVate SUb Form_CIiCkoDim n %, i%n = 0For i = 1 To 200If i Mod 11 = 0 Or i Mod 5 = 0 The n n = n + iEnd IfNeXt iPrintnEnd SUb頁腳內(nèi)容31在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的程序文件都

4、保存，存盤時(shí)不得修改文件夾和文件名頁腳內(nèi)容74、輸入一年份，判斷它是否為閏年，并顯示有關(guān)信息。(判斷閏年的條件是：年份能被 4整除但不能被100整除，或者能被400整除)PriVate SUb Comma nd1_Click()Dim y%y = InPUtBox("請輸入年數(shù)")If y MOd 4 = 0 And y MOd 100 <> 0 Or y MOd 400 = 0 The nMSgBOX (y &年是閏年")ElseMSgBOX (y &年是平年")End Ifx<y<zoEnd SUb5、已知x,

5、y,z 3個(gè)變量中存放了 3個(gè)不同的數(shù)，比較它們的大小并進(jìn)行調(diào)整，使得PriVate SUb COmma nd1_Click()Dim x!, y!, z!X = In PUtBOx("i nputx")y = In PUtBOx("i npUty")Z = In PUtBOx("i npUtz")Prin t "X y z"程序文件都保存，存盤時(shí)不得修改文件夾和文件名。If X > y The n t = x: X = y: y = tIf X > Z The n t = x: X = z: Z =

6、tIf y > Z The n t = y: y = z: Z = tPrint"排序后"x; " " y; " " ZEnd SUb6 求s=a+aa+aaa+.aaaaa (n個(gè)a)，其中a和n的值隨機(jī)產(chǎn)生，a的范圍是1,9的整數(shù)，n的范圍是5,'如 a=3,n=6,則 s=3+33+333+3333+33333+333333。編程確定 n 和 a 的值，并計(jì)算 SOPriVate SUb Form_Click()Dim s!, t!, i!, a%, n%a = In t(R nd * 9 + 1)n = In t

7、(R nd * 6 + 5)t = 0: S = 0Print "a=" a, "n=" nFor i = 1 To nt = t * 10 + aS = S + tPrint t;NeXt iPrintPrin t "s=" SEnd SUb7、計(jì)算100300之間所有能被3和7整除的數(shù)之和。PriVate SUb Form_Click()FOr i = 100 To 300If i Mod 21 = 0 The nS = S + iPrint i;End IfNeXt iPrintPrin t "s=" SEn

8、d SUb8、 編程求200-400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。(一個(gè)數(shù)如果同時(shí)是7和5的倍數(shù)，則只能加一次PriVate SUb Comma nd1_Click()Dim s1%,s2%,s3%,i%S1=01在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的程序文件都保存，存盤時(shí)不得修改文件夾和文件名S2=0FOr i=200 to 400If i mod 5 =0 or i mod 7=0 the ns1=s1+iEnd ifNeXt iFor i=20

9、0 to 400If i mod 5 =0 or i mod 7=0 the ns2=s2+iEnd ifNeXt iS3=s1-s2Print s3End SUb9、找出被3、5、7除，余數(shù)為1的最小的5個(gè)正整數(shù)PriVate SUb Comma nd1_Click()Dim Cou ntN%, n%COUntN = 0n = 1Don = n + 1If n MOd 3 = 1 And n MOd 5 = 1 And n MOd 7 = 1 The nPrintnCOu ntN = COu ntN + 1End IfLoop Un til Co UntN = 5End SUb10某次歌曲大

10、獎(jiǎng)賽，有7個(gè)評委。如果分別輸入7個(gè)評委對某個(gè)參賽者的打分?jǐn)?shù),按照去掉一個(gè)最高分和一個(gè)最低分的計(jì)算辦法，求出該參賽者的平均得分。PriVate SUb Comma nd1_Click()Dim mark!, max!, mi n!, aver!, i%aver = 0For i = 1 To 7mark = InPUtBox("輸入第H & i & H位評委的打分H)If i = 1 The nmax = mark: min = markElSeIf mark V min Then min = markIf mark > max The n max = markE

11、nd Ifaver = aver + markNeXt iaver = (aver - min - max) / 5Print averEnd SUb11編程顯示10050O之間所有的水仙花數(shù)之和。(水仙花數(shù)是3位數(shù)，其各位數(shù)之和等于該數(shù)本身)PriVate SUb Form_CIiCkODim i%, s%, s1%, s2%, s3%, a!a = 0For i = 0 To 400S = 99 + is1 = (S Mod 100) 10s2 = S Mod 10s3 = S100If si 3 + s2 3 + s3 3 = S The na = S + aEnd IfNeXt iPr

12、int aEnd SUb12、隨機(jī)產(chǎn)生一個(gè)三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時(shí)顯示 例如，產(chǎn)生246,輸出是642。Dim a%, m%, b%, c%, d%PriVate SUb Form_CIiCkOa = In t(R nd * 900 + 100)Print ad = (a Mod 10) * 100b = (a Mod 100) - (a Mod 10)C = a100m = C + b + dPrint mEnd SUb13從鍵盤輸入三角形的三條邊 a，b，C的值，根據(jù)其數(shù)值，判斷能否構(gòu)成三角形PriVate SUb Form_Click()Dim a%, b%, c%

13、a = Val(I nputBox("i nput a")b = Val(I nputBox("i nput b")C = Val(I nputBox("i nput c")If a + b > C And a + C > b And b + C > a The nMSgBOX (能構(gòu)成三角形")ElseMSgBOX (不能構(gòu)成三角形")End IfEnd SUb14已知數(shù)組a()，編程刪除a中第5個(gè)元素。數(shù)組 a 中的元素分別為12, 6, 4，89，75, 63, 100, 20, 31。Pr

14、iVate SUb Form_CIiCkoDim a(), i%, n%a = Array(12, 6, 4, 89, 75, 63, 100, 20, 31)n = UBou nd(a)FOr i = 0 TO nPrint a(i);NeXt iPrintFor i = 5 To na(i - 1) = a(i)NeXt iReDim PreSerVe a(n)For i = 0 To nPrint a(i);NeXt iPrintEnd SUb15隨機(jī)生成一個(gè)整型的二維數(shù)組，范圍在10,20之間，以上三角形式輸出該數(shù)組。(下三角、全部元素Dim a%(4, 4)PriVate SUb C

15、omma nd1_Click()PiCtUre1.ClsFOr i = 0 TO 4FOr j = i To 4PiCtUre1.Pri nt Tab(j * 6); a(i, j);NeXt jPiCtUre1.Pri ntNeXt iEnd SUbPriVate SUb Form_LOadOFor i = 0 To 4Forj = 0 To 4a(i, j) = In t(R nd * 11 + 10)NeXt jNeXt iEnd SUb16利用隨機(jī)函數(shù)生成一個(gè)4×4的矩陣（即二維矩陣）,范圍是20,50內(nèi)的整數(shù),輸出每行中的最大值和下標(biāo)。PriVate SUb Form_CI

16、iCkODim a%（3, 3）, s%, s1%, s2%, s3%, b%, b1%, b2%, b3%MaX = 40FOr i = 0 TO 3FOrj = 0 To 3a(i, j) = In t(R nd * 31 + 20)Print Tab(j * 5); a(i, j);If a(0,j)>=MaX Thens0= a(0,j):b0= jIf a(1,j)>=MaX Thensi= a(1,j):bl= jIf a(2,j)>=MaX Thens2= a(2,j):b2= jIf a(3,j)>=MaX Thens3= a(3,j):b3= jNeX

17、t jNeXt iPrintPrin t "第一行"s0; "(" 0; b0;")"Prin t "第二行"si; "(" 1; bi;")"Prin t "第三行"；s2; "(" 2; b2;")"Prin t "第四行"s3; "(" 3; b3;")"End SUb17、利用隨機(jī)函數(shù)生成一個(gè)4× 4的矩陣(即二維矩陣),范圍是40,80內(nèi)

18、的整數(shù)，求它的最大值及所對應(yīng)的下PriVate SUb Form_CIiCkoDim a%(3, 3)Min = 80FOr i = 0 TO 3FOrj = 0 To 3a(i, j) = In t(R nd * 41 + 40)Print Tab(j * 5); a(i, j);If a(i, j) V= Min The nMin = a(i, j): b = i: C = jEnd IfNeXt jNeXt iPrintPrint "最小值為"MinPrint "其下標(biāo)為""(" b, c;")"End SU

19、b18輸入一系列字符串，編程求出長度最大的字符串并輸出其所對應(yīng)的次序PriVate SUb Form_CIiCkoDim a(5) as Stri ng,b(4) as in teger,t%,max%,imax%FOr i =1 to 5a(i)=i nputbox("a")NeXt iFor i =0 to 4b(i)=le n(trim(a(i)NeXt iMax=1For i =0 to 4If max<b(i) then max=b(i):imax=iNeXt iPrin t "max="a(i)Prin t "cixu=&qu

20、ot;,imax+1End SUb19利用隨機(jī)函數(shù)生成一個(gè)4× 4的矩陣(即二維矩陣),范圍是20,50內(nèi)的整數(shù),輸出該矩陣所有數(shù)據(jù)之和PriVate SUb Form_CIiCkoDim a%(3, 3)For i = 0 To 3Forj = 0 To 3a(i, j) = In t(R nd * 31 + 20)Print Tab(j * 5); a(i, j);NeXt jNeXt iS = a(0, 0) + a(1, 1) + a(2, 2) + a(3, 3) + a(3, 0) + a(2, 1) + a(1,2) + a(0, 3)Print s;End SUb20

21、、輸入一系列字符串，將字符串按遞減次序排列。請編程實(shí)現(xiàn)。Dim a() AS Stri ng, n%, i%, j%PriVate SUb Comma nd1_Click()n = Text1ReDim a(1 TO n) AS Stri ngFOr i = LBO Un d(a) To UBO Un d(a)a(i) = InPUtBox("請輸入字符串")PiCtUre1.Pri nt a(i); SPC(1);NeXt iEnd SUbPriVate SUb Comma nd2_Click()FOr i = 1 TO nFOr j = 1 To n - iIf a(j

22、) V a(j + 1) The n t = a(j): a(j) = a(j + 1): a(j + 1) = tNeXt jNeXt iFor i = 1 To nPiCtUre2.Pri nt a(i); SPC(1);NeXt iEnd SUbPriVate SUb Form_LOadoText1 =""End SUb21、隨機(jī)產(chǎn)生10個(gè)30,100內(nèi)的整數(shù)，求最大值、最小值和平均值。Dim a(1 To 10) AS Integer, amin, amax, i%, avera!PriVate SUb Form_CIiCkoFor i = 1 To 10a(i)

23、= In t(R nd * 71 + 30)NeXt iamin =a(1)amax =a(1)avera :=a(1)FOr i =2 To 10If a(i)> amax Then amax=a(i)If a(i)V amin The n amin =a(i)avera=avera + a(i)NeXt iFor i =1 To 10Print a（i）;NeXt iPrintPrint "max=" amax, "min=" amin, "avera=" avera / 10End SUb22、定義三個(gè)4×4的二

24、維數(shù)組A,B,C A和B中的元素均隨機(jī)生成，數(shù)組 A的范圍是120, 數(shù)組B的范圍是10（200,數(shù)組C是A和B相乘得到的。請編程生成并輸出 A,B,C （相加）頁腳內(nèi)容191在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的程序文件都保存，存盤時(shí)不得修改文件夾和文件名PriVate SUb Comma nd1_Click()PiCture1.ClsDim a%(3, 3), b%(3, 3), c%(3, 3)FOr i = 0 TO 3FOrj = 0 To

25、 3PiCtUre1.Pri nt Tab(j * 6); a(i, j);NeXt jPiCtUre1.Pri ntNeXt iEnd SUbPriVate SUb Comma nd2_Click()PiCtUre2.ClsFor i = 0 To 3Forj = 0 To 3PiCtUre2.Pri nt b(i, j);""NeXt jPiCtUre2.Pri ntNeXt iEnd SUbPriVate SUb Comma nd3_Click()PiCture3.ClsFOr i = 0 TO 3FOrj = 0 To 3PiCtUre3.Pri nt Tab(j

26、* 7); c(i, j);NeXt jPiCtUre3.Pri ntNeXt iEnd SUbPriVate SUb Form_LOado23、隨機(jī)產(chǎn)生15個(gè)小寫字母，放在字符數(shù)組中。提示： c=chr(i nt(rnd*26+97)PriVate SUb Comma nd1_Click()Dim C$(14), i%PiCtUre1.ClsFor i = 0 To 14c(i) = Chr(I nt(R nd * 26 + 97)NeXt i程序文件都保存，存盤時(shí)不得修改文件夾和文件名FOr i = 0 TO 14PiCture1.Pri nt c(i);NeXt iEnd SUb24、隨

27、機(jī)產(chǎn)生10個(gè)30,100內(nèi)的整數(shù)，求最大值及所對應(yīng)的下標(biāo)PriVate SUb Form_CIiCkoDim a(1 To 10) AS In teger, i%, maxa%, m%For i = 1 To 10a(i) = In t(R nd * 70) + 30NeXt imaxa = a(1)For i = 2 To 10If a(i) > a(1) The nmaxa = a(i): m = iEnd IfNeXt iFor i = 1 To 10Print a(i);NeXt iPrint "maxa=" & maxa;"下標(biāo)為"

28、;& mEnd SUb25、定義三個(gè)4× 4的二維數(shù)組A,B,C A和B中的元素均隨機(jī)生成，數(shù)組 A范圍是120，數(shù)組B的范圍是10(200,數(shù)組C是A和B相加得到的。請編程生成并輸出 A,B,CPriVate SUb Comma nd1_Click()Dim a(3, 3), b(3, 3), c(3, 3), t%, m%FOr i = 0 TO 3FOrj = 0 To 3a(i, j) = In t(R nd * 20 + 1)PiCtUre1.Pri nt a(i, j);NeXt jNeXt iPiCtUre1.Pri ntFor i = 0 To 3Forj =

29、 0 To 3b(i, j) = Int(Rnd * 101 + 100)PiCtUre1.Pri nt b(i, j);頁腳內(nèi)容231在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的程序文件都保存，存盤時(shí)不得修改文件夾和文件名NeXt jNeXt iPiCtUre1.Pri ntFOr i = 0 TO 3FOrj = 0 To 3c(i, j) = a(i, j) + b(i, j)NeXt jNeXt iEnd SUb26、利用隨機(jī)函數(shù)生成一個(gè)4

30、5;4的矩陣(即二維矩陣),范圍是20,50內(nèi)的整數(shù)，求它的兩條對角線上元素之PriVate SUb Form_CIiCkoDim a%(3, 3)For i = 0 To 3Forj = 0 To 3a(i, j) = In t(R nd * 31 + 20)Print Tab(j * 5); a(i, j);NeXt jNeXt i程序文件都保存，存盤時(shí)不得修改文件夾和文件名。S = a(1, 1) + a(2, 2) + a(3, 3) + a(0, 0) + a(0, 3) + a(1,2) + a(2, 1) + a(3, 0)PrintPrint "兩對角線上元素之和為:

31、"SEnd SUb27、利用隨機(jī)函數(shù)生成一個(gè)4×4的矩陣(即二維矩陣),范圍是40,80內(nèi)的整數(shù)，求它的最小值及所對應(yīng)的下PriVate SUb Form_Click()Dim a%(3, 3)Min = 80For i :=0 To 3FOrj = 0 To 3 a(i, j) = In t(R nd * 41 + 40) Print Tab(j * 5); a(i, j);If a(i, j) V= Min The nMin = a(i, j): b = i: C = j End IfNeXt jNeXt iPrintPrint "最小值為"MinP

32、rint "其下標(biāo)為""("b, c;")"End SUb28、隨機(jī)生成一個(gè)整型的二維數(shù)組，范圍在10,20之間，以上三角形式輸出該數(shù)組。(下三角、全部元素Dim a%(4, 4)PriVate SUb Comma nd1_Click()PiCtUre1.ClsFOr i = 0 TO 4FOr j = i To 4PiCtUre1.Pri nt Tab(j * 6); a(i, j);NeXt jPiCtUre1.Pri ntNeXt iEnd SUbPriVate SUb Form_LOadoFor i = 0 To 4Forj

33、= 0 To 4a(i, j) = In t(R nd * 11 + 10)頁腳內(nèi)容251在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的程序文件都保存，存盤時(shí)不得修改文件夾和文件名NeXt jNeXt iEnd SUb29、有10個(gè)評委對歌手進(jìn)行打分(分?jǐn)?shù)存在 A數(shù)組中)要求編程計(jì)算出歌手平均得分(按去掉一個(gè)最高分和一個(gè)最低分的計(jì)算方法計(jì)算。)a = Array(98, 97, 95, 91,90, 99, 93, 94, 93, 96)PriVate SU

34、b Form_Click()Dim a(), max%, mi n%, imax%, imi n%, s!a = Array(98, 97, 95, 91,90, 99, 93, 94, 93, 96)n = UBOU nd(a)For i = 0 To nPrint a(i);NeXt iPrintmin = a(0): imin = 0For i = 0 To nIf a(i) V min The n min = a(i): imin = iNeXt iPrint "min=" "imin=" iminFOr i = imin + 1 TO na(i

35、 - 1) = a(i)NeXt iReDim PreSerVe a(n - 1)For i = 0 To n - 1If a(i) > max The n max = a(i): imax = iNeXt iPrin t "max=" "imax=" imaxReDim PreSerVe a(n - 2)S = 0For i = 0 To n - 2S = S + a(i)Print a(i);NeXt iPrintPrin t "avr=" S / (n - 1)End SUb30、編程輸出n行楊輝三角圖形，n由鍵盤輸入。頁

36、腳內(nèi)容27程序文件都保存，存盤時(shí)不得修改文件夾和文件名。1在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的PriVate SUb Comma nd1_Click()n = Text1.TextReDim a(1 TO n, 1 TO n)For i =1 To nFor j=1 To na(i, 1) = 1If i = j The n a(i, j) = 1NeXt jNeXt iFor i = 2 To nForj = 2 To na(i, j) = a(

37、i - 1, j - 1) + a(i - 1, j)NeXt jNeXt iFor i = 1 To nForj = 1 ToiPiCtUre1.Pri nt a(i, j);""NeXt j頁腳內(nèi)容291在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的PiCture1.Pri ntNeXt iEnd SUb1,20之間,31、聲明一個(gè)整型的二維數(shù)組 a(1 to 4,1 to 4,用隨機(jī)函數(shù)產(chǎn)生各元素，范圍介于 編程將第1行和第3行對應(yīng)

38、元素交換。Dim a%(1 TO 4, 1 TO 4), t%PriVate SUb Comma nd1_Click()PiCtUre1.ClsFor i = 1 To 4Forj = 1 To 4PiCtUre1.Pri nt Tab(j * 4); a(i, j);NeXt jPiCtUre1.Pri ntNeXt iEnd SUbPriVate SUb Comma nd2_Click()For i = 1 To 4Forj = 1 To 4程序文件都保存，存盤時(shí)不得修改文件夾和文件名。t = a(1, j): a(1, j) = a(3, j): a(3, j) = tPiCtUre2.

39、Pri nt Tab(j * 4); a(i, j);NeXt jPiCtUre2.Pri ntNeXt iEnd SUbPriVate SUb Form_LOadoFOr i = 1 TO 4FOrj = 1 To 4a(i, j) = In t(R nd * 20 + 1)NeXt jNeXt iEnd SUb32、隨機(jī)產(chǎn)生15個(gè)小寫字母，放在字符數(shù)組中。提示：c=chr(int(rnd*26+97)PriVate SUb Comma nd1_Click()Dim C$(14), i%PiCtUre1.ClsFor i = 0 To 14程序文件都保存，存盤時(shí)不得修改文件夾和文件名。c(i

40、) = Chr(I nt(R nd * 26 + 97)NeXt iFOr i = 0 TO 14PiCtUre1.Pri nt c(i);NeXt iEnd SUb33、編寫一個(gè)過程計(jì)算并輸出區(qū)間100, 1000內(nèi)所有素?cái)?shù)的和(要求判斷素?cái)?shù)使用過程(函數(shù)或子過程)來程。(提示：只能被1和自身整除的自然數(shù)稱為素?cái)?shù)。)FUn ction sushu%(ByVal x%)Dim m%, Tag AS Boolea n, i%m = VaI(X)Tag = TrUeFor i = 2 To m - 1If (m Mod i) = 0 The n Tag = FalseNeXt iIf Tag Th

41、en SUShU = XEnd FUnCtiOnPriVate SUb Comma nd1_Click()Dim i%, k%頁腳內(nèi)容311在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的程序文件都保存，存盤時(shí)不得修改文件夾和文件名FOr i = 100 TO 1000If sushu(i) Then Listl .AddItem iNeXt iSum = 0For k = 0 To List1.ListCou nt - 1SUm = SUm + VaI(Li

42、StI 丄 ist(k)NeXt kLabel1 = " 10Q 1000內(nèi)所有素?cái)?shù)和為:"& SUmEnd SUb34、隨機(jī)產(chǎn)生10個(gè)1100的正整數(shù)放入數(shù)組，顯示產(chǎn)生的數(shù)，求最大值、最小值、平均值。PriVate SUb Form_CIiCkoDim a(1 To 10) AS In teger, i%, maxa%, min a%, suma%For i = 1 To 10a(i) = Int(Rnd * 71 + 30)NeXt imi na = a(1)maxa = a(1)SUma = a(1)FOr i = 2 TO 10If a(i) > ma

43、xa The n maxa = a(i)If a(i) V mina The n mina = a(i)Suma = Suma + a(i)NeXt iFor i = 1 To 10Print a(i);NeXt iPrintPrint "max=" maxa, "min=" mina; "aver=" SUma / 10End SUb35、已知一維數(shù)組a()中的元素已排序，分別為12，15, 21, 25, 27，35，36，39, 48，52，編程將30插入數(shù)組a,并使a依然有序。PriVate SUb Comma nd1_Cli

44、ck()Dim a(), i%, k%, x%, n%a = Array(12, 15, 21,25, 27, 35, 36, 39, 48, 52)n = UBou nd(a)X = VaI(TeXt1)頁腳內(nèi)容33程序文件都保存，存盤時(shí)不得修改文件夾和文件名。1在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的FOr k = 0 TO nIf X V a(k) Then EXit ForNeXt kReDim PreSerVe a(n + 1)For i =

45、 n To k SteP -1a(i + 1) = a(i)NeXt ia(k) = XFor i = 0 To n + 1Print a(i);NeXt iEnd SUb37、聲明一個(gè)整型的二維數(shù)組 a(1 to 4,1 to 4,用隨機(jī)函數(shù)產(chǎn)生各元素，范圍介于1,20之間, 編程將第2行和第4行對應(yīng)元素交換。PriVate SUb Form_CIiCkoDim a(0 To 3, 0 To 3), i%, j%, tFor i = 0 To 3Forj = 0 To 3頁腳內(nèi)容351在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正

46、確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的程序文件都保存，存盤時(shí)不得修改文件夾和文件名a(i, j) = In t(R nd * 21 + 1)Print Tab(j * 5); a(i, j)NeXt jNeXt iPrintPrintFOrj = 0 TO 3t = a(1, j): a(1, j) = a(3, j): a(3, j) = tNeXt jFor i = 0 To 3Forj = 0 To 3Print Tab(j * 5); a(i, j)NeXt jNeXt iEnd SUb38、隨機(jī)產(chǎn)生10個(gè)30,100內(nèi)的整數(shù)，求最小值及所對應(yīng)的下

47、標(biāo)。PriVate SUb Form_CIiCkoDim a(1 To 10) AS In teger, i%, mina%, m%FOr i = 1 TO 10a(i) = In t(R nd * 70) + 30NeXt imi na = a(1)For i = 2 To 10If a(i) V a(1) Thenmina = a(i): m = iEISeIf a(i) = a(1) The nmina = a(i): m = iEnd IfNeXt iFor i = 1 To 10Print a(i);NeXt iPrint "mina=" & mina;&

48、quot;下標(biāo)為"& mEnd SUb39、編一個(gè)判斷宿舍的通用過程(函數(shù)或子過程)。調(diào)用該過程, 計(jì)算并輸出區(qū)間(1000, ,1100內(nèi)所有素?cái)?shù)的和。頁腳內(nèi)容37程序文件都保存，存盤時(shí)不得修改文件夾和文件名。1在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的Fun Cti On ss( n) AS In tegerDim i%, tag AS Boolea ntag = TrUeFor i = 3 To n / 2If (n Mod i)

49、 = 0 The n tag = FalseNeXt iIf tag The n SS = nEnd FUnCtiOnPriVate SUb PiCtUreI_CIiCkoDim i%, averaavera = 0For i = 1000 To 1100If ss(i) <> 0 Then Print ss(i)avera = avera + ss(i)NeXt iPiCtUre1.Pri nt averaEnd SUb頁腳內(nèi)容391在考生文件夾下有工程文件 wy7.vbp及窗體文件wy7.frm,該程序是不完整的，請?jiān)谟?？號的地方填入正確的程序代碼，然后刪除？及所有注釋符號（即號），但不能修改其它部分。修改后的40、編一子過程PrOCMin求一維數(shù)組a中的最小值，子過程的形參自己確定PriVate SUb Form_CIiCkODim a(1 To 10), ami n, i%For i = 1 To 10a(i) = In t(R nd * 101)Print a(i);NeXt iCaIl PrOCMi n(a(), ami n)PrintPrin t "a