VB考試復(fù)習(xí)題

1、精品比較它們的大小并進(jìn)行調(diào)整， 使得 xyz1 、已知 x,y,z 3 個變量中存放了 3 個不同的數(shù)，Private Sub Command1_Click()Dim x!, y!, z!x = InputBox(input x)y = InputBox(input y)z = InputBox(input z)Print T ab(8); ; x; y; zPrint 排序前 :; x; ; y; ; zIf x y Then t= x: x = y: y = t:If x z Then t= x: x = z: z = t:If y c And b + c a And a + c b Th

2、enMsgBox ( 能構(gòu)成三角形 )ElseMsgBox ( 不能構(gòu)成三角形 )End IfEnd Sub4、隨機產(chǎn)生 10 個 30,100 內(nèi)的整數(shù)，求最小值及所對應(yīng)的下標(biāo)。Private Sub Form_click()Dim a(1 To 10) As Integer, zb%, mina%, i%For i = 1 To 10a(i) = Int(Rnd * 71 + 30)Print a(i);Next izb = 1mina = a(1)For i = 2 To 10If mina a(i) Then mina = a(i): zb = iNext iPrintPrint mi

3、n=; mina, 下標(biāo) =; zbEnd Sub5、隨機產(chǎn)生 10 個 30,100 內(nèi)的整數(shù)，求最大值、最小值和平均值。Dim a(1 To 10) As Integer, amin, amax, i%, avera!Private Sub Form_Click()For i = 1 To 10a(i) = Int(Rnd * 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) amin Then amin = a(i)avera =

4、 avera + a(i)Next iFor i = 1 To 10Print a(i);Next iPrintPrint max=; amax, min=; amin, avera=; avera / 10End Sub6、隨機產(chǎn)生 10 個 30,100 內(nèi)的整數(shù)，求最大值及所對應(yīng)的下標(biāo)Private Sub Form_Click()Dim a(9), max%, imax%For i = 0 To 9a(i) = Int(Rnd * 71 + 30)Print a(i);Next iPrintmax = a(0)For i = 1 To 9If max a(i) Then max = a

5、(i): imax = iNext iPrint max=; maxPrint 下標(biāo) =; imaxEnd Sub7 、某次歌曲大獎賽，有 7 個評委。如果分別輸入 7 個評委對某個參賽者的打分?jǐn)?shù)，按照去 掉一個最高分和一個最低分的計算辦法，求出該參賽者的平均得分。Private Sub Command1_Click()Dim mark!, max!, min!, aver!, i%aver = 0For i = 1 To 7mark = InputBox( 輸入第 & i & 位評委的打分 )If i = 1 Thenmax = mark: min = markElseIf mark max

6、 Then max = markEnd Ifaver = aver + markNext iaver = (aver - min - max) / 5Print averEnd Sub8,9、求s=a+aa+aaa+.aaaaa (n個a),其中a和n的值隨機產(chǎn)生，a的范圍是1,9的 整數(shù)， n 的范圍是 5,10 。如 a=3,n=6, 則 s=3+33+333+3333+33333+333333。編程確定 n 和 a 的值，并計算 s。Private Sub Form_click()Dim s!, t!, i!, a%, n%a = Int(Rnd * 9 + 1)n = Int(Rnd

7、* 6 + 5)t = 0: s = 0Print T ab(9); a=; a, n=; nPrintFor i = 1 To nt = t * 10 + as = s + tPrint T ab(9); tNext iPrintPrint T ab(9); s=; Val(s)End Sub10. 產(chǎn)生 1100 以內(nèi)的素數(shù) Private Sub Command1_Click() Dim i%, j%, tag As BooleanFor j = 1 To 100tag = TrueFor i = 2 To j - 1If j Mod i = 0 Then tag = FalseNext

8、 iIf tag Then Print j;Next jEnd Sub11、計算 100300 之間所有能被 3 和 7 整除的數(shù)之和。Private Sub Command1_Click()Dim s%, i%s = 0For i = 100 To 300If i Mod 3 = 0 Or i Mod 7 = 0 Then s = s + iEnd IfNext iPrint s= & sEnd Sub12. 輸入一年份，判斷他是否為閏年，并現(xiàn)實是否是閏年的有關(guān)信息。Private Sub Command1_Click()Dim y%y = Val(Text1)If y Mod 4 = 0

9、And y Mod 100 0Or y Mod 400 = 0 ThenMsgBox (y & 年是閏年 )ElseMsgBox (y & 年是平年 )End IfEnd Sub13 、編程求 200-400 范圍內(nèi) 5的倍數(shù)或 7的倍數(shù)之和。(一個數(shù)如果同時是 7和 5的倍數(shù)， 則只能加一次。 )Private Sub Command1_Click()Dim s1%, s2%, s3%, i%s1 = 0s2 = 0For i = 200 To 400If i Mod 5 = 0 Or i Mod 7 = 0 Thens1 = s1 + iEnd IfNext iFor i = 200 To

10、 400If i Mod 5 = 0 And i Mod 7 = 0 Thens2 = s2 + iEnd IfNext is3 = s1 - s2Print s3End Sub14. 利用 inputbox 函數(shù)輸入兩個整數(shù)，求它們的最大公約數(shù)Private Sub Command1_Click（）n1 = InputBox（ 輸入 n）m1 = InputBox（ 輸入 m）If m1 n1 Thenm = m1: n = n1Elsem = n1: n = m1End Ifr = m Mod nDo While r 0n = rr = m Mod nLoopPrint m n 的最大公約

11、數(shù)是： ; nEnd Sub15 、隨機產(chǎn)生一個三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時顯示。例如，產(chǎn)生 246 ，輸出是 642 。Private Sub Command1_Click()Text1 = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Dim x%, x1%, x2%, x3%x = Val(Text1)x1 = x Mod 10x2 = (x Mod 100) 10x3 = x 100Text2 = x1 * 100 + x2 * 10 + x3End Sub方法二：Dim a%, m%, b%, c%,

12、d%Private Sub Form_Click()a = Int(Rnd * 900 + 100)Print ad = (a Mod 10) * 100b = (a Mod 100) - (a Mod 10)c = a 100m = c + b + dPrint mEnd SubABCDEFG16 、從鍵盤輸入任意長度的字符串，要求將字符順序倒置，例如，將輸入的 變換成“ GFEDCBA ”。Private Sub Form_Click()Dim i, a, b, n As Stringn = InputBox( 輸入字符 )i = Len(n)For a = 1 To i / 2b = M

13、id(n, a, 1)Mid(n, a, 1) = Mid(n, i + 1 - a, 1)Mid(n, i + 1 - a, 1) = bNext aPrint nEnd Sub17、利用隨機函數(shù)生成一個4 X4的矩陣(即二維矩陣),范圍是20,50內(nèi)的整數(shù)，輸出該矩陣所有數(shù)據(jù)之和Private Sub Form_Click()Dim a(3, 3), sum%For i = 0 To 3For j = 0 To 3a(i, j) = Int(Rnd * 31 + 20)Next jNext iFor i = 0 To 3For j = 0 To 3Print a(i, j);Next jP

14、rintNext iFor i = 0 To 3For j = 0 To 3sum = sum + a(i, j)Next jNext iPrint sum=; sumEnd Sub18. 編一子過程 Procmin(a(),amin) ，求一維數(shù)組中 a 的最小值 amin.(隨機產(chǎn)生 10 個 200-400 之間的數(shù)，并顯示數(shù)組各元素；調(diào)用子函數(shù)，顯示最小值)Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = Int(Rnd * 200 + 200)Print a(i);Next iCall s(a(

15、), amin)PrintPrint min=; aminEnd SubSub s(b(), min)Dim i%min = b(LBound(b)For i = LBound(b) + 1 To UBound(b)If b(i) min Then min = b(i)Next iEnd Sub19 ，20.編一個選擇排序法子過程，對已知的若干整數(shù)按遞增次序排列。提示：子過程的形式為 sub sort1(a%() 。Private Sub Command1_Click()Dim b%(10), i%Print 排序前 For i = 1 To 10b(i) = Int(Rnd * 100)Pr

16、int b(i);Next iPrintPrint 排序后 Call sort(b()End SubSub sort(a%()Dim i%, m%, n%, min%, t%n = UBound(a)For i = 0 To n - 1min = iFor j = i + 1 To nIf a( j) a(min) Then min = jNext jm = a(i): a(i) = a(min): a(min) = mNext iFor i = LBound(a) To UBound(a)Print a(i);Next iEnd Sub遞減次序排列Private Sub Command1_C

17、lick()Dim b%(10), i%Print 排序前 For i = 0 To 9b(i) = Int(Rnd * 100)Print b(i);Next iPrintPrint 排序后 Call sort(b()End SubSub sort(a%()Dim i%, m%, n%, min%, j%n = UBound(a)For i = 0 To n - 1For j = 0 To n - 1 - iIf a( j) a(j + 1) Then m = a(j): a(j) = a(j + 1): a(j + 1) = mNext jNext iFor i = LBound(a) T

18、o UBound(a) - 1Print a(i);Next iEnd Sub21,22. 已知有序數(shù)組 a() ，編程插入 x(x 的值為 14 )。數(shù)組 a 中的元素分別 為12，6，4，89，75，63，100 ， 20 ，31 。Ip = Val(InputBox( 請輸入數(shù)字 x)For i = 0 To UBound(A)If Ip maxa Then maxa = a(i)If a(i) mina Then mina = a(i)suma = suma + a(i)Next iFor i = 1 To 10Print a(i);Next iPrintPrint max=; max

19、a, min=; mina, aver=; suma / 10 End Sub26、利用隨機函數(shù)生成一個4 X4的矩陣(即二維矩陣),范圍是20,50內(nèi)的整數(shù)，輸出每行中的最大值和下標(biāo)。Dim a%(3, 3), i%, j%, imax%Private Sub Command1_Click()For i = 0 To 3For j = 0 To 3a(i, j) = Int(Rnd * 31 + 20)Picture1.Print a(i, j); ;Next jPicture1.PrintNext iimax = 0For i = 0 To 3For j = 0 To 3If a(i, i

20、max) a(i, j) Thenimax = jEnd IfNext jPicture2.Print 第; i + 1; 行; 最大值為 ; a(i, imax); 下標(biāo)為; (; i; imax; )Next iEnd Sub1,2027 、聲明一個整型的二維數(shù)組 a(1 to 4,1 to 4) ，用隨機函數(shù)產(chǎn)生各元素，范圍介于 之間，編程將第 1 行和第 3 行對應(yīng)元素交換。Private Sub Form_Click()Dim a%(1 To 4, 1 To 4), i%, j%Print 排序前 For i = 1 To 4For j = 1 To 4a(i, j) = Int(R

21、nd * 20 + 1)Print Tab(j * 4); a(i, j);Next jPrintNext iPrint 排序后 For j = 1 To 4t = a(1, j): a(1, j) = a(3, j): a(3, j) = tNext jFor i = 1 To 4For j = 1 To 4Print Tab(j * 4); a(i, j);Next jPrintNext iEnd Sub28.編寫一個過程計算并輸出區(qū)間 100 ，1000 內(nèi)所有素數(shù)的和(要求判斷素數(shù)使用過程 (函數(shù)或子過程) 來實現(xiàn))。調(diào)用該過程。(提示： 只能被 1 和自身整除的自然數(shù)成為素數(shù)) Fu

22、nction sushu%(ByVal x%)Dim m%, T ag As Boolean, i%m = Val(x)Tag = TrueFor i = 2 To m - 1If (m Mod i) = 0 Then Tag = FalseNext iIf Tag Then sushu = xEnd FunctionPrivate Sub Command1_Click()Dim i%, k%For i = 100 To 1000If sushu(i) Then List1.AddItem iNext iSum = 0For k = 0 To List1.ListCount - 1Sum =

23、Sum + Val(List1.List(k)Next kLabel1 = 100 ，1000 內(nèi)所有素數(shù)和為 : & Sum End Sub29 ，30、隨機生成一個整型的二維數(shù)組，范圍在10,20 之間，以下三角形式輸出該數(shù)組。Private Sub Form_Click()Dim a(4, 4) As IntegerFor i = 0 To 4For j = 0 To 4a(i, j) = Int(Rnd * 11 + 10)Next jNext iFor i = 0 To 4For j = 0 To iPrint a(i, j);Next jPrintNext iEnd Sub以上三角

24、形式輸出該數(shù)組Dim a%(4, 4)Private Sub Command1_Click()Picture1.ClsFor i = 0 To 4For j = i To 4Picture1.Print Tab(j * 6); a(i, j);Next jPicture1.PrintNext iEnd SubPrivate Sub Form_Load()For i = 0 To 4For j = 0 To 4a(i, j) = Int(Rnd * 11 + 10)Next jNext iEnd Sub31、利用隨機函數(shù)生成一個4 X4的矩陣(即二維矩陣),范圍是40,80內(nèi)的整數(shù)，求它的最大值

25、及所對應(yīng)的下標(biāo)。Private Sub Form_Click()Dim a(3, 3), max%, imax%For i = 0 To 3For j = 0 To 3a(i, j) = Int(Rnd * 41 + 40)Next jNext iFor i = 0 To 3For j = 0 To 3Print a(i, j);Next jPrintNext iFor i = 0 To 3For j = 0 To 3If max a(i, j) Then max = a(i, j): imax = i & jNext jNext iPrint max=; max; imax=; imaxEn

26、d Sub32. 已知一維數(shù)組 a 中元素已排序， 分別為12 ，15 ，21 ，25 ，27 ，35 ，36，39 ，48 ，52 ， 編程將 30 插入數(shù)組，使 a 仍保持有序。Private Sub Form_load()Dim a(), i%, k%, x%, n%a = Array(1, 4, 7, 9, 12, 14, 23, 56)n = UBound(a)For i = 0 To nList1.AddItem a(i)Next iEnd SubPrivate Sub command1_Click()x = Val(Text1)For k = 0 To List1.ListCou

27、nt - 1If x a(i, j) Thenimin = jEnd IfNext jPicture2.Print 第; i + 1; 行; 最小值為 ; a(i, imin); 下標(biāo)為 ; (; i; imin; )Next iEnd Sub1、找出被 3、5、 7除，余數(shù) 均為 1的最小的 5個正整數(shù)。 Private Sub Command1_Click()Dim countN%, n%countN = 0n = 1Don = n + 1If n Mod 3 = 1 And n Mod 5 = 1 And n Mod 7 = 1 ThenPrint ncountN = countN +

28、1End IfLoop Until countN = 5End Sub2 、編程顯示 100500 之間所有的水仙花數(shù)之和。 (水仙花數(shù)是 3 位數(shù)，其各位數(shù)之和等于 該數(shù)本身 )Private Sub Form_Click()Print 100500 之間所有的水仙花數(shù)為： Dim x%, a%, b%, c%For x = 100 To 500a = x Mod 10b = (x Mod 100) 10c = x 100If x = a A 3 + b A 3 + c A 3 The n Print xNext xEnd Sub3、輸入一系列字符串，編程求出長度最大的字符串并輸出其所對應(yīng)的

29、次序Private Sub Form_Click()Dim a(5) As String, b(4) As Integer, t%, max%, imax%For i = 1 To 5a(i) = InputBox(a)Next iFor i = 0 To 4b(i) = Len(Trim(a(i)Next imax = 1For i = 0 To 4If max b(i) Then max = b(i): imax = iNext iPrint max=; a(i)Print cixu=; imax + 1End Sub4、輸入一系列字符串，將字符串按遞減次序排列。請編程實現(xiàn)Dim a()

30、As String, n%, i%, j%Private Sub Command1_Click()n = Val(Text1)ReDim a(n) As StringFor i = LBound(a) To UBound(a)a(i) = InputBox( 請輸入字符串 )Picture1.Print a(i); Spc(1);Next iEnd SubPrivate Sub Command2_Click()For i = 0 To nFor j = 0 To n - 1If a( j) maxa Then maxa = a(i)If a(i) mina Then mina = a(i)av

31、era = avera + a(i)Next iFor i = 1 To 10Print a(i);Next iPrintPrint max=; maxa, min=; mina, aver=; avera / 10 End Sub6、定義三個4 X4的二維數(shù)組A,B,C ,A和B中的元素均隨機生成，數(shù)組A的范圍是120 , 數(shù)組B的范圍是100200 ,數(shù)組C是A和B相乘得到的。請編程生成并輸出A,B,C。Private Sub Form_Click()Dim a%(1 To 4, 1 To 4), b%(1 To 4, 1 To 4), c%(1 To 4, 1 To 4)Print 數(shù)組

32、 AFor i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 20 + 1)Print T ab(j * 4); a(i, j);Next jPrintNext iPrint 數(shù)組 BFor i = 1 To 4For j = 1 To 4b(i, j) = Int(Rnd * 100 + 100)Print T ab(j * 6); b(i, j);Next jPrintNext iPrint 數(shù)組 C;For i = 1 To 4For j = 1 To 4c(i, j) = b(i, j) * a(i, j)Print Tab(j * 4); c(i

33、, j);Next jPrintNext iPrint 數(shù)組 C;For i = 1 To 4For j = 1 To 4c(i, j) = b(i, j) * a(i, j)Print T ab(j * 6); c(i, j);Next jPrintNext iEnd Sub7 、隨機產(chǎn)生 15 個小寫字母，放在字符串中。 (提示： c=chr(int(rnd*26+97) )Private Sub Form_Click()Dim a$(1 To 15), i%Print 字符數(shù)組為 a(i):For i = 1 To 15a(i) = Chr(Int(Rnd * 26 + 97)Print

34、 a(i); Spc(1);Next iPrintEnd SubPrivate Sub Form_Load()FontSize = 10End Sub8、利用隨機函數(shù)生成一個4 X4的矩陣(即二維矩陣),范圍是20,50內(nèi)的整數(shù)，求它的兩條對角線上元素之和。Private Sub Command1_Click()Dim a%(3, 3), i%, j%, sum%For i = 0 To 3For j = 0 To 3a(i, j) = Int(Rnd * 31 + 20)Picture1.Print a(i, j); ;Next jPicture1.PrintNext isum = 0For

35、 i = 0 To 3sum = sum + a(i, i) + a(i, 3 - i)Next iText1 = sumEnd Sub9 、有 10 個評委對歌手進(jìn)行打分(分?jǐn)?shù)存放在A 數(shù)組中)要求編程計算歌手平均得分(按去掉一個最高分和一個最低分的計算辦法計算) 。Private Sub Form_Click()Dim a(), max%, min%, imax%, imin%, s!a = Array(98, 97, 95, 91, 90, 99, 93, 94, 93, 96)n = UBound(a)For i = 0 To nPrint a(i);Next iPrintmin =

36、a(0): imin = 0For i = 0 To nIf a(i) max Then max = a(i): imax = iNext iPrint max=; max; imax=; imaxReDim Preserve a(n - 2)s = 0For i = 0 To n - 2s = s + a(i)Print a(i);Next iPrintPrint avr=; s / (n - 1)End Subc=chr(int(rnd*26+65)10 、隨機產(chǎn)生 15 個大寫字母，放在字符數(shù)組中。提示：Private Sub Form_Click()Dim a(1 To 15) As StringFor i = 1 To 15a(i) = Chr(Int(Rnd * 26 + 65)Print T ab(i * 2); a(i);Next iEnd Sub11.編程輸出 n 行楊輝三角形圖， n 由鍵盤輸入。Private Sub Command1_Click()Dim n%, i%, j%n = Val(Text1)Dim a%(1 To 1000, 1 To 1000)For i = 1 To na(i, 1) = 1Next iFor i = 1 To na(i, i) = 1Next iFor j = 2 To i - 1For i =