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

1、-. z.VB程序設(shè)計(jì)編程考試題及答案輸入3個(gè)數(shù)，輸出最大的數(shù)Private Sub mand1_click()Dim ma*For i = 1 To 3n = Val(InputBo*(輸入第 & i & 個(gè)數(shù))If n ma* Thenma* = nEnd IfNe*tPrint 三個(gè)數(shù)中最大的數(shù)是 ; ma*End Sub有一元二次方程：a*2+b*+c=0，依次輸入a，b，c，判斷此方程是否有實(shí)根Private Sub mand1_Click()Dim a, b, c, na = Te*t1b = Te*t2c = Te*t3n = b * b - 4 * a * cIf n = 0

2、ThenLabel4 = 方程有根 Else Label4 = 方程無(wú)根End IfEnd Sub 輸入一個(gè)百分制的成績(jī)，假設(shè)大于等于60，則用消息框彈出，顯示“恭喜！成績(jī)通過(guò)！，假設(shè)小于60，則彈出消息框，顯示“抱歉！成績(jī)沒(méi)有通過(guò)！Private Sub Form_Load()Te*t1 = End SubPrivate Sub mand1_Click()Dim nn = Te*t1If n =60 ThenVal (MsgBo*(恭喜！成績(jī)通過(guò)！)ElseVal (MsgBo*(抱歉！成績(jī)沒(méi)有通過(guò)！)End IfEnd Sub輸入一年份，判斷它是否為閏年，并顯示有關(guān)信息。判斷閏年的條件是：

3、年份能被4整除但不能被100整除，或者能被400整除Private Sub mand1_Click()Dim y%y = InputBo*(請(qǐng)輸入年份)If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 ThenVal (MsgBo*(閏年！)ElseVal (MsgBo*(平年！)End IfEnd Sub輸入學(xué)生的百分制成績(jī)，轉(zhuǎn)換輸出為五級(jí)制成績(jī)，90100分轉(zhuǎn)換為優(yōu)秀，8089轉(zhuǎn)換為良好，7079轉(zhuǎn)換為中等，6069轉(zhuǎn)換為及格，060轉(zhuǎn)換為不及格。Private Sub mand1_Click()a = Val(InputBo*(請(qǐng)輸入成績(jī))I

4、f a 100 Then Print 超出*圍If a = 90 And a = 80 And a = 70 And a = 60 And a 70 Then Print 及格If a n1 Then m = m1: n = n1 Else m = n1: n = m1 End If r = m Mod n Do While r 0 m = n n = r r = m Mod n LoopPrint m n 的最大公約數(shù)是：; nEnd Sub編程求200-400*圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。(一個(gè)數(shù)如果同時(shí)是7和5的倍數(shù)，則只能加一次。Private Sub mand1_Click()For

5、 i = 200 To 400If i Mod 5 = 0 Or i Mod 7 = 0 ThenSum = Sum + iEnd IfNe*t iFor i = 200 To 400If i Mod 5 = 0 And i Mod 7 = 0 ThenSum = Sum - iEnd IfNe*t iPrint“倍數(shù)之和=; SumEnd Sub計(jì)算100300之間所有能被3和7整除的數(shù)之和Private Sub mand1_Click()Dim iSum = 0For i = 100 To 300If i Mod 3 = 0 And i Mod 7 = 0 ThenSum = Sum +

6、iEnd IfNe*t iPrint SumEnd Sub分別統(tǒng)計(jì)1-100中，滿足3的倍數(shù)、7的倍數(shù)的數(shù)各有多少。Private Sub mand1_Click()Dim i, s3, s7s3 = 0s7 = 0For i = 1 To 100If i Mod 3 = 0 Thens3 = s3 + 1End IfNe*t iFor i = 1 To 100If i Mod 7 = 0 Thens7 = s7 + 1End IfNe*t iPrint 3的倍數(shù); s3Print 7的倍數(shù); s7End Sub*次歌曲大獎(jiǎng)賽，有7個(gè)評(píng)委。如果分別輸入7個(gè)評(píng)委對(duì)*個(gè)參賽者的打分?jǐn)?shù)，按照去掉一個(gè)

7、最高分和一個(gè)最低分的計(jì)算方法，求出該參賽者的平均得分。Private Sub mand1_Click()Dim ma*, a(1 To 7), min, sFor i = 1 To 7a(i) = Val(InputBo*(輸入第 & i & 個(gè)數(shù))Ne*t ima* = a(1)min = a(1)s = a(1)For i = 2 To 7If a(i) ma* Then ma* = a(i)If a(i) min Then min = a(i)s = s + a(i)Ne*t is = s - min - ma*s = s / 5Print 平均分; sEnd Sub輸入一串字符，統(tǒng)計(jì)其

8、中字母A(不區(qū)分大小寫(xiě))出現(xiàn)的次數(shù)。Private Sub mand1_Click()Dim c As String, a As Integerb = InputBo*(請(qǐng)輸入字符)For i = 1 To Len(b) c = UCase(Mid(b, i, 1) If c = A Then a = a + 1 End If Ne*t i Print a出現(xiàn)的次數(shù)：; aEnd Sub我國(guó)目前有13億人口，按人口年增長(zhǎng)率0.8%計(jì)算，多少年后我國(guó)人口將超過(guò)26億。Private Sub mand1_Click()Dim a, ia = 13i = 0Do While a =2 Private

9、 Sub mand1_Click()Dim F(11), i As LongF(0) = 1F(1) = 1For i = 2 To 10F(i) = F(i - 1) + F(i - 2)Ne*t iFor i = 0 To 11Print F(i);Ne*t iEnd Sub將輸入的字符串以反序顯示。例如：輸入“ASDFGT，顯示“TGFDSAPrivate Sub mand1_Click()Dim a, b, c, d, na = InputBo*(輸入字符串)n = Len(a)For b = 1 To Int(n 2)c = Mid(a, b, 1)Mid(a, b, 1) = Mi

10、d(a, n - b + 1, 1)Mid(a, n - b + 1, 1) = cNe*t bPrint aEnd Sub隨機(jī)產(chǎn)生10個(gè)30,100內(nèi)的整數(shù)，求最大值及所對(duì)應(yīng)的下標(biāo)Private Sub mand1_Click()Dim a(1 To 10), mRandomizeFor I = 1 To 10a(I) = Int(Rnd * 71) + 30Print a(I)Ne*t IMa* = a(1)For I = 2 To 10If a(I) Ma* Then Ma* = a(I): m = INe*t IPrint ma*=; Ma*Print ma*的下標(biāo)為; mEnd Su

11、b隨機(jī)產(chǎn)生10個(gè)30,100內(nèi)的整數(shù)，求最大值、最小值和平均值。Private Sub mand1_Click()Dim a(1 To 10)For i = 1 To 10a(i) = Int(Rnd * 71) + 30Print a(i)Ne*t iMa* = a(1)Min = a(1)Avg = a(1)For i = 2 To 10If a(i) Ma* Then Ma* = a(i)If a(i) Min Then Min = a(i) Avg = Avg + a(i)Ne*t iAvg = Avg / 10Print ma*=; Ma*Print min=; MinPrint a

12、vg=; AvgEnd Sub隨機(jī)產(chǎn)生10個(gè)30,100內(nèi)的整數(shù)，求最小值及所對(duì)應(yīng)的下標(biāo)。Private Sub mand1_Click()Dim a(1 To 10), mRandomizeFor I = 1 To 10a(I) = Int(Rnd * 71) + 30Print a(I)Ne*t IMin = a(1)For I = 2 To 10If a(I) Ma* Then Ma* = a(i)If a(i) Min Then Min = a(i) Avg = Avg + a(i)Ne*t iAvg = Avg / 10Print ma*=; Ma*Print min=; MinPr

13、int avg=; AvgEnd Sub利用隨機(jī)函數(shù)生成一個(gè)44的矩陣(即二維矩陣),*圍是20,50內(nèi)的整數(shù),輸出該矩陣所有數(shù)據(jù)之和Private Sub mand1_Click()Dim a%(4, 5), sumFor i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 31) + 20Print a(i, j);sum = sum + a(i, j)Ne*t jPrint 換行Ne*t iPrint sum=; sumEnd Sub有序數(shù)組a()，編程插入*的值為14。數(shù)組a中的元素分別為12，6，4，89，75，63，100，20，31。Priva

14、te Sub mand1_Click()Dim a(), i%, k%, *%, n%a = Array(4, 6, 12, 20, 31, 63, 75, 89, 100)n = UBound(a)* = Val(InputBo*(請(qǐng)輸入所要插入數(shù))For k = 0 To nIf * a(k) Then E*it ForNe*t kReDim Preserve a(n + 1)For i = n To k Step -1a(i + 1) = a(i)Ne*t ia(k) = *For i = 0 To n + 1Print a(i);Ne*t iEnd Sub編寫(xiě)一函數(shù)，計(jì)算Double類

15、型一維數(shù)組所有元素的平均值。編一子過(guò)程ProcMin,求一維數(shù)組a中的最小值，子過(guò)程的形參自己確定Private Sub mand1_Click()Dim a(1 To 10), min, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Ne*t iCall ProcMin(a(), min)PrintPrint min =; minEnd SubSub ProcMin(b(), min)Dim i%min = b(LBound(b)For i = LBound(b) + 1 To UBound(b)If b(i) min Then min = b(i)Ne*t iEnd Sub編一子過(guò)程ProcMin,求一維數(shù)組a中的最小值，子過(guò)程的形參自己確定。Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Ne*t iCall