WordVB課后練習(xí)無(wú)基礎(chǔ)上手版

書上P58-P59頁(yè)習(xí)題三2下列符號(hào)中，哪些是VB的合法變量名？a123合法2.a12_3合法3.123_a不合法(數(shù)字開頭)4.a123不合法不是“空格”Integer不合法,VB關(guān)鍵字6.XYZ合法7.False不是，關(guān)鍵字8.sin(x)不是,”()”sinx合法10變量名合法11abcdefg合法12π不合法(3.14就合法把下列算數(shù)表達(dá)式寫成VB表達(dá)式：︱x+y︱+Z的5次方寫成abs(x+y)+z^5備注abs是絕對(duì)值的意思參考P50（細(xì)看要考的)(1+xy)6寫成(1+x*y)^6寫成[(10*x+sqr(3*y)]/(x*y)備注sqr是根號(hào)的意思參考P50（rnd隨即也看看)寫成[-b+sqr/b*b-4*a*c)]/(a*2)寫成1/(1/r1+1/r2+1/r3)寫成sin(45°/180°*3.14)+[exp(10)+log(10)]//sqr(x+y+1)備注e就是exp4根據(jù)條件寫出響應(yīng)的VB表達(dá)式產(chǎn)生”C”-”L”范圍內(nèi)的一個(gè)大寫字符答案：Asc碼chr[Int[Rnd*(10+67)]]備注Chr是Asc碼值轉(zhuǎn)換字符的意思Int(N)取<=N的最大整數(shù)，Rnd(0-1)之間產(chǎn)生的隨即數(shù)asc碼0=48a=97A=65所以C=67;而10+67就是L產(chǎn)生100-200(包括100到200值)范圍內(nèi)的一個(gè)正整數(shù)。答案：Int(Rnd*101+100)備注：Rnd意思產(chǎn)生0~1之劍的隨即數(shù)不等于0或者1,so:101*0.999永遠(yuǎn)不會(huì)小于100且大于它，Rnd*101+100永遠(yuǎn)小于200，最后用Int取整。已知直角坐標(biāo)系中的任意一點(diǎn)坐標(biāo)(x.y),表示其位于第一或第三象限內(nèi)答案x*y>0或(x>0andy>0)or(x<0andy<0)備注第一象限XY+第三象限XY-不懂的自己畫直角坐標(biāo)表示x是5或7的倍數(shù)答案(xmod5=0)or(xmod7=0)備注;大小對(duì)比算術(shù)符>關(guān)系符>邏輯符小白答疑：運(yùn)算符^*/\Mod+-關(guān)系復(fù)>,=,<,<=,>=.><（不等于)；邏輯運(yùn)算符包括。And運(yùn)算符Not運(yùn)算符Or運(yùn)算符Xor運(yùn)算符\（與或)P48頁(yè)將任意一個(gè)兩位數(shù)x的個(gè)位數(shù)與十位數(shù)兌換。例如x=78,則表達(dá)式的值應(yīng)為87答案:(xmod10余8)*10+x\10或者,val[Right(x,1)&left(x,1)]備注：第一方案是利于余數(shù)78mod10=8然后x整除10=7，8+7=87(小白答疑：這種情況是加法”8”+7=15，或者”7”+8=15；這題VB的+是連接的意思)。第二方案由馬丁提供，利用取右第一數(shù)+左面第一數(shù)&連接符;6將變量x的值按四舍五入保留小數(shù)點(diǎn)后兩位。X值123.2389表述為123.24答案x值四舍五入round(x*100)/100備注x*100=12323.89保留了位數(shù)12323.89除以100并round保留后2位得出的值就是表示為123.24，如果直接round(x)就等于123.23小白答疑第六題中例如用round編程已知:A1=123.2389

則用B=round（A1，2）結(jié)果就等于123.24了2就是保留小數(shù)點(diǎn)后兩位。7.表示字符型變量C是字母字符（不區(qū)分大小寫字母）？答案也就是說(shuō)C是字母字符（A-Z之間）[(C>=“A”andC<=“Z”）or(C>=“a”andC<=“z”)]小白答疑利用or(邏輯符)當(dāng)C小與Z大于A時(shí)或者C小于小寫z并大于a時(shí)兩種條件滿足一方就為真True取字符型變量S中第五個(gè)字符起的6個(gè)字符MId(S,5,6)小白答疑Mid（“ABCDEFG”，2,3)的值“BCD”2代表第二字符開始3代表從開始字符到結(jié)束，共3個(gè)字符的長(zhǎng)度。菊花疼的可以看P529.表示關(guān)系表達(dá)式子10小于等于x小于20答案x>=10andx<20小白答疑合理運(yùn)用邏輯運(yùn)算符and;合并同類項(xiàng)。10.x,y之一小于z小白答疑有些童鞋不理解，老師給的答案是x<zory<z假設(shè)是編程Z是數(shù)字或者公式時(shí)；老師這里就是抱磚引玉，老師設(shè)置了個(gè)整型常量Z,語(yǔ)句Dimzaninteger設(shè)置Z為整形常量；然后：當(dāng)z小于y或者z大于x時(shí)候，兩者之一滿足x和y都大于z;答案y>zandx>z小白答疑：理由同上如果直接寫成y>zx>z就是錯(cuò)誤的，沒(méi)有邏輯符。缺少5.寫出下列表達(dá)式的值1.123+23mod10\7+Asc(“A”)答案123+23mod1+65=123+0+65=188備注運(yùn)算符^*/\Mod+優(yōu)先順序要注意asc碼0=48a=97A=652100+”100”&100答案200+100=200100備注;大小對(duì)比算術(shù)符>關(guān)系符>邏輯符+-*\大于=><大于andnotorxor&3.Int(68.555*100+0.5)/100答案6855.5*100+0.5=6855.5+0.5=INT(6856)/100=68.56備注注意括號(hào)優(yōu)先級(jí)已知A$=”87654321”求表達(dá)式Val(Left$(A$,4)+MId$(a$,4,2)的值備注Val數(shù)字字符串轉(zhuǎn)換為數(shù)值Val(“123AB”)轉(zhuǎn)換為123Left(“ABCDEFG”,3)取出左邊三個(gè)字符”ABC”這樣還看不懂菊花們可以參考P51-P52答案Val[left$(A$,4)+mid$(A$,4,2)]=Val[(“8765”+”54”)]=val(“876554”)=876554小白答疑：””+””是連接“”+123是相加DateAdd(“m”,1,#1/30/2000#)答案m月d天y年DataAdd“m”1就是增加1個(gè)月#2/29/2000#備注2000是潤(rùn)年(具體書上p53了解一下即可)6len(“VB”程序設(shè)計(jì))答案len(“VB……”)長(zhǎng)度為6備注書上P52頁(yè)，簡(jiǎn)單理解就是6個(gè)字就是6個(gè)字符串長(zhǎng)度。奧巴馬：“太好了這版本我也看得懂！你呢”書上P94-96習(xí)題四1．結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)是什么？答：順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。2指出下列賦值語(yǔ)句的錯(cuò)誤（包括運(yùn)行時(shí)的錯(cuò)誤)1.10x=sin(x)+y答案10x錯(cuò)誤變量名2.c=3+Sqr(-3)答案sqr根號(hào)變量要求大于等于03c+x+y=c*y答案錯(cuò)誤表達(dá)式，賦值等號(hào)左邊是表達(dá)式4x=sin(x)/(20mod2)答案余數(shù)為0分母不能為零3．Msgbox函數(shù)和InputBox函數(shù)之間有什么區(qū)別？各自獲得什么值？答：兩個(gè)函數(shù)的共同之處是均顯示對(duì)話框。區(qū)別：InputBox函數(shù)等待用戶在文本框中輸入數(shù)據(jù)，獲得的是輸入的字符串?dāng)?shù)據(jù)；Msgbox函數(shù)等待用戶按一按鈕，獲得的是表示按鈕的整數(shù)值，以決定程序的流向。4．要使單精度變量x，y，z分別保留1位、2位、3位小數(shù)，并在窗體上顯示，應(yīng)使用什么函數(shù)？如何編寫對(duì)應(yīng)的Print方法？答：使用Format函數(shù)，具體如下：PrintFormat(x,"0.0")PrintFormat(y,"0.00")PrintFormat(z,"0.000")語(yǔ)句if表達(dá)式then…中的表達(dá)式可以是算術(shù)、字符、關(guān)系、邏輯表達(dá)式中的哪些？答：可以是算術(shù)、關(guān)系、邏輯表達(dá)式。按照一般語(yǔ)言的規(guī)定，if后應(yīng)該是關(guān)系表達(dá)式、邏輯表達(dá)式，根據(jù)其結(jié)果邏輯量是True或False決定是否執(zhí)行Then后面的句子。而在VB中還可以是算術(shù)表達(dá)式，因?yàn)閂B邏輯判斷中，對(duì)于非0值就作為True，而0值作為False，因此分段函數(shù)可用VB語(yǔ)句表示為：IfxTheny＝sin(x)/xElsey=0而不必寫成Ifx<>0Theny=sin(x)/xElsey=06指出下列語(yǔ)句中的錯(cuò)誤。⑴Ifx≥yThenprintx答：“≥”應(yīng)寫成“>=”If10<x<20thenx=x+20答：VB中表示x的范圍“10<x<20”應(yīng)寫成“10<xandx<20”Ifc>=〝A〞andc<=〝Z〞thenPrint〝大寫字母〞ElseIfc>=〝a〞andc<=〝z〞thenPrint〝小寫字母〞Endif答：“ElseIf”之間不能有空格，即應(yīng)寫成“ElseIf”7．按照下列條件，寫出相應(yīng)的條件語(yǔ)句：（1）當(dāng)字符型變量中第三個(gè)字符是”C”時(shí)，利用Msgbox顯示“Yes”，否則顯示”No”。答：IfMid(c,3,1)=”C”ThenMsgBox”Yes”ElseMsgBox”No”（2）利用if語(yǔ)句、SelectCase語(yǔ)句兩種方法計(jì)算分段函數(shù)：If語(yǔ)句PrivateSubCommand2_Click()x=Text1.TextIf語(yǔ)句PrivateSubCommand2_Click()x=Text1.TextIfx>20Theny=x*x+3*x+2Elsey=Sqr(3*x)-2EndIfPrintyEndSubSelect語(yǔ)句PrivateSubCommand1_Click()x=Text1.TextSelectCasexCaseIs>20y=x*x+3*x+2CaseIs<10y=1/x+Abs(x)CaseElseY=Sqr(3*x)-2EndSelectPrintyEndSub答：（3）利用if語(yǔ)句和IIf函數(shù)兩種方法求三個(gè)數(shù)x，y，z中的最大值并存入變量Max中。答：If語(yǔ)句Ifx>yThenMax=xElseMax=yIfz>MaxThenMax=zIIf函數(shù)：Max=IIf(x>y,x,y)Max=IIf(Max>z,Max,z)8在多分支結(jié)構(gòu)的實(shí)現(xiàn)中，可以用if…Then…ElseIf…Endif形式的語(yǔ)句，也可以用SelectCase…EndSelect形式的語(yǔ)句，由于后者的條件書寫更靈活、簡(jiǎn)潔，是否可以完全取代前者？答：不可以。雖然selectcase….Endselect語(yǔ)句在條件的書寫上更簡(jiǎn)潔和靈活，但是卻不可以完全取代If…then…elseif…endif形式的語(yǔ)句。因?yàn)閟electcase….Endselect語(yǔ)句在使用上是有一些限制的。首先，看該語(yǔ)句的形式：SelectCase<變量或表達(dá)式>Case<表達(dá)式列表1><語(yǔ)句塊1>Case<表達(dá)式列表2><語(yǔ)句塊2>…[CaseElse<語(yǔ)句塊n+1>]EndSelect其中<變量或表達(dá)式>只能含有一個(gè)變量，任何含有多個(gè)變量的形式都是錯(cuò)誤的。例如，要判斷x，y是否在第一、第三象限內(nèi)，若輸入如下語(yǔ)句：SelectCasex，y，VB程序會(huì)顯示“缺少：語(yǔ)句結(jié)束”。其次，在后面的Case“表達(dá)式列表”中不能出現(xiàn)SelectCase變量或表達(dá)式中使用的變量，也不能出現(xiàn)主教材上列出的四種形式以外的符號(hào)或關(guān)鍵字（符號(hào)是：逗號(hào)；關(guān)鍵字是：Is、To）。例如，上述象限的判斷，若語(yǔ)句表示如下：SelectCasex,yCasex>0Andy>0Print“第一象限”Casex<0Andy<0Print“第三象限”EndSelect則程序有多處錯(cuò)誤：SelectCasex,y中出現(xiàn)了多個(gè)變量；在Casex>0Andy>0中出現(xiàn)了變量和And邏輯運(yùn)算符。上述例子只能用If的多分支結(jié)構(gòu)來(lái)實(shí)現(xiàn)。由此可見，雖然SelectCase結(jié)構(gòu)清晰，但使用受到限制，凡是對(duì)多個(gè)變量的條件判斷只能用If的多分支結(jié)構(gòu)來(lái)實(shí)現(xiàn)。9．計(jì)算下列循環(huán)語(yǔ)句的次數(shù)⑴ForI=--3To20Step4答：循環(huán)次數(shù)為6次。N=int[20-(-3)/4+1)=23/4+1=5+1=6⑵ForI=-3.5To5.5Step0.5答：循環(huán)次數(shù)為19次。N=int(5.5+3.5/0.5+1)=19⑶ForI=-3.5To5.5Step-0.5答：不循環(huán)。步長(zhǎng)<0,循環(huán)初值<終值。N=int(-3.5+5.5/-0.5+1)=0⑷ForI=-3To20Step0答：無(wú)數(shù)次。(n次,死循環(huán),ctrl+brlk強(qiáng)制結(jié)束)備注公式n=int(終-初/步驟+1)10．下列30-90為語(yǔ)句標(biāo)號(hào)，分別標(biāo)記該語(yǔ)句，第40句執(zhí)行了幾次？，第50句執(zhí)行了幾次？，第90句顯示的結(jié)果是多少？30Forj=1To12Step340Fork=6To2Step-250mk=k60Printj,k70Nextk80Nextj90Printj,k,mk答：第40句執(zhí)行了4次。第50句執(zhí)行了12次。第90句顯示的結(jié)果是1302。11．如果事先不知道循環(huán)次數(shù)，如何用For……Next結(jié)構(gòu)來(lái)實(shí)現(xiàn)?答：只要將循環(huán)的終值設(shè)置為一個(gè)非常大的值，然后在循環(huán)體內(nèi)增加If語(yǔ)句，判斷是否達(dá)到循環(huán)結(jié)束條件。形式如下：For循環(huán)變量=1To非常大的數(shù)…….If達(dá)到循環(huán)結(jié)束條件ThenExitFor…….Next循環(huán)變量12．利用循環(huán)結(jié)構(gòu)，實(shí)現(xiàn)如下功能：⑴答：S=0Fori=1To10S=S+（i+1）*（2*i+1）Nexti⑵分別統(tǒng)計(jì)1～100中，滿足3的倍數(shù)、7的倍數(shù)的數(shù)個(gè)為多少？答：S3=0S7=0Fori=1To100IfiMod3=0ThenS3=S3+1IfiMod7=0ThenS7=S7+1Nexti⑶將輸入的字符串以反序顯示。如輸入“ASDFGHJKL”,顯示“LKJHGFDSA”。答：s=InputBox("輸入字符串")Fori=Len(s)To1Step-1PrintMid(s,i,1);Nexti13．下面程序運(yùn)行后的結(jié)果是什么？該程序的功能是什么？PrivateSubCommand1_Click()Dimx$,n%n=20x=""DoWhilen<>0a=nMod2n=n\2x=Chr(48+a)&xLoopPrintxEndSub答：運(yùn)行后結(jié)果為10100，該程序的功能是將十進(jìn)制數(shù)轉(zhuǎn)換成二進(jìn)制字符串。14．下面程序運(yùn)行后的結(jié)果是什么？該程序的功能是什么？Privat