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

1、1.2.VB 程序設(shè)計(jì)編程考試題及答案輸入 3 個數(shù)，輸出最大得數(shù)Private Sub mand 1_c1 ick( )Di m maxFor i =1 Ton = V al (In puI f n maxEnd I fNex t3t Box (”輸入第& i & ”個數(shù))Th enPri nt 三個數(shù)中最大得數(shù)就是 ; maxEnd Sub有一元二次方程:aX2+ bX + c=0，依次輸入a, bP r iv a te Subm an d 1_C 1 i c k (),c,判斷此方程就是否有實(shí)根a, b,a = Text 1c, nb = T ex t2c = Text3=If nL a

2、b el4T h en”方程有根”Else3.Label4 =End IfII方程無根 En d Sub輸入一個百分制得成績,若大于等于 6 0 ,則用消息框彈出 ,顯示“恭喜 ！成績通過！ ” , 若小于 60,則彈出消息框,顯示“抱歉 ！成績沒有通過！Private S ub Form _L o” IIad()T ex t1PrivateSub m andl_Click()Dim n = T ext1I f n =60 The nV a1（M s gBox （”恭喜！成績通過！”）ElseVa1End（Ms g B o x（抱歉！成績沒有通過！ ”）IfEnd輸入一年份, 判斷它就是否為閏

3、年, 并顯示有關(guān)信息。 （判斷閏年得條件就是 :年份能被4 整除但不能被 100 整除,或者能被 40 0整除）Private S u b m an d1 _Click （）Dim y%Suby = InputBo x （請輸入年份” ）IfValy Mod 4 =0 And y Mod 10 0 =90 And a”超出范圍”= 8 0 And a = 70 And a = 60 And a 70 Then9 0 Then Prin t8 0 The n PrintPrintIIPr int 優(yōu)秀良好中等及格IfEn da n1 T hen1m = m1 ：n = n1x1 1 00 + x

4、2 10+ x 3Elsem = n 1： n End I f= m1m M od nDoWhile r 0= m Mod nLoo p Pr in t ”得最大公約數(shù)就是End Su b8.編程求200 4 0 0范圍內(nèi)5得倍數(shù)或7得倍數(shù)之與。（一個數(shù)如果同時就是 7與5得倍 數(shù)，則只能加一次。 。Private Sub mand1_Clic k ()For i = 20 0 To 4 0 0I f i M od 5 = 0 Or i Mod 7 = 0 ThenE n d IfFo r i200To 400If i M od 5 =n d i Mo d 7 = 0 Thens77 +1Ne

5、 xtiSum = Sum iEnd I fNex t iP r int倍數(shù)之與 =”； S umEnd Su b9.計(jì)算1 0 0300之間所有能被3與7整除得數(shù)之與Private Sub m a nd1_Cli c k()Di mSumFor i=100 To 300If iMod 3 =0 A nd i Mod 7=0 ThenS um = S um + iEnd If Ne xt iP ri n t SumEnd S ub10.分別統(tǒng)計(jì) 1100中,滿足 3得倍數(shù)、7 得倍數(shù)得數(shù)各有多少。P r ivat e Su b m a nd1_C 1 ick ()Di mi, s3，s7s3

6、= 0s7 = 0Fo r1 To 1 00fid 3 =0 The ns3 = sE nd IfNextFor i =To 1 00If i Mod 70 ThenPrint E nd If 3 得倍數(shù) ; s3Print ” 7 得倍數(shù)”； s711.Next imax = a(1)m in = a(1)s = a( 1)For i = 2To 7If a( i) m ax The n ma x = a(If a (i) min Then m in= a( i)s = s a(i )aNext i)12.輸入一串字符Privat e S u b,統(tǒng)計(jì)其中字母mand 1_Cl iring，

7、 a AsckIn不區(qū)分大小寫)出現(xiàn)得次數(shù))Dim c As Stb = I n putBo x( 請輸入字符For i =1 T o L en ( b)c = U Ca se(Mid ( b,If c = A T henger)i， 1)E nd Sub 某次歌曲大獎賽 ,有 7個評委。 如果分別輸入 7 個評委對某個參賽者得打分?jǐn)?shù) ,按照去掉一 個最高分與一個最低分得計(jì)算辦法，求出該參賽者得平均得分。Private Su b m and1_C1 ic k()Dim m a x, a( 1 To 7 ), min , sFor i = 1 To 7= Va 1(1 n putB o x (輸

8、入第 ” & i & ” 個數(shù))m axPrint ”平均分”；En d Subi = i+ 114.End IfN e xt iPrin t a出現(xiàn)得次數(shù)：”13.En d Su b我國目前有Pr ivate Sub13億人口，按人口年增長率0、8 %計(jì)算，多少年后我國人口將超過mand1_C 1 i c k ()2 6億。D i m a，a = 13lea = 2 )P ri V at e SuDi m F(11),b m a nd 1_C lick()i A s L on gF (0) = lF (1) = 1 Fo ri = 2 ToF(i)=Next iF(i - 1 )+ F (i

9、 2)Fo ri = 0 T o 11Pr i nt F(i);10Next iEnd Su bNext i18.將輸入得字符串以反序顯示。例如：輸入“A S DFGT ”,顯示“ TGFDS AP r iva t e Sub mand1_Click ()Di m a,b, c, d, nInpu t B o x(”輸入字符串)Fo rLen( a )b = 1 ToMid(a,(a,1)Int ( b, 1)Mi2)(a, n b + 1,1)Mid (a ,b + 1, 1)Next bPrint a19.En d Su b隨機(jī)產(chǎn)生Pr iv ateDim a (11 0 個3 0 , 1

10、 00Sub ma n d1_C lie k ()To 1 0) , m內(nèi)得整數(shù)，求最大值及所對應(yīng)得下標(biāo)R a n do mi zeFo r ITo 10Print=In t(R nd * 71 )a (I )Nex tIMa x=a(1)For I =2 To 1If a( I)Next I MaxT h en Max = a( I) : m = IP ri n t max= ”MaxPri n t ”m ax得下標(biāo)為”20.End Sub隨機(jī)產(chǎn)生10個3 0, 10 0 內(nèi)得整數(shù)，求最大值、最小值與平均值。P riv a te Sub mand1_CI ic k ()Dim a (1For

11、 i =To 10)1 To 10I nt(R n d* 71)Print a(i)Ne X t ia( 1) a ( 1 )Avg = a (10For iIfa( i)Ifa( i) M a X Th e n M ax Min The n Min = a=a (i)(i)Avg =A vg + a(i)21.22.Avg = Av g / 10Prin t ” max=”；Max P r i nt ” min=” ； MinP r int avg = ; AvgEnd Sub隨機(jī)產(chǎn)生10個30,100P r i vate Su bDim a (1 To 10),Rand o mizeF o

12、r I = 1 T o 10a(I) = I nt(PriNent a (I) X t IMinFo rI f a(I)=a( 1)I = 2 Max T h en M ax = a (i) M i n Then Min = a(i) g + a (i)Avg = Av Print V Pri n t ” Print ”/ 1 ax= ” n= ”;iaVg= A vg；MaxMinEnd Su b24.利用隨機(jī)函數(shù)生成一個4X4得矩陣（即二維矩陣）,范圍就是20,50 內(nèi)得整數(shù)，輸出該矩陣所有數(shù)據(jù)之與Pri vate Sub ma nd 1 _C lick ()D im a%( 4, 5),

13、 sumFor i = 1 To 4Fo r j =1 To 4a (i, j) = Int (Rn d * 31) + 20 P rint a(i , j );su m = sum + a (i,Next jPr i nt 換行 Nex t iPrin t ” su m= ; su mE n d Sub25.已知有序數(shù)組a ()，編程插入x(x得值為1 4 )。數(shù)組a中得元素分別為 1 2,6,4,8 9 ,75, 6 3, 10 0 ,2 0, 31 oPr iv a te Sub m and 1_Click ()Di m a (), i% , k% , x%, n%(4, 6, 1 2,

14、20,31,6 3,7 5,89, 1 00)n d( a)(In p utBox(請輸入所要插入數(shù))To na = A rray n = UB oux = VaiFor k = a( k ) Then E xit ForNe x t k R eD imPr eserve a (n + 1)For i = n To k S t e p 1 a(i +1)= a (i)N ext iFor i = 0 To n + 1 Prin tN exta (i );iE ndSub26. 編寫一函數(shù)，計(jì)算D oub 1 e類型一維數(shù)組所有元素得平均值。P rivate27. 編一子過程Pr ocM i n,求一維數(shù)組a中得最小值，子過程得形參自己確定Sub ma n d1_C 1i ck()Di mFor i(1 T o 10)1 To 10,min, i%P ri=Int (Rnd* 101 )t a (i);NextCall ProcMin (a (), m i n)Pr i ntPrint ” min = m