VB程序设计编程考试题及答案

1、“91来鼻KSEVB程序设计编程考试题及答案1<输入3个数，输出最大的数Private Sub command l_click()Dim maxFor I = 1 To 3n = Val(I叩uiBoxr输入第”& i & ”个数”) If n> max Thenmax = nEnd IfNextPrint "三个数中最大的数是"；maxEnd Sub2.有一元二次方程 aX2+bX+c=0,依次输入a, b. c,判断此方程是否有实根Private Sub Command l_Click()Dim a, b, c. na = Textlb =

2、Texl2c = Text3n=b*b-4*a*cIf n >= 0 ThenLabcl4 = “方程有根"ElseLabcl4="方程无根"End IfEnd Sub3.输入一个百分制的成绩，若大于筹于60,则用消息框弹出，显示“恭喜！成绩通过! 若小于60,则弹出消息框，显示“抱歉！成绩没有通过1Private Sub Fonn_Load()Textl = AEnd SubPrivate Sub Command l_ClickO Dim nn = TextlIf n> =60 TlicnVai MsgBox('*恭喜！成绩通过！ J)Els

3、eVal MsgBoxC'抱歉！成绩没有通过！ “)End IfEnd Sub4<输入一年份，判断它;1否为闰年，并显示有关信息。（判断闰年的条件是，年份能被4整 除但不能被100整除，或者能被400整除）5.Private Sub Command l_Click（）Dim y%y = InpiKBox（“请输入年份"）If y Mod 4 = 0 And y Mod lOOoOOry Mod 400 = 0 ThenVai （MsgBoxC闰年！ J）ElseVaHMsgBoxC平年！ J）End IfEnd Sub输入学生的百分制成绩，转换输出为五级制成绩，9010

4、0分转换为优秀，8089转换为良好，7079转换为中等，60-69转换为及格，060转换为不及格Private Sub Commandl.ClickO a = Val（InputBox（"请输入成绩 J） Ifa> lOOTlien Print"超出范 HVIf a >= 90 And a <=100 Then Print ，优秀If a >= 80 And a < 90 Then Print ” 良好”If a >= 70 And a <80 Then Print “中等”If a >= 60 And a <70 Th

5、en Print ”及格“If a < 60 Then Print ，不及格”End Sub6<随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246, 输出是642.7.Private Sub Commandl.ClickODim X%, xl%, x2% x3%X = Textlxl = X Mod 10x2 = （x Mod 100） 10x3 = x 100Labell =xl * 100 + x2 * 10 + x3End Sub输入两个整数，求它们的最大公約数。private Sub Commandl_Click（）nl = InputBox（

6、'* 输入 n"）ml = InputBox（"输入 m”）If ml >111 Thenm = ml: n = nlElsem = nl: n = ml灼f r电冥rfj" 9!来鼻科试住5内寺End Ifr = ni Mod nDo While r <> 0r = m Mod nLoopPrint "m n的最大公约数是："nEnd Sub编程求200-400范围内5的倍数或7的倍数之和.(一个数如果同时是7和5的倍数，则 只能加一次“Private Sub Commandl_Click()Fori = 200To

7、400IfiMod5 = OOri Mod 7 = 0TlienSum = Sum + iEnd IfNext IFori = 200To400If i Mod 5 = 0Aiid i Mod 7 = 0 ThenSum = Sum iEnd IfNext iPrint “倍数之和=： SumEnd Sub9.lO.计算100-300之间所有能被3和7整除的数之和Private Sub Commandl.ClickODim iSum = 0For i= 100 To 300Hi Mod 3 = 0And i Mod 7 = OThenSum = Sum + iEnd IfNext iPrint

8、 SumEnd Sub分别统计IJOO中，满足3的倍数、7的倍数的数各有多少。Private Sub Commandl_Click()Dim L s3 s7s3 = 0s7 = 0For i = 1 To 100IfiMod3 = 0Thens3 = s3 + 1End IfNext IFor i = 1 To 100IfiMod7 = 0Thens7 = s7 + 1End IfNext iPrint "3 的倍数”;s3Print "7 的倍数”;s7End Sub11. 某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去 掉一个最高分和一个最

9、低分的计算办法，求出该参赛者的平均得分。Private Sub Command l_Click()Dim max. al To 7). min. sFor i = 1 To 7ai) = Val(I叩utBoxt"输入第”& i & ”个数”)Next Imax = a(l)min = a(l)s = a( 1)Fori = 2To7If a(i) > max Then max = ai)If a(i) < min Then min = a(i)s = s + a(i)Next is = s- min maxs = s/5Print叭平均分“；sEnd S

10、ub12. 输入一串字符，统计其中字母A(不区分大小写)出现的次数。Private Sub Command l_Click() Dim c As Siring, a As Integer b = InpuiBox("请输入字符”) For I = 1 To Len(b)c = UCasc(Mid(b L 1)Ifc = "A" Thena = a + 1End IfNext iPrint 出现的次数:End SubIX14.15.16.我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。Private Sub Commandl.Clic

11、kODim a, ia= 13i = 0Do While a<26a = a*(l008)i = i+ 1LoopPrint iEnd Sub小猴有桃若干，第一天吃掉一半多一个：第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？Private Sub Command l_Click()Dim a, i a= 1For i = 1 To 6a = 2 * (a + I)Next IPrint "小猴原有桃"a:”只”End Sub求100以内的素数Private Sub Commandl_Click()Dim IJFor

12、i = 2To 100Forj = 2Toi- 1If i Mod j = 0 Then Exit ForNext jIfj = i Then Print iNext IEnd Sub百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。Private Sub Command l_Click()Print “小鸡“；"“；'母鸡”；"”；“公鸡”PrintFor X = 1 To 100For y= 1 To 100For z = 1 To 1001C0.5 *x + 2*y + 3*z = lOOThenPrinL”；x:“ 豎 yVEn

13、d If171819Next ZNext yNext XEnd Sub编程求雯波那契数列前11项。(斐波那契数列：F(O)=f(l)=l, F(n)=F(n-l)+F(n-2) n>=2 )Private Sub Commandl_Click()Dim F(ll). i As LongF(0) = 1F=1Fori = 2To 10F(i) = F(i- l) + F(i-2)Next IFori = 0To 11Print F(i);Next iEnd Sub将输入的字符串以反序显示。例如：输入“ASDFGT”，显示“TGFDSA”Private Sub Command 1 _Clic

14、k()Dim a. b. c. d. na = InputBox(*-输入字符串Jn = Lcn(a)For b = 1 To Int(n 2)c = Mid(a. b. 1)Mid(ab l) = Mid(a. n-b + 1, 1)Mid(an-b+ 1, l) = cNext bPrint aEnd Sub随机产生10个30,100内的整数，求最大值及所对应的下标Private Sub Commandl.ClickODim a( 1 To 10). mRandomizeFor I = 1 To 10a(I) = InKRnd *71) + 30Print a(I)Next IMax =

15、a(l)ForI = 2To 10If a(I) > Max Then Max = a(I): ni = INext IPrint *'max= ： MaxPrint "max的下标为”;mEnd Sub20.随机产生10个130,100内的整数，求最大值.最小值和平均值。Private Sub Command l_Click()Dima(I To 10)For i = 1 To 10a(i) = Int(Rnd *71) + 30Print a(i)Next iMax =a(i)Min = al)Avg = a(l)Fori = 2To 10If a(i) >

16、Max Then Max = a(i)If a(i) < Min Then Min = ai)Avg = Avg + a(i)Next iAvg = Avg /10Print ” max= ： MaxPrint ”min=": MinPrint "avg=' AvgEnd Sub2L随机产生10个30,100内的整数，求最小值及所对应的下标。Private Sub Command l_Click()Dim a( 1 To 10). mRandomizeFor I = 1 To 10a(I) = Int(Rnd *71) + 30Print a(I)Next I

17、Min = al)ForI = 2To 10If a(I) < Min Then Min = a(I): in = INext IPrint *'min=”； MinPrint ”min 的下标为”:niEnd Sub22.随机生成一个整型的二维数组，范围在【W20之间，以下三角形式输出该数组。/n 净仗9!未9护: EPrivate Sub Command l_Click()Dima(l To 10, 1 To 10), i, j As IntegerFori=ITolOForj = 1 To 10a(i J) = Int(Rnd *11 + 10)NextNextFor I

18、= 1 To 10Forj = 1 To iPrint Spc(3);a(i,j);NextPrintNextEnd Sub23. 随机产生10个1-100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。Private Sub Commandl.ClickODim a(lTo 10)For i = 1 To 10ai) = Int(Rnd * 101)+ 1Print a(i)Next IMax = a(l)Min = al)Avg = a(l)Fori = 2To 10If a(i) > Max Then Max = a(i)If a(i) < Min Then Min

19、 = a(i)Avg = Avg + a(i)Next iAvg = Avg / 10Print Flax： MaxPrint ”min=”: MinPrint ”avg=”： AvgEnd Sub24, 利用随机函数生成一个4X4的矩阵(即二维矩阵),范围是20,50内的整数,输出该矩阵所 有数据之和Private Sub Command l_ClickO Dim a%(4 5). sumFor i = 1 To 4Forj = 1 To4 aiJ) = Int(Rnd*3l) + 20 Print a(ij);sum = sum + ai J)/ry和净s9H> 9!未9护匕：E25

20、.26Next jPrint换行Next iPrint ”sum= ： sumEnd Sub已知有序数组a(),编程插入X(X的值为14)。数组a中的元素分别为12, 6, 4, 89, 75, 63, 100, 20, 31。Private Sub Command l_Click()Dim a(). i%, k%, x%. n%a = Array(4 6. 12,20, 31,63.75. 89. 100)n = UBound(a)X = VaKInputBoxC请输入所要插入数")For k = 0 To nIf x< a(k) Then Exit ForNext kRcD

21、im Preserve a(n + 1)Fori = nTo k Step-1ai + l) = a(i)Next Ia(k) = XFor I = 0 To n + 1Print a(i);Next iEnd Sub编写一函数，计算Double类型一维数组所有元素的平均值。27.编一子过程ProcMin求i维数组a中的最小值，子过程的形参自己确定Private Sub command l_Click()F和睜仪计9!未9料mDim a( 1 To 10). min. i%Fori=ITolOai) = Ini(Rnd* 101)Print a(i):Next ICall ProcMin(a(). min)PrintPrint "min =": minEnd SubSub ProcMin(b() niin)Dim i%min = b(LBound(b)For i = LBound(b) + 1 To UBound(b)If b(i) < min Then min = b(i)Next iEnd Sub28,编