高中信息技術(shù)VB專(zhuān)項(xiàng)題學(xué)考

1、1.“四葉玫瑰數(shù)”是指一個(gè)四位自然數(shù)各位上數(shù)字的四次方之和等于該四位數(shù)本身的數(shù)。如自然數(shù)8208=84+24+84”,那它就是一個(gè)“四葉玫瑰數(shù)”。現(xiàn)用VB編寫(xiě)一個(gè)程序,實(shí)現(xiàn)如下功能:單擊“查找”按鈕Command1,在列表框List1中顯示所有“四葉玫瑰數(shù)”,并在標(biāo)簽Label2中顯示找到的個(gè)數(shù),運(yùn)行界面如下圖所示:(1)為實(shí)現(xiàn)上述功能,請(qǐng)?jiān)诋?huà)線處填入正確的代碼。Private Sub Command1_Click()Dim i As Integer, s As IntegerDim a As Integer, b As Integer, c As Integer, d As Integers

2、 = 0For i = 1 000 To 9 999 '取出個(gè)位數(shù)字 b = (i Mod 100)10 '取出十位數(shù)字c = i 100 Mod 10 '取出百位數(shù)字d = i 1 000 '取出千位數(shù)字If a 4+ b 4 + c 4 + d 4 = i ThenList1.AddItem is = End IfNextLabel2.Caption = 四葉玫瑰數(shù)共有+ Str(s) + 個(gè)End Sub(2)程序中的語(yǔ)句“b = (i Mod 100) 10”和下列哪些項(xiàng)功能相同(多選)。 A.b=i10 Mod 10B.b

3、=int(i/10) Mod 10C.b = i Mod 10010D.b=Mid(i,3,1)2、用VB設(shè)計(jì)一個(gè)奇數(shù)遷移的程序,具體要求是:單擊“產(chǎn)生”按鈕Command1,清空兩個(gè)列表框中的內(nèi)容,并產(chǎn)生10個(gè)3位自然數(shù)放入左邊列表框List1中,如圖1所示。單擊“奇數(shù)遷移”按鈕Command2,將列表框List1中的所有奇數(shù)遷移到列表框List2中,如圖2所示。 圖1 圖2在以下Visual Basic程序的畫(huà)線處填入合適的語(yǔ)句,實(shí)現(xiàn)上述功能。Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()List1.ClearList2.Clea

4、rRandomizeFor i = 1 To 10a(i) = Int(Rnd() * 900 + 100)List1.AddItem Next iEnd SubPrivate Sub Command2_Click()List1.ClearFor i = If a(i) Mod 2 = 1 ThenList2.AddItem a(i)ElseList1.AddItem a(i)End IfNext iEnd Sub3、小貝用VB6語(yǔ)言編寫(xiě)了一個(gè)拼手氣紅包程序,實(shí)現(xiàn)的功能是:在文本框Text1中輸入發(fā)放紅包的總金額s,在文本框Text2中輸入發(fā)放紅包的個(gè)數(shù)n,單擊“發(fā)放紅包”

5、按鈕Command1,為n個(gè)紅包隨機(jī)分配金額,并在列表框List1中顯示分配后的這些金額。界面如圖1所示。圖1圖2(1)在設(shè)計(jì)應(yīng)用程序界面時(shí),應(yīng)使用圖2所示“控件工具箱”中的(填寫(xiě)相應(yīng)編號(hào))添加列表框List1。 (2)為實(shí)現(xiàn)上述功能,請(qǐng)?jiān)跈M線處填入合適代碼。Private Sub Command1_Click()Dim s As Single,x As Single,n As Integer,i As IntegerRandomizeList1.Clears= n=Val(Text2.Text)For i=1 To '通過(guò)循環(huán)語(yǔ)句產(chǎn)生n-1個(gè)紅包的隨機(jī)值 

6、;x=Int(Rnd()*s/(n-i)+0.005)*100)/100List1.AddItemStr(x)s= Nextix=Int(s+0.005)*100)/100'產(chǎn)生最后一個(gè)紅包List1.AddItemStr(x)EndSub4、利用Visual Basic設(shè)計(jì)一個(gè)小寫(xiě)轉(zhuǎn)大寫(xiě)的程序:在文本框Text1中輸入一串字符,單擊“轉(zhuǎn)換”按鈕Command1,將其中的小寫(xiě)英文字母轉(zhuǎn)換為大寫(xiě)英文字母后,在文本框Text2中顯示轉(zhuǎn)換后的字符串。程序運(yùn)行界面如圖所示。(1)實(shí)現(xiàn)上述功能的VB代碼如下,在畫(huà)線處應(yīng)填入正確的語(yǔ)句以實(shí)現(xiàn)以上功能。Private Sub Command

7、1_Click()Dim a As String,b As StringDim i As Integer,c As Stringa= For i=1 To Len(a)c=Mid(a,i,1)If Then c=Chr(Asc(c)-32)End Ifb=b & cNext iText2.Text=bEnd Sub(2)由程序可知,小寫(xiě)字母比大寫(xiě)字母的ASCII編碼值大。5、多數(shù)高次方程不存在求根公式,因此求精確根非常困難,甚至不可能,從而尋找方程的近似根就顯得特別重要。由于數(shù)軸上的點(diǎn)是有序的,因此我們可以用對(duì)分查找法找出高次方程在某一區(qū)間的實(shí)根。即:不斷地將區(qū)間對(duì)

8、分,使得區(qū)間中點(diǎn)的值不斷逼近方程的根。當(dāng)區(qū)間小于精度的時(shí)候,我們就停止對(duì)分,并用此時(shí)區(qū)間的中點(diǎn)值作為方程的根。如求三次方程y=5x3-55x2+170x-130的實(shí)根,其函數(shù)圖像如圖1所示: 圖1 圖2觀察該函數(shù)圖像發(fā)現(xiàn)函數(shù)有一實(shí)根在區(qū)域(1,2)之間,因此我們?nèi)烧叩闹悬c(diǎn)m=(1+2)/2代入方程進(jìn)行檢測(cè),發(fā)現(xiàn)f(1.5)=5x3-55x2+170x-130=18.125,因?yàn)閒(1.5)>0,因此區(qū)間應(yīng)該往左移動(dòng),得下一個(gè)區(qū)間(1,1.5),然后繼續(xù)進(jìn)行檢測(cè),如果區(qū)間差值誤差率,則認(rèn)為該中點(diǎn)是方程的根。根據(jù)上述方法描述,設(shè)計(jì)一個(gè)VB求解程序的根。程序運(yùn)行界面如圖3所示,單擊求解按鈕C

9、ommand1,在文本框Text1中顯示方程的根。圖3(1)為顯示函數(shù)的圖像,應(yīng)在窗體中放置的控件是。(填圖2中編號(hào)) (2)程序代碼如下,請(qǐng)?jiān)诋?huà)線處填寫(xiě)正確的VB代碼。Private Sub Command1_Click()Dim i As Double, j As Double, m As DoubleDim r As Double , y As Double i=1:j=2:y=1:r=j-iDo While y <> 0 And r > 0.00001m=(i + j) / 2y=5 * m 3 - 55􀆽 m 2 + 170⣺

10、21; m - 130If y > 0 Then ElseIf y < 0 Theni=mEnd Ifr= LoopText1.Text =mEnd Sub6、現(xiàn)要用VB編寫(xiě)一個(gè)“剪刀石頭布”的游戲,游戲界面如圖1所示:圖1圖2點(diǎn)擊單選框選擇剪刀或石頭或布,程序立即顯示相應(yīng)的圖像,同時(shí)電腦隨機(jī)出示一個(gè)剪刀或石頭或布,并顯示輸贏的結(jié)果在列表框List1中。(1)為顯示輸贏的結(jié)果,應(yīng)在窗體中加入一個(gè)列表框,應(yīng)使用圖2所示的控件工具箱中的(填寫(xiě)相應(yīng)的編號(hào))。 (2)請(qǐng)根據(jù)題意將下列程序補(bǔ)充完整Private Sub Option1_Click(Index A

11、s Integer)'index表示所選的編號(hào),剪刀為0石頭為1布為2,圖片文件名與此編號(hào)對(duì)應(yīng)Randomizex='產(chǎn)生0,2的隨機(jī)整數(shù) Image1.Picture=Load Picture(x &.jpg)Image2.Picture=Load Picture(Index &.jpg)If Index=0 And x=0 Then s=平局If Index=0 And x=1 Then s=輸了If Index=0 And x=2 Then s=勝了If Index=1 And x=0 Then s=勝了If Index=1 And x=1 Th

12、en s=平局If Index=1 And x=2 Then s=輸了If Index=2 And x=0 Then s=輸了If Index=2 And x=1 Then s=勝了If Index=2 And x=2 Then s=平局 EndSub7、生活中,許多女士喜歡穿高跟鞋,那穿高跟鞋會(huì)使人感到美嗎?黃金分割能解釋這個(gè)問(wèn)題。人體軀干與身高比例的黃金分割點(diǎn)是肚臍。換句話說(shuō),這一比值越接近0.618,愈給人美之感。現(xiàn)按要求編寫(xiě)“高跟鞋的最佳之選”的VB程序(界面如右圖所示),實(shí)現(xiàn)如下功能:首先,設(shè)某女軀干a米和身高b米比為g,分別從文本框Text1和Text2中輸入。鞋跟高度s

13、(單位與a、b一致)從Text3中輸入,那么新比值g=(a+s)/(b+s),如果g=0.618,那么鞋跟高度S的值就是最佳高度。(1)應(yīng)用程序界面設(shè)計(jì)時(shí),為顯示新比值,需在窗體中添加控件,并將它的屬性值設(shè)置為空。 (2)請(qǐng)根據(jù)題意將下列程序補(bǔ)充完整。Private Sub Command1_Click()Dim a As Single,b As Single,s As Single,g As Singlea=Val(Text1.Text)b=Val(Text2.Text)s=Val(Text3.Text)Label5.Caption= End Sub8、身體質(zhì)量指數(shù)BMI

14、是目前國(guó)際上常用的衡量人體胖瘦程序以及是否健康的標(biāo)準(zhǔn)之一?？茖W(xué)家通過(guò)大量的統(tǒng)計(jì)、分析,推導(dǎo)出BMI值與體重(w,單位kg)成正比,與身高(h,單位m)的平方成反比。BMI=w/h2成人的BMI數(shù)值參考:偏瘦:低于20正常:2025偏胖:高于25最理想的體重指數(shù)是:22下面VB程序的功能用于計(jì)算身體指數(shù)并判斷體型。在文本框Text1和Text2中輸入體重(w)和身高(h)的值,單擊“測(cè)試”按鈕,在文本框Text3中顯示指數(shù)的值(結(jié)果取整),并根據(jù)此值在Label5中顯示相應(yīng)的體型參考和最理想體重(ok)。程序運(yùn)行界面如圖所示:VB程序如下:Private Sub Command1_Click()

15、Dim h As Single, w As Single, BMI As Single, ok As Singleh =Val(Text1.Text)w =Val(Text2.Text)BMI = ok = Int(22 􀆽 h 2)Text3.Text =Str(BMI)If Then Label5.Caption = 偏瘦。ElseIf BMI <= 25 ThenLabel5.Caption = 正常。ElseLabel5.Caption = 偏胖。End IfLabel5.Caption = Label5.Caption + 最佳體重是 +

16、Str(ok) + kgEnd Sub(1)程序中畫(huà)線處應(yīng)填入的語(yǔ)句是。 (2)程序中畫(huà)線處應(yīng)填入的語(yǔ)句是。 （3）程序中用到的算法是_（填寫(xiě)：解析算法或枚舉算法）9、(2016·4浙江學(xué)考)編寫(xiě)VB程序,實(shí)現(xiàn)如下功能:在文本框Text1中輸入某一年份,單擊“天干地支與生肖”按鈕Command1,在列表框List1中輸出該年份開(kāi)始的12個(gè)年份及對(duì)應(yīng)的“天干地支”與“生肖”,運(yùn)行界面如圖所示,程序代碼如下。(1)代碼“Private Sub Command1_Click( )”中的Click是。(單選,填字母:A.對(duì)象名/B.屬性名/C.事件名) (2)為

17、實(shí)現(xiàn)上述功能,請(qǐng)?jiān)诋?huà)線處填入合適的代碼。Private Sub Command1_Click( )Dim a As Integer, b As IntegerDim i As Integer, n As IntegerDim c1 As String, s1 As StringDim c2 As String, s2 As StringDim c3 As String, s3 As StringList1.Clears1=甲乙丙丁戊己庚辛壬癸s2=子丑寅卯辰巳午未申酉戌亥s3=鼠?；⑼谬埳唏R羊猴雞狗豬n=Val(Text1.Text)For i=n To  a=(i+6) Mod 1

18、0b=(i+8) Mod 12c1=Mid(s1, a+1, 1)c2=Mid(s2, b+1, 1)c3=Mid(s3, b+1, 1)List1.AddItem+年 + c1 + c2 + + c3 Next iEnd Sub(3)由上述算法可知,2024年對(duì)應(yīng)的“天干地支”為。 10、某“擲骰子游戲”的VB程序界面如下圖示,單擊按鈕Command1,在標(biāo)簽Label1上顯示點(diǎn)數(shù)(點(diǎn)數(shù)是1到6之間的整數(shù),含數(shù)字1和6),按鈕上文字由“甲方”變?yōu)椤耙曳健?再次單擊按鈕上文字由“乙方”變?yōu)椤凹追健薄?1)窗體標(biāo)題“擲骰子游戲”是通過(guò)設(shè)置窗體的屬性值得到。 (2)C

19、ommand1對(duì)象的單擊事件處理過(guò)程如下:Private Sub Command1_Click( )Randomizex= Label1.Caption=Str(x)IfThen Command1.Caption=乙方ElseCommand1.Caption=甲方End IfEnd Sub為實(shí)現(xiàn)上述功能,在程序畫(huà)線處填入適當(dāng)?shù)恼Z(yǔ)句和代碼,把程序補(bǔ)充完整。程序處的語(yǔ)句為。 程序處的語(yǔ)句為。 答案1、(1)a=i Mod 10s+1 (2)AB2、str(a(i)1 To 10 Step 1或1 to 10解析： 處是把產(chǎn)生的隨機(jī)3位自然數(shù)a(i)顯示在列表

20、框List1中,所以該處填“a(i)”;處循環(huán)依次判斷數(shù)組a中元素的奇偶性,所以該填“1 To 10”或“1 To 10 Step1”。3、(1)4 (2)Val(Text1.Text)n-1s-x解析： (1)工具箱中1是標(biāo)簽,2是文本框,3是復(fù)選框,4是列表框。(2)變量s存放發(fā)放紅包的總金額,該數(shù)據(jù)來(lái)自文本框Text1的Text屬性;由提示可知,循環(huán)次數(shù)是n-1;每發(fā)放一個(gè)紅包x后,總金額s須減去x。4、(1)Text1.Textc>=a And c<=z(2)32解析： (1)變量a存儲(chǔ)文本框Text1中輸入的字符,所以處填Text1.Text。處判斷c中的字符是否為小寫(xiě)字

21、母,可用表達(dá)式c>=aAnd c<=z進(jìn)行判斷。(2)程序中的語(yǔ)句c=Chr(Asc(c)-32)就將小寫(xiě)字母轉(zhuǎn)換為大寫(xiě)字母,由此可知,小寫(xiě)字母比大寫(xiě)字母的ASCII編碼值大32。5、(1)3(2)j=mj-i解析： (1)顯示圖像的控件是image。(2)程序中,變量i表示根區(qū)間起始點(diǎn),j表示根區(qū)間結(jié)束點(diǎn),m為中點(diǎn),r為誤差率,r=j-i。循環(huán)中,首先算出中點(diǎn)值m,再計(jì)算方程的值y,如果y>0,則區(qū)間應(yīng)該往左移動(dòng),結(jié)束點(diǎn)j=m,如果y<0,則區(qū)間應(yīng)該往右移動(dòng),起始點(diǎn)i=m。6、(1)4(2)Int(Rnd*3) （3） List1.Additem s解析： 程序通過(guò)9個(gè)If語(yǔ)句判斷勝負(fù)情況,結(jié)果存放在變