vb程序設(shè)計(jì)基礎(chǔ)課后答案

1、vb程序設(shè)計(jì)基礎(chǔ)課后答案【篇一：vb程序設(shè)計(jì)基礎(chǔ)與vba應(yīng)用1-8章參考答s=txt>p28習(xí)題一二，單選題1,b2,b3,d4,a5,d6,b7,b8,c9,d三，程序設(shè)計(jì)題privatesubcommand1_click()forml.fontname=宋體form1.print中文字體宋體endsubprivatesubcommand2_click()form1.fontname=楷體_gb2312form1.print中文字體楷體endsubprivatesubcommand3_click()form1.fontname=仿宋_gb2312form1.print中文字體仿宋end

2、subp57習(xí)題二一，判斷題對:1,3,7,10,14錯(cuò):2,4,5,6,8,9,11,12,13二，單選題,a2,c3,c4,ba7,b8,c9,b,c12,d13,b14,a16,b17,b18,c19,b21,b22,d23,a24,c26,a27,d28,b(2) 三，簡答題(1)2*cos(alfa)*sin(alfa/(2*a)sqr(s*(s-a)*(s-b)*(s-c)(a*a+b*c*(x+y)/(a+b)(7) (2*3.14159*r+exp(-5)*log(x)5,b10,c15,d20,b25,b(5)1/(x+1/(y+1)k/(1+a*exp(-b*x)cos(a

3、lfa)八2+atn(alfa)sqr(y八3+3*(a*a+b*b)/(x*x+y*y)(1)(a+b)modc(2)sqr(abs(x)int(x)+1(4)int(rnd*101)+2003 o(1)f(2)tft4 .(1)1=xandx12(2)t+3v-2and(t+v)100(3) (a+b)=cor(a-c)=c(4) a0andint(a)=aandb0andint(b)=bora0andb0(5) x=yorx=z(6) a=0andb0ora0andb=0四,編程題privatesubform_click()dimaasinteger,basinteger,casinte

4、gerdimyassinglea=inputbox(請輸入正整數(shù)a的值)b=inputbox(請輸入正整數(shù)b的值)c=inputbox(請輸入正整數(shù)c的值)y=(a+b+c)/3print平均值:;yendsub2.privatesubcommand1_click()dimaasinteger,basinteger,casintegerdimyassinglea=val(text1.text)b=val(text2.text)c=val(text3.text)y=(a+b+c)/3label1.caption=str(y)endsub1. privatesubform_click()dimra

5、sinteger,sassingleconstpi=3.14159r=inputbox(輸入圓半徑)s=pi*r*rmsgbox圓面積area=+str(s)endsubp114習(xí)題三一，1,a2,b3,b4,a5,c二，1,37,55,64,28,192, y=kigeca3, 1121123211234321123454321123456543214, china!三，1,tasdoubles=1abs(t)=0.00001s=s+t2, s+c-1s3, m=nmtonsum=sum+jsum=i四，1,privatesubform_click()dimxassingle,fassing

6、lex=inputbox(輸入x:)ifx-5thenf=3*x*x+2*x-1elseifx=5thenf=x*sin(x)+2八xelsef=sqr(x-5)+log(x)/log(10)endiflabel1.caption=fendsub2.privatesubform_click()dimnasinteger,iasinteger,flagasinteger,sassingle,tasintegern=inputbox(請輸入n的值：)sum=0t=1flag=-1fori=1tonflag=-flagt=t*is=s+flag*i/tnextiprints=;sendsub3.pr

7、ivatesubcommand1_click()fori=1to9forj=1toiprinti;*;j;=;i*j;nextjprintnextiendsub4.(1) privatesubform_click()fori=1to5printtab(6-i);forj=1to2*i-1print*;nextjprintnextifori=4to1step-1printtab(6-i);forj=1to2*i-1print*;nextjprintnextiendsubp152一、單選題1,b2,d3,c4,c5,d二、程序閱讀題1,24711162,1491625234545656712109

8、,div=3三、程序填空題1、len(stmid(str1,i,1)P=jip2、l=len(str)a(i)=mid(str,i,1)p=s-96x(p)=x(p)+13、a(1to4,1to5)s=0a(i,5)=s/4四，程序設(shè)計(jì)題1,privatesubform_click()練習(xí)四【篇二：二vb程序設(shè)計(jì)基礎(chǔ)課后選擇題答案】txt>cdadbbabdadbadacccdcbcacbc第2章ababdcbccdbabdcccabcdffftftfttf第3章cacbaacccbccacacbbadcdbdatttttft第4章bddbbccdbcbc第6章bbabbacdacbab

9、cd第7章cbadccaaacccabcdcbddcbbcabbd【篇三：計(jì)算機(jī)程序設(shè)計(jì)基礎(chǔ)課后練習(xí)題參考答案】ss=txt>一.判斷題(錯(cuò))事件過程由某個(gè)用戶事件或系統(tǒng)事件觸發(fā)執(zhí)行，但不能被其他過程調(diào)用。(2) (錯(cuò))若x=2,y=5,則表達(dá)式y(tǒng)-2xandx+2>y的結(jié)果為：true。(3) (錯(cuò))常量是指在程序運(yùn)行過程中其值可以改變的那些量。(錯(cuò)，timer沒有)vb工具箱中的所有控件都具有寬度(width)和高度(height)屬性。(錯(cuò))定義變量:dimmax,minassingle,貝Umax和min的數(shù)據(jù)類型均為single。(對)如果創(chuàng)建的菜單項(xiàng)的標(biāo)題是一個(gè)減號-”

10、，則該菜單項(xiàng)顯示為一條分隔線。(錯(cuò))標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是“*vbpo(錯(cuò)，都不能)定時(shí)器控件可以響應(yīng)click事件，但不能響應(yīng)dbclick事件。(4) (錯(cuò))在默認(rèn)情況下，數(shù)組下標(biāo)下界的缺省值為1。(對)在使用字體對話框時(shí)，需要對其flags屬性先進(jìn)行相應(yīng)設(shè)置。(5) 二.單選題在visualbasic中，表示鼠標(biāo)單擊事件的是c。(6) activateb)doubleclickc)clickd)mousedown用于設(shè)置計(jì)時(shí)器時(shí)間間隔的屬性是。(7) intervalb)namec)leftd)top函數(shù)int(10*rnd)是在范圍內(nèi)的整數(shù)。(8) 1,10b)1,10c)0,9)d)

11、0,9selectcase語句結(jié)構(gòu)的結(jié)尾應(yīng)使用a)endb)endcasec)endsubd)endselect改變了容器的坐標(biāo)系后，該容器的a屬性值不會(huì)改變。(9) a)leftb)scaleleftc)scaletopd)scalewidth執(zhí)行下列語句后，列表框中各表項(xiàng)順序?yàn)閘ist1.clearfori=1to4:list1.additemi-1,0:nextia)b)c)d)輸入對話框inputbox的返回值的類型是。(10) a)字符串b)整數(shù)c)浮點(diǎn)數(shù)d)長整數(shù)將焦點(diǎn)主動(dòng)設(shè)置到指定的控件或窗體上，應(yīng)采用b方法。(11) a)setdateb)setfocusc)settextd)

12、getdata有如下程序段：(12) dimiasinteger,sasintegers=1fori=1to8step2s=s*inextiprint"s=;s運(yùn)行結(jié)果為ba)s=9b)s=105c)s=1d)s=16利用以下語句，可以輸出日期和時(shí)間信息。(13) a)printdateb)printmonthc)printtimed)printnow一只漂亮的酒杯被摔碎了，則漂亮，酒杯，摔是d。(14) a)對象，屬性，事件b)對象，屬性，方法c)屬性，對象，方法d)屬性，對象，事件將通用對話框以打開文件對話框”方式打開，則選以下方法。a)showopenb)showcolorc)

13、showsaved)showfont執(zhí)行語句"line(100,100)-(150,200),vbblue,b在齒體上繪制出一個(gè)矩形，那么該矩形的面積=a。(15) a)5000b)10000c)15000d)20000如何使一個(gè)標(biāo)簽或按鈕控件在運(yùn)行時(shí)不可用c。(16) a)把它的visible屬性設(shè)置成falseb)把它的visible屬性設(shè)置成truec)把它的enabled屬性設(shè)置成falsed)把它的enabled屬性設(shè)置成true下列c表達(dá)式的結(jié)果為1234556789。a) a)trim(12345+56789)b)ltrim(12345)+rtrim(56789)c)r

14、trim(12345)(56789)d)ltrim(12345)rtrim(56789)將圖形框(picturebox)控件的autosize屬性設(shè)置為true后,則對于圖形框而言，b°圖形框中的圖片自動(dòng)改變大小適應(yīng)圖形框圖形框自動(dòng)改變大小適應(yīng)其中的圖形如果圖片的大小比圖形框大，則圖形框自動(dòng)裁剪圖象以適應(yīng)圖形框的大小。b) 如果圖片的大小比圖形框小，則圖形框大小不發(fā)生變化。(17) 要獲得當(dāng)前驅(qū)動(dòng)器應(yīng)使用驅(qū)動(dòng)器列表框的哪個(gè)屬性。(18) a)pathb)drivec)dird)pattern以下關(guān)于函數(shù)過程的敘述中，正確的是a。(19) 函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系在

15、函數(shù)過程中，過程的返回值可以有多個(gè)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型單擊滾動(dòng)條的滾動(dòng)箭頭時(shí)，產(chǎn)生的事件是c。(20) a)clickb)scrollc)changed)move以下能返回文件長度的函數(shù)是_b。a)bofb)lofc)lend)eof三.程序填空題【程序填空1】在c盤當(dāng)前文件夾下已存在名為data.txt的文件，利用文本框(text1)輸入若干英文單詞。要求每輸入一個(gè)單詞后，按下回車鍵將文本框中的單詞寫入文件，然后清除文本框的內(nèi)容以便輸入下一個(gè)單詞。當(dāng)在文本框中輸入的單詞是“end”時(shí)，則表示結(jié)束輸入

16、(對于單詞“end”不論大小寫都視為結(jié)束)，最后將文件關(guān)閉。privatesubform_load()atext1.text=endsubprivatesubtext1_keypress(keyasciiasinteger)ifkeyascii=13thenif(32)d=endthenclose#endelse(33)a(注意，text1的默認(rèn)屬性為text,可省略不寫)text1.text=endifendifendsuba)openc:data.txtforoutputas#1openc:data.txtforinput#1openc:data.txtinputas#1openc:dat

17、a.txtoutputas#1a)lcase(text1.text)b)textl.textc)str(textl)d)ucase(textl.text)a)write#1,textlb)write#1,textc)write#3,text1.textd)write#1,text.text【程序填空2】程序運(yùn)行后如下圖所示，label1的caption顯示為字體定時(shí)變大，影響字體大小的屬性每隔0.5秒增加1,數(shù)值在8,72之間變化。optionexplicitprivatesubform_load()timer1.enabled=trueblabel1.caption=字體定時(shí)變大endsub

18、privatesubtimer1_timer()staticiasintegerifi7ori=72theni=7i=i+1aendsuba)erval=5/10b)erval=500c)erval=trued)erval=false(35)a)label1.fontsize=ib)label1.font=ic)label1.size=id)label1.fontsize=i+1【程序填空3】已知五個(gè)數(shù)存放在數(shù)組中，用冒泡法對該數(shù)組進(jìn)行遞減排序(冒泡法：一旦發(fā)現(xiàn)數(shù)組中兩個(gè)數(shù)逆序馬上交換這兩個(gè)數(shù))。privatesu

19、bcommand1_click()dima(1to5)asintegerdimn%,i%,j%,t%a(1)=53:a(2)=34:a(3)=45:a(4)=89:a(5)=23fori=1to4(確保第i輪循環(huán)后，a(i)位置上存放第i大的數(shù))forj=5toi+1step-1ifthent=a(j)a(j-1)=tendifnextjnextifori=1to5printa(i);nextiendsub(31) a)a(j)a(j-1)b)a(j)a(j-1)c)a(i)a(j)d)a(j)a(i)a)a(i)=a(j)b)a(j-1)=a(j)c)a(j)=a(i)d)a(j)=a(j-1)【程序填空4】在窗體上畫一