高中信息技術(shù)VB專項題學(xué)考

-.z1.“四葉玫瑰數(shù)〞是指一個四位自然數(shù)各位上數(shù)字的四次方之和等于該四位數(shù)本身的數(shù)。如自然數(shù)8208=84+24+84〞,那它就是一個“四葉玫瑰數(shù)〞。現(xiàn)用VB編寫一個程序,實現(xiàn)如下功能:單擊“查找〞按鈕mand1,在列表框List1中顯示所有“四葉玫瑰數(shù)〞,并在標(biāo)簽Label2中顯示找到的個數(shù),運行界面如以下列圖所示:(1)為實現(xiàn)上述功能,請在畫線處填入正確的代碼。PrivateSubmand1_Click()DimiAsInteger,sAsIntegerDimaAsInteger,bAsInteger,cAsInteger,dAsIntegers=0Fori=1000To9999①'取出個位數(shù)字b=(iMod100)\10'取出十位數(shù)字c=i\100Mod10'取出百位數(shù)字d=i\1000'取出千位數(shù)字Ifa^4+b^4+c^4+d^4=iThenList1.AddItemis=②EndIfNe*tLabel2.Caption=″四葉玫瑰數(shù)共有″+Str(s)+″個″EndSub(2)程序中的語句“b=(iMod100)\10〞和以下哪些項功能一樣(多項選擇)。A.b=i\10Mod10 B.b=int(i/10)Mod10C.b=iMod100\10 D.b=Mid(i,3,1)2、用VB設(shè)計一個奇數(shù)遷移的程序,具體要求是:單擊“產(chǎn)生〞按鈕mand1,清空兩個列表框中的內(nèi)容,并產(chǎn)生10個3位自然數(shù)放入左邊列表框List1中,如圖1所示。單擊“奇數(shù)遷移〞按鈕mand2,將列表框List1中的所有奇數(shù)遷移到列表框List2中,如圖2所示。圖1圖2在以下VisualBasic程序的畫線①②處填入適宜的語句,實現(xiàn)上述功能。Dima(1To10)AsIntegerPrivateSubmand1_Click()List1.ClearList2.ClearRandomizeFori=1To10a(i)=Int(Rnd()*900+100)List1.AddItem①Ne*tiEndSubPrivateSubmand2_Click()List1.ClearFori=②Ifa(i)Mod2=1ThenList2.AddItema(i)ElseList1.AddItema(i)EndIfNe*tiEndSub3、小貝用VB6語言編寫了一個拼手氣紅包程序,實現(xiàn)的功能是:在文本框Te*t1中輸入發(fā)放紅包的總金額s,在文本框Te*t2中輸入發(fā)放紅包的個數(shù)n,單擊“發(fā)放紅包〞按鈕mand1,為n個紅包隨機(jī)分配金額,并在列表框List1中顯示分配后的這些金額。界面如圖1所示。圖1圖2(1)在設(shè)計應(yīng)用程序界面時,應(yīng)使用圖2所示“控件工具箱〞中的(填寫相應(yīng)編號)添加列表框List1。(2)為實現(xiàn)上述功能,請在橫線①②③處填入適宜代碼。PrivateSubmand1_Click()DimsAsSingle,*AsSingle,nAsInteger,iAsIntegerRandomizeList1.Clears=①n=Val(Te*t2.Te*t)Fori=1To②'通過循環(huán)語句產(chǎn)生n-1個紅包的隨機(jī)值*=Int((Rnd()*s/(n-i)+0.005)*100)/100List1.AddItemStr(*)s=③Ne*ti*=Int((s+0.005)*100)/100'產(chǎn)生最后一個紅包List1.AddItemStr(*)EndSub4、利用VisualBasic設(shè)計一個小寫轉(zhuǎn)大寫的程序:在文本框Te*t1中輸入一串字符,單擊“轉(zhuǎn)換〞按鈕mand1,將其中的小寫英文字母轉(zhuǎn)換為大寫英文字母后,在文本框Te*t2中顯示轉(zhuǎn)換后的字符串。程序運行界面如下列圖。(1)實現(xiàn)上述功能的VB代碼如下,在畫線處應(yīng)填入正確的語句以實現(xiàn)以上功能。PrivateSubmand1_Click()DimaAsString,bAsStringDimiAsInteger,cAsStringa=①Fori=1ToLen(a)c=Mid(a,i,1)If②Then

c=Chr(Asc(c)-32)EndIfb=b&cNe*tiTe*t2.Te*t=bEndSub(2)由程序可知,小寫字母比大寫字母的ASCII編碼值大。5、多數(shù)高次方程不存在求根公式,因此求準(zhǔn)確根非常困難,甚至不可能,從而尋找方程的近似根就顯得特別重要。由于數(shù)軸上的點是有序的,因此我們可以用對分查找法找出高次方程在*一區(qū)間的實根。即:不斷地將區(qū)間對分,使得區(qū)間中點的值不斷逼近方程的根。當(dāng)區(qū)間小于精度的時候,我們就停頓對分,并用此時區(qū)間的中點值作為方程的根。如求三次方程y=5*3-55*2+170*-130的實根,其函數(shù)圖像如圖1所示:圖1圖2觀察該函數(shù)圖像發(fā)現(xiàn)函數(shù)有一實根在區(qū)域(1,2)之間,因此我們?nèi)烧叩闹悬cm=(1+2)/2代入方程進(jìn)展檢測,發(fā)現(xiàn)f(1.5)=5*3-55*2+170*-130=18.125,因為f(1.5)>0,因此區(qū)間應(yīng)該往左移動,得下一個區(qū)間(1,1.5),然后繼續(xù)進(jìn)展檢測,如果區(qū)間差值≤誤差率,則認(rèn)為該中點是方程的根。根據(jù)上述方法描述,設(shè)計一個VB求解程序的根。程序運行界面如圖3所示,單擊求解按鈕mand1,在文本框Te*t1中顯示方程的根。圖3(1)為顯示函數(shù)的圖像,應(yīng)在窗體中放置的控件是。(填圖2中編號)(2)程序代碼如下,請在畫線處填寫正確的VB代碼。PrivateSubmand1_Click()DimiAsDouble,jAsDouble,mAsDoubleDimrAsDouble,yAsDoublei=1:j=2:y=1:r=j-iDoWhiley<>0Andr>0.00001 m=(i+j)/2 y=5*m^3-55m^2+170m-130 Ify>0Then① ElseIfy<0Theni=m EndIf r=②LoopTe*t1.Te*t=mEndSub6、現(xiàn)要用VB編寫一個“剪刀石頭布〞的游戲,游戲界面如圖1所示:圖1圖2點擊單項選擇框選擇剪刀或石頭或布,程序立即顯示相應(yīng)的圖像,同時電腦隨機(jī)出示一個剪刀或石頭或布,并顯示輸贏的結(jié)果在列表框List1中。(1)為顯示輸贏的結(jié)果,應(yīng)在窗體中參加一個列表框,應(yīng)使用圖2所示的控件工具箱中的(填寫相應(yīng)的編號)。(2)請根據(jù)題意將以下程序補(bǔ)充完整PrivateSubOption1_Click(Inde*AsInteger)'inde*表示所選的編號,剪刀為0石頭為1布為2,圖片文件名與此編號對應(yīng)Randomize*='產(chǎn)生[0,2]的隨機(jī)整數(shù)Image1.Picture=LoadPicture(*&″.jpg″)Image2.Picture=LoadPicture(Inde*&″.jpg″)IfInde*=0And*=0Thens=″平局″IfInde*=0And*=1Thens=″輸了″IfInde*=0And*=2Thens=″勝了″IfInde*=1And*=0Thens=″勝了″IfInde*=1And*=1Thens=″平局″IfInde*=1And*=2Thens=″輸了″IfInde*=2And*=0Thens=″輸了″IfInde*=2And*=1Thens=″勝了″IfInde*=2And*=2Thens=″平局″EndSub7、生活中,許多女士喜歡穿高跟鞋,那穿高跟鞋會使人感到美嗎?黃金分割能解釋這個問題。人體軀干與身高比例的黃金分割點是肚臍。換句話說,這一比值越接近0.618,愈給人美之感?，F(xiàn)按要求編寫“高跟鞋的最正確之選〞的VB程序(界面如右圖所示),實現(xiàn)如下功能:首先,設(shè)*女軀干a米和身高b米比為g,分別從文本框Te*t1和Te*t2中輸入。鞋跟高度s(單位與a、b一致)從Te*t3中輸入,則新比值g=(a+s)/(b+s),如果g=0.618,則鞋跟高度S的值就是最正確高度。(1)應(yīng)用程序界面設(shè)計時,為顯示新比值,需在窗體中添加控件,并將它的屬性值設(shè)置為空。(2)請根據(jù)題意將以下程序補(bǔ)充完整。PrivateSubmand1_Click()DimaAsSingle,bAsSingle,sAsSingle,gAsSingle a=Val(Te*t1.Te*t) b=Val(Te*t2.Te*t) s=Val(Te*t3.Te*t) Label5.Caption=①EndSub8、身體質(zhì)量指數(shù)BMI是目前國際上常用的衡量人體胖瘦程序以及是否安康的標(biāo)準(zhǔn)之一?？茖W(xué)家通過大量的統(tǒng)計、分析,推導(dǎo)出BMI值與體重(w,單位kg)成正比,與身高(h,單位m)的平方成反比。BMI=w/h2成人的BMI數(shù)值參考:偏瘦:低于20正常:20~25偏胖:高于25最理想的體重指數(shù)是:22下面VB程序的功能用于計算身體指數(shù)并判斷體型。在文本框Te*t1和Te*t2中輸入體重(w)和身高(h)的值,單擊“測試〞按鈕,在文本框Te*t3中顯示指數(shù)的值(結(jié)果取整),并根據(jù)此值在Label5中顯示相應(yīng)的體型參考和最理想體重(ok)。程序運行界面如下列圖:VB程序如下:PrivateSubmand1_Click()DimhAsSingle,wAsSingle,BMIAsSingle,okAsSingleh=Val(Te*t1.Te*t)w=Val(Te*t2.Te*t)BMI=①ok=Int(22h^2)Te*t3.Te*t=Str(BMI)If②Then

Label5.Caption=″偏瘦?！錏lseIfBMI<=25ThenLabel5.Caption=″正常?！錏lseLabel5.Caption=″偏胖?！錏ndIfLabel5.Caption=Label5.Caption+″最正確體重是″+Str(ok)+″kg″EndSub(1)程序中畫線①處應(yīng)填入的語句是。(2)程序中畫線②處應(yīng)填入的語句是。〔3〕程序中用到的算法是_______________________〔填寫：解析算法或枚舉算法〕9、(2021·4**學(xué)考)編寫VB程序,實現(xiàn)如下功能:在文本框Te*t1中輸入*一年份,單擊“天干地支與生肖〞按鈕mand1,在列表框List1中輸出該年份開場的12個年份及對應(yīng)的“天干地支〞與“生肖〞,運行界面如下列圖,程序代碼如下。(1)代碼“PrivateSubmand1_Click()〞中的Click是。(單項選擇,填字母:A.對象名/B.屬性名/C.事件名)(2)為實現(xiàn)上述功能,請在畫線處填入適宜的代碼。PrivateSubmand1_Click() DimaAsInteger,bAsInteger DimiAsInteger,nAsInteger Dimc1AsString,s1AsString Dimc2AsString,s2AsString Dimc3AsString,s3AsString List1.Clear s1=″甲乙丙丁戊己庚辛壬癸″ s2=″子丑寅卯辰巳午未申酉戌亥″ s3=″鼠?；⑼谬埳唏R羊猴雞狗豬″ n=Val(Te*t1.Te*t) Fori=nTo① a=(i+6)Mod10 b=(i+8)Mod12 c1=Mid(s1,a+1,1) c2=Mid(s2,b+1,1) c3=Mid(s3,b+1,1) List1.AddItem②+″年″+c1+c2+″″+c3

Ne*tiEndSub(3)由上述算法可知,2024年對應(yīng)的“天干地支〞為。10、*“擲骰子游戲〞的VB程序界面如以下列圖示,單擊按鈕mand1,在標(biāo)簽Label1上顯示點數(shù)(點數(shù)是1到6之間的整數(shù),含數(shù)字1和6),按鈕上文字由“甲方〞變?yōu)椤耙曳建?再次單擊按鈕上文字由“乙方〞變?yōu)椤凹追建暋?1)窗體標(biāo)題“擲骰子游戲〞是通過設(shè)置窗體的屬性值得到。(2)mand1對象的單擊事件處理過程如下:PrivateSubmand1_Click() Randomize *=① Label1.Caption=Str(*) If②Then

mand1.Caption=″乙方″ Elsemand1.Caption=″甲方″ EndIfEndSub為實現(xiàn)上述功能,在程序畫線處填入適當(dāng)?shù)恼Z句和代碼,把程序補(bǔ)充完整。程序①處的語句為。程序②處的語句為。答案1、(1)①a=iMod10②s+1(2)AB2、①str(a(i))②1To10Step1或1to10解析：①處是把產(chǎn)生的隨機(jī)3位自然數(shù)a(i)顯示在列表框List1中,所以該處填“a(i)〞;②處循環(huán)依次判斷數(shù)組a中元素的奇偶性,所以該填“1To10〞或“1To10Step1〞。3、(1)4(2)①Val(Te*t1.Te*t)②n-1③s-*解析：(1)工具箱中1是標(biāo)簽,2是文本框,3是復(fù)選框,4是列表框。(2)①變量s存放發(fā)放紅包的總金額,該數(shù)據(jù)來自文本框Te*t1的Te*t屬性;②由提示可知,循環(huán)次數(shù)是n-1;③每發(fā)放一個紅包*后,總金額s須減去*。4、(1)①Te*t1.Te*t②c>=″a″Andc<=″z″(2)32解析：(1)①變量a存儲文本框Te*t1中輸入的字符,所以①處填Te*t1.Te*t。②處判斷c中的字符是否為小寫字母,可用表達(dá)式c>=″a″Andc<=″z″進(jìn)展判斷。(2)程序中的語句c=Chr(Asc(c)-32)就將小寫字母轉(zhuǎn)換為大寫字母,由此可知,小寫字母比大寫字母的ASCII編碼值大32。5、(1)3(2)①j=m②j-i解析：(1)顯示圖像的控件是image。(2)程序中,變量i表示根區(qū)間起始點,j表示根區(qū)間完畢點,m為中點,r為誤差率,r=j-i。循環(huán)中,首先算出中點值m,再計算方程的值y,如果y>0,則區(qū)間應(yīng)該往左移動,完畢點j=m,如果y<0,則區(qū)間應(yīng)該往右移動,起始點i=m。6、(1)4(2)Int(Rnd*3)〔3〕List1.Addit