VB程序設(shè)計(jì)編程考試題及答案

1、1.1.2.2.3.3.4.4.VB程序設(shè)計(jì)編程考試題及答案輸入3 3個(gè)數(shù)，輸出最大的數(shù)Private Sub command1_click() DimmaxFor i = 1 To 3n = Val(InputBox(輸入第 & i & 個(gè)數(shù)) Ifn max Thenmax = nEnd IfNextPrint 三個(gè)數(shù)中最大的數(shù)是 ; maxEnd Sub有一元二次方程：aXaX2 2+bX+c=0+bX+c=0，依次輸入a a,b b,c c,判斷此方程是否有實(shí)根Private Sub Command1_Click()Dim a, b, c, na = Text1b =

2、Text2c = Text3If n = 0 ThenLabel4 = 方程有根ElseLabel4 = 方程無根End IfEnd Sub輸入一個(gè)百分制的成績，若大于等于6060，則用消息框彈出，顯示“恭喜！成績通過！”，若小于彈出消息框，顯示“抱歉！成績沒有通過！Private Sub Form_Load()Text1 = End SubPrivate Sub Command1_Click()Dim nn = Text1If n =60 ThenVal (MsgBox(恭喜！成績通過！ElseVal (MsgBox(抱歉！成績沒有通過！EndIf)End Sub輸入一年份，判斷它是否為閏年

3、，并顯示有關(guān)信息。 整除，或者能被400400整除）Private Sub Command1_Click()Dim y%6060，則判斷閏年的條件是：年份能被4 4整除但不能被1001008.8.y = InputBox(請輸入年份)If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then Val (MsgBox(閏年！)ElseVal (MsgBox(平年！)End IfEnd Sub輸入學(xué)生的百分制成績，轉(zhuǎn)換輸岀為五級制成績，9090100100分轉(zhuǎn)換為優(yōu)秀，80808989轉(zhuǎn)換為良好，70707979轉(zhuǎn)換為中等，60606969轉(zhuǎn)換為及格，

4、0 06060轉(zhuǎn)換為不及格。Private Sub Command1_Click() a = Val(InputBox(請輸入成績) If a 100 Then Print 超出范圍5.5.6.6.7.7.If a = 90 And a = 80 And a = 70 And a = 60 And a 70 Then Print If a n1 Thenm = m1: n = n1Elsem = n1: n = m1End Ifr = m Mod nDo While r 0r = m Mod nLoopPrint m n的最大公約數(shù)是：; nH.246246，輸出是642642。End Sub

5、編程求200-400200-400范圍內(nèi)5 5的倍數(shù)或7 7的倍數(shù)之和。( (一個(gè)數(shù)如果同時(shí)是7 7和5 5的倍數(shù)，則只能加一次。PrivateSub Command1_Click()11.11.Dim max, a(1 To 7), min, sFor i = 200 To 400If i Mod 5 = 0 Or i Mod 7 = 0 ThenSum = Sum + iEnd IfNext iFor i = 200 To 400If i Mod 5 = 0 And i Mod 7 = 0 ThenSum = Sum - iEnd IfNext iPrint“倍數(shù)之和=”; SumEnd

6、Sub計(jì)算100300100300之間所有能被3 3和7 7整除的數(shù)之和Private Sub Command1_Click()Dim iSum = 0For i = 100 To 300If i Mod 3 = 0 And i Mod 7 = 0 ThenSum = Sum + iEnd IfNext iPrint SumEnd Sub分別統(tǒng)計(jì)1-1001-100中，滿足3 3的倍數(shù)、7 7的倍數(shù)的數(shù)各有多少。Private Sub Command1_Click()Dim i, s3, s7 s3 = 0 s7 = 0For i = 1 To 100If i Mod 3 = 0 Then s

7、3 = s3 + 1End IfNext iFor i = 1 To 100If i Mod 7 = 0 Then s7 = s7End IfNext iEnd Sub某次歌曲大獎賽，有7 7個(gè)評委。如果分別輸入7 7個(gè)評委對某個(gè)參賽者的打分?jǐn)?shù)，按照去掉一個(gè)最高分和 一個(gè)最低分的計(jì)算辦法，求出該參賽者的平均得分。Private Sub Command1_Click()For i = 1 To 79.9.10.10.Print 3的倍數(shù); s3Print 7的倍數(shù); s714. .For i = 1 To 612.12.13.13.a(i) = Val(InputBox(輸入第 & i

8、& 個(gè)數(shù)) Nextimax = a(1) min =a(1) s = a(1)For i = 2 To 7If a(i) max Then max = a(i) Ifa(i) min Then min = a(i) s = s+ a(i)Next is = s - min - maxs = s / 5 Print 平均分; s End Sub輸入一串字符，統(tǒng)計(jì)其中字母A(A(不區(qū)分大小寫) )出現(xiàn)的次數(shù)。Private Sub Command1_Click()Dim c As String, a As Integerb = InputBox(請輸入字符)For i = 1 To Le

9、n(b)c = UCase(Mid(b, i, 1)If c = A ThenEnd IfNext iPrint a出現(xiàn)的次數(shù)：; aEnd Sub我國目前有1313億人口，按人口年增長率0.8%0.8%計(jì)算，多少年后我國人口將超過PrivateSub Command1_Click()Dim a, i2626億。a = 13Do While a =2n=2)End Sub將輸入的字符串以反序顯示。例如:輸入“ASDFGTASDFGT，顯示“TGFDSATGFDSA”19. .a = InputBox(輸入字符串)n = Len(a)For b = 1 To I nt(n 2) c = Mid(

10、a, b, 1)Mid(a, b, 1) = Mid(a, n - b + 1, 1)Mid(a, n - b + 1, 1) = c21.21.For I = 1 To 10Next bP ri nt aEnd Sub隨機(jī)產(chǎn)生1010個(gè)30,10030,100內(nèi)的整數(shù)，求最大值及所對應(yīng)的下標(biāo)Private Sub Comma nd1_Click()Dim a(1 To 10), mRan domizeFor I = 1 To 10 a(l) = In t(R nd * 71) + 30Pri nt a(I)Next IMax = a(1)For I = 2 To 10If a(I) Max

11、Then Max = a(I): m = INext IPri nt max=; MaxPrint max的下標(biāo)為;mEnd Sub隨機(jī)產(chǎn)生1010個(gè)30,10030,100內(nèi)的整數(shù)，求最大值、最小值和平均值。Private Sub Comma nd1_Click()Dim a(1 To 10)Fori = 1 To 10 a(i) = In t(R nd * 71) + 30 Pri nt a(i)Next iMax = a(1)Min = a(1)Avg = a(1)For i = 2 To 10If a(i) Max The n Max = a(i) If a(i) Min The n

12、Min = a(i)Avg = Avg + a(i)Next iAvg = Avg / 10Pri nt max=; MaxP ri nt mi n=; MinPri nt avg=; AvgEnd Sub隨機(jī)產(chǎn)生1010個(gè)30,10030,100內(nèi)的整數(shù)，求最小值及所對應(yīng)的下標(biāo)。Private Sub Comma nd1_Click()Dim a(1 To 10), mRan domize a(l) = In t(R nd * 71) + 30 Pri nt a(I)Next I19.19.20.20.24.24.Min = a(1)For I = 2 To 10If a(I) Max Th

13、e n Max = a(i)If a(i) Min The n Min = a(i)Avg = Avg + a(i)Next iAvg = Avg / 10Pri nt max=; Max P ri nt mi n=; MinPri nt avg=; AvgEnd Sub利用隨機(jī)函數(shù)生成一個(gè)4 4X4 4的矩陣( (即二維矩陣),),范圍是20,5020,50內(nèi)的整數(shù)，輸岀該矩陣所有數(shù)據(jù)之和Private Sub Comma nd1_Click()Dim a%(4, 5), sumFori = 1 To 422.22.23.23.Forj = 1 To 4a(i, j) = In t(R nd

14、 * 31) + 20 Pri nt a(i, j);sum = sum + a(i, j)Next jPri nt 換行Next iP ri nt sum=; sumEnd Sub 25.25.已知有序數(shù)組a()a()，編程插入x x(x x的值為1414)。數(shù)組a a中的元素分別為1212,6 6,4 4,8989,7575,6363,100100,2020,3131。IP rivate Sub Comma nd1_Click()Dim a(), i%, k%, x%, n%a = Array(4, 6, 12, 20, 31, 63, 75, 89, 100)n = UBou nd(a)

15、x = Val(InputBox(請輸入所要插入數(shù))For k = 0 To nIf x a(k) The n Exit ForNext kReDim Pr eserve a(n + 1)For i = n To k Ste p -1a(i + 1) = a(i)Next ia(k) = xFor i = 0 To n + 1Pri nt a(i);Next iEnd Sub26.26.編寫一函數(shù)，計(jì)算DoubleDouble類型一維數(shù)組所有元素的平均值。27.27.編一子過程ProcMin,ProcMin,求一維數(shù)組a a中的最小值，子過程的形參自己確定P rivate Sub comma

16、nd1_Click()Dim a(1 To 10), mi n, i%Fori = 1 To 10a(i) = In t(R nd * 101)Pri nt a(i);Next iCall P rocMi n(a(), min)Pri ntP ri nt min =; minEnd SubSub P rocMi n(b(), min)Dim i%min = b(LBou nd(b)For i = LBou nd(b) + 1 To UBou nd(b)If b(i) min The n min = b(i)Next i30.30.End Sub編一子過程ProcMin,ProcMin,求一維數(shù)組a a中的最小值，子過程的形參自己確定。Private Sub Form_Click()Dim a(1 To 10), ami n, i%Fori = 1 To 10 a(i) = In t(R nd * 101)Pri nt a(i);Next iCall P rocMi n(a(), ami n