高中計(jì)算機(jī)會(huì)考 VB題 A檔次到D檔次 習(xí)題及答案

1、. Visaul Basic程序設(shè)計(jì)（編程題）A類題說(shuō)明：A類題以順序結(jié)構(gòu)的解析算法為主，解決學(xué)生在數(shù)學(xué)、物理和生活中遇到的簡(jiǎn)單計(jì)算問(wèn)題。用到的控件有：標(biāo)簽框、文本框、命令按鈕等。A01、制作一個(gè)加法器，在文本框中輸入兩個(gè)數(shù)值后，單擊“計(jì)算”按鈕可以計(jì)算出兩數(shù)之和并顯示在標(biāo)簽中；單擊“清除”按鈕可以清除各項(xiàng)數(shù)值。Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)text3.text = a + bEnd SubPrivate Sub Command2_Click()Text1.Text = ""

2、;Text2.Text = ""Text3.text = ""End SubA02、已知y= x3|x10|4， 編程求y的值 。要求：在文本框中輸入x的值，單擊“計(jì)算”按鈕后在“y”框中顯示y的值；單擊“退出”按鈕退出程序。Private Sub Command1_Click() X= Val(Text1.Text)Text2.text = x 3 + Abs(x - 10) + 4End SubPrivate Sub Command2_Click()EndEnd SubA03、編程實(shí)現(xiàn)：在“半徑”框中輸入圓的半徑，單擊“確定”按鈕時(shí)，“周長(zhǎng)”、“面積

3、”框中顯示圓的周長(zhǎng)和面積。Private Sub Command1_Click()r=val(text1.text)text2.text=2*3.14*rtext3.text =3.14*r*rEnd SubA04、編程計(jì)算圓錐的體積。要求：輸入圓錐的半徑與高度，單擊“計(jì)算”按鈕可以計(jì)算出圓錐的體積并顯示出來(lái)；單擊“清除”按鈕可以清除各項(xiàng)數(shù)值。提示：V =hr2 ，取3.14Private Sub Command1_Click()r= Val(Text1.Text)h= Val(Text2.Text)text3.text = 1 / 3 * 3.14 * h * r 2End SubPriva

4、te Sub Command2_Click()Text3.text = ""Text2.Text = ""Text1.Text = ""End SubA05、華氏溫度（F）與攝氏溫度（C）之間的轉(zhuǎn)換關(guān)系為： 。編程實(shí)現(xiàn)：若用戶在文本框中輸入一個(gè)攝氏溫度，單擊“轉(zhuǎn)換”按鈕可以換算成華氏溫度，并顯示出來(lái)；單擊“清除”按鈕可以清除各溫度值。Private Sub Command1_Click() C= Val(Text1.Text)text2.text = 9 / 5 *c + 32End SubPrivate Sub Command2_C

5、lick()Text1.Text = ""text2.text = ""End SubA06、求并聯(lián)電阻R的值。要求：在兩個(gè)文本框中分別輸入電阻R1、R2的值，單擊“計(jì)算”按鈕在“R”框中顯示并聯(lián)電阻R的值；單擊“清除”按鈕清除數(shù)據(jù)；單擊“退出”按鈕退出程序。 （提示：）Private Sub Command1_Click()r1=val(text1.text)r2=val(text2.text)text3.text =r1*r2/(r1+r2)End SubPrivate Sub Command2_Click()Text1.Text = "&

6、quot;Text2.Text = ""Text3.text = ""End SubA07、一個(gè)物體從一座塔高為h（米）的塔頂上自由落下，求落地所需的時(shí)間t（秒）。要求：在文本框中輸入塔高h(yuǎn)，單擊“計(jì)算”按鈕，在“時(shí)間”框中顯示落地所需時(shí)間t的值；單擊“退出”按鈕退出程序（提示： ，其中g(shù)=9.8 ）。Private Sub Command1_Click()h=val(text1.text)text2.text =sqr(2*h/9.8)End SubPrivate Sub Command2_Click()endEnd Sub A08、一架雪橇沿一斜坡滑

7、下，它在時(shí)間t（秒）滑下的距離s（米）由以下公式給出：s=10t+2t2。編程實(shí)現(xiàn)：若用戶在文本框中輸入一個(gè)時(shí)間值，單擊“計(jì)算”按鈕可以計(jì)算出下滑的距離，并將其顯示出來(lái)；單擊“刷新”按鈕可以清除各項(xiàng)數(shù)值。Private Sub Command1_Click()t=val(text1.text)text2.text =10*t+2*t*tEnd SubPrivate Sub Command1_Click()text1.text= ""text2.text = ""End SubA09、編程完成美元兌換人民幣的計(jì)算，假設(shè)美元兌換人民幣，100美元=620人民

8、幣，輸入美元數(shù)，輸出兌換的人民幣數(shù)。B類題說(shuō)明：B類題以選擇結(jié)構(gòu)為主，并涉及平方根，絕對(duì)值等函數(shù)的應(yīng)用。B01、在文本框中任意輸入兩個(gè)數(shù)，單擊“比較”按鈕后，將其中的最大值顯示在下方標(biāo)簽中；單擊“清除”按鈕清除各項(xiàng)數(shù)值。Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) If a > b Then Text3.text = a Else Text3.text = b End IfEnd SubPrivate Sub Command2_Click() Text1.text = "" T

9、ext2.Text = "" Text3.Text = ""End SubB02、買水果。10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。用戶輸入購(gòu)買的斤數(shù)，單擊“計(jì)算”按鈕顯示總價(jià)錢；單擊“清除”按鈕清除各項(xiàng)數(shù)值；單擊“結(jié)束”按鈕結(jié)束程序。Private Sub Command1_Click()x = Val(Text1.Text)If x >= 10 Thentext2.text = x*3Else text2.text = x * 3.5End IfEnd SubPrivate Sub Command2_Click() Text1.T

10、ext = ""text2.text = ""End SubPrivate Sub Command3_Click() EndEnd SubB03、由鐵路托運(yùn)行李，從甲地到乙地，行李不超過(guò)50 kg 時(shí)，運(yùn)費(fèi)為 1.50 元 /kg ，如果超過(guò) 50kg, 超過(guò)部分的運(yùn)費(fèi)為 2.00 元 /kg 。請(qǐng)編寫(xiě)程序，當(dāng)輸入行李重量后，單擊“計(jì)算”按鈕計(jì)算運(yùn)費(fèi)，單擊“清除”按鈕可以清除各項(xiàng)數(shù)值。Private Sub Command1_Click()w = Val(Text1.Text)If w <= 50 Then a = 1.5 * welse a =

11、50 * 1.5 + (w - 50) * 2end iftext2.text = aEnd SubPrivate Sub Command2_Click()Text1.Text = ""text2.text = ""End SubB04、輸入a, b的值 , 當(dāng)a×b>0時(shí)計(jì)算表達(dá)式y(tǒng)的值，否則彈出消息“wrong”。Private Sub Command1_Click()a=val(text1.text)b=val(text2.text)if a*b>0 then text3.text =(a+b)/sqr(4*a*b) else

12、 text3.text =“wrong”end ifEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.text = ""End SubB05、輸入a,b,c 三個(gè)數(shù)，若b2-4ac³0 則顯示“有實(shí)根”，否則顯示“無(wú)實(shí)根”。 Private Sub Command1_Click()a=val(text1.text)b=val(text2.text)c= val(text3.text)if b*b-4*a*c>=0 then

13、 text4.text =“有實(shí)根” else text4.text =“無(wú)實(shí)根”end ifEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = ""Text4.text = ""End SubB06、由鍵盤(pán)輸入三條邊ABC，判斷是否構(gòu)成三角形，構(gòu)成三角形的顯示“此三邊能構(gòu)成三角形”，否則顯示“此三邊不能構(gòu)成三角形”。（構(gòu)成三角形的條件為：任意兩邊之和大于第三邊，任意兩邊之差小于第三邊。）Private S

14、ub Command1_Click() a=val(text1.text)b=val(text2.text)c= val(text3.text)if a+b>c and a+c>b and b+c>a thentext4.text =“此三邊能構(gòu)成三角形” else text4.text =“此三邊不能構(gòu)成三角形”end ifEnd SubPrivate Sub Command2_Click() EndEnd SubB07任意輸入一個(gè)數(shù)，若這個(gè)數(shù)大于零則輸出這個(gè)數(shù)的平方根，若這個(gè)數(shù)小于或等于零則輸出這個(gè)數(shù)的絕對(duì)值。Private Sub Command1_Click() a

15、= Val(Text1.Text) If a > 0 Then text2.text = Sqr(a) Else text2.text = Abs(a)End SubPrivate Sub Command2_Click()EndEnd Sub C類題說(shuō)明：C類題以循環(huán)結(jié)構(gòu)的應(yīng)用為主，并涉及累加、累乘、隨機(jī)函數(shù)、分離數(shù)字、判斷整除的應(yīng)用等。C01、在11000區(qū)間中的所有整數(shù)中，分別計(jì)算能被3整除的數(shù)的個(gè)數(shù)及能被7整除的數(shù)的個(gè)數(shù)，結(jié)果顯示如題所示。要求：必須使用循環(huán)語(yǔ)句實(shí)現(xiàn)。Private Sub Command1_Click()s1 = 0s2 = 0For i = 1 To 1000

16、Step 1If i mod 3=0 Then s1 = s1 + 1If i mod 7=0 Then s2 = s2 + 1Next iText1.text = s1text2.text = s2End SubPrivate Sub Command2_Click()EndEnd SubC02、輸出所有的水仙花數(shù)。即水仙花數(shù)是三位數(shù)，并且滿足每位數(shù)字立方之和等于這個(gè)數(shù)。如：153=13+53+33 （用循環(huán)完成）Private Sub Command1_Click()ClsFor i = 100 To 999a = i 100b = i 10 mod 10c = i mod 10If i =

17、 a *a*a+b*b*b+c*c*c Then Print iNext iEnd SubPrivate Sub Command2_Click()EndEnd SubC03、求1到1000之間的偶數(shù)和、奇數(shù)和Private Sub Command1_Click() s1 = 0 s2 = 0 For i = 1 To 1000 If i Mod 2 = 0 Then s1 = s1 + i Else s2 = s2 + i End If Next i Text1.text = s1 text2.text = s2End SubPrivate Sub Command2_Click() EndEn

18、d SubC04、 編程計(jì)算 S=1+2+3+4+N,找一個(gè)最大整數(shù),使得S<30000Private Sub Command1_Click() s = 0 n = 0 Do While s < 30000 n = n + 1 s = s + n Loop Text1.text = n - 1 text2.text = s - nEnd SubPrivate Sub Command2_Click() EndEnd SubC05、求N!=1*2*3*N，N值由鍵盤(pán)輸入（N應(yīng)在5-10之間，否則輸出“N值不符合要求”）。Private Sub Command1_Click() n =

19、val(InputBox("n=") If n>= 5 and n <= 10 Then s = 1 For i = 1 To n s = s * i Next i Print "1*2*3*.*" n ; "="s ElsePrint “N值不符合要求”End ifEnd SubPrivate Sub Command2_Click() EndEnd SubC06、單擊窗體時(shí)生成20個(gè)0,9 范圍內(nèi)的隨機(jī)整數(shù)，在窗體上顯示出其中大于5的隨機(jī)整數(shù)。Private Sub Form_Click()ClsRandomize Ti

20、merFor i = 1 To 20x = Fix(Rnd * 10)If x > 5 Then Print xNext iEnd SubC07生成10個(gè)10,99 范圍內(nèi)的隨機(jī)整數(shù)，顯示并求平均值。Private Sub Command1_Click() Randomize Timer Cls For i = 1 To 10 x = Fix(Rnd * 90) + 10 Print x, If i Mod 5 = 0 Then Print s = s + x Next i Print "平均值為:" s / 10End SubPrivate Sub Command3

21、_Click() EndEnd SubC08計(jì)算1*2+2*3+3*4+9*10的值Private Sub Command1_Click() s = 0 For i = 1 To 9 s = s + i * (i + 1) Next i Text1.text = sEnd SubPrivate Sub Command2_Click() EndEnd SubC09本金1萬(wàn)元，年利率7.5%，利滾利（即每年結(jié)息后，將利息轉(zhuǎn)成本金繼續(xù)存入）幾年后本利可達(dá)到2萬(wàn)元？1年的本利值=本利金+本利金×年利率Private Sub Command1_Click() s = 1 Do while s&

22、lt;2 d = d + 1 s = s + s * 0.075LoopText1.text = dEnd SubPrivate Sub Command2_Click() EndEnd SubD類題(綜合應(yīng)用)D01、編程實(shí)現(xiàn)：?jiǎn)螕簟坝?jì)算”按鈕，求100個(gè)兩位數(shù)的隨機(jī)整數(shù)之和，并顯示出來(lái)。單擊“清除”按鈕，清除相應(yīng)數(shù)據(jù)。要求必須使用循環(huán)語(yǔ)句實(shí)現(xiàn)。Private Sub Command1_Click()For i = 1 To 100a = Fix(Rnd * 90) + 10s = s + aNext iText1.text = sEnd SubPrivate Sub Command2_Cli

23、ck()Label2 = ""End SubD02、點(diǎn)擊窗體輸出九九乘法表Private Sub Form_Click()Print " 九九乘法表"For a = 1 To 9For b = 1 To aPrint a ； "*" ； b ；"="； a * b ；Next bPrintNext aEnd SubD03、點(diǎn)擊窗體打印如下圖形：Private Sub Form_Click()For i = 1 To 5 Print Tab(6 - i); For j = 1 To 2 * i - 1 Print &

24、quot;*" Next j PrintNext iEnd SubD04、有一數(shù)學(xué)燈謎，求A、B、C、D(其中A、B、C、D都為一位數(shù)字)的值Private Sub Command1_Click()For A = 1 To 9 For B = 0 To 9 For C = 1 To 9 For D = 0 To 9 If (1000 * A + 100 * B + 10 * C + D) - (100 * C + 10 * D + C) = (100 * A + 10 * B + C) Then print a;b;c;d Next D, C, B, AEnd SubPrivate

25、Sub Command2_Click()EndEnd SubD05、產(chǎn)生10個(gè)兩位的隨機(jī)整數(shù)并打印輸出，點(diǎn)擊“排序”按鈕將它們按從小到大的順序排序并在下一行打印輸出。點(diǎn)擊“結(jié)束”按鈕退出程序。 Private Sub Command1_Click()ClsDim a(10)Randomize TimerFor i = 1 To 10a(i) = Fix(Rnd * 90) + 10Print a(i);Next iFor i = 1 To 9For j = i + 1 To 10If a(j) < a(i) Then t = a(j): a(j) = a(i): a(i) = tNext

26、 jNext iPrintFor i = 1 To 10Print a(i);Next iEnd SubPrivate Sub Command2_Click()EndEnd SubD06、36塊磚，36人搬。男搬4，女搬3，兩個(gè)小孩抬一塊磚。要求一次全搬完。問(wèn)需男、女、小孩各若干？Private Sub Form_Click()ClsPrint "男", "女", "小孩"For i = 0 To 9 For j = 0 To 12 m = 36 - i - j If 4 * i + 3 * j + m / 2 = 36 Then Print i, j, m Next jNext iEnd SubD07、我國(guó)古代數(shù)學(xué)家張丘建在算經(jīng)中出了一道“百錢百雞”題，題意是：公雞五元一只，母雞三元一只，小雞一元三只。用100元錢買100只雞，問(wèn)公、母、小雞各買多少只？編程輸出所有滿足Private Sub Form_Click()Print "公雞", "母雞", "小雞"For x = 0 To 20 For y = 0 To 33