高中信息技術VB專項題學考

1、1.“四葉玫瑰數(shù)”是指一個四位自然數(shù)各位上數(shù)字的四次方之和等于該四位數(shù)本身的數(shù)。如自然數(shù)8208=84+24+84”,那它就是一個“四葉玫瑰數(shù)”?，F(xiàn)用VB編寫一個程序,實現(xiàn)如下功能:單擊“查找”按鈕Command1,在列表框List1中顯示所有“四葉玫瑰數(shù)”,并在標簽Label2中顯示找到的個數(shù),運行界面如下圖所示:(1)為實現(xiàn)上述功能,請在畫線處填入正確的代碼。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 '取出個位數(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) + 個End Sub(2)程序中的語句“b = (i Mod 100) 10”和下列哪些項功能相同(多選)。 A.b=i10 Mod 10B.b

3、=int(i/10) Mod 10C.b = i Mod 10010D.b=Mid(i,3,1)2、用VB設計一個奇數(shù)遷移的程序,具體要求是:單擊“產生”按鈕Command1,清空兩個列表框中的內容,并產生10個3位自然數(shù)放入左邊列表框List1中,如圖1所示。單擊“奇數(shù)遷移”按鈕Command2,將列表框List1中的所有奇數(shù)遷移到列表框List2中,如圖2所示。 圖1 圖2在以下Visual Basic程序的畫線處填入合適的語句,實現(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語言編寫了一個拼手氣紅包程序,實現(xiàn)的功能是:在文本框Text1中輸入發(fā)放紅包的總金額s,在文本框Text2中輸入發(fā)放紅包的個數(shù)n,單擊“發(fā)放紅包”

5、按鈕Command1,為n個紅包隨機分配金額,并在列表框List1中顯示分配后的這些金額。界面如圖1所示。圖1圖2(1)在設計應用程序界面時,應使用圖2所示“控件工具箱”中的(填寫相應編號)添加列表框List1。 (2)為實現(xiàn)上述功能,請在橫線處填入合適代碼。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 '通過循環(huán)語句產生n-1個紅包的隨機值 

6、;x=Int(Rnd()*s/(n-i)+0.005)*100)/100List1.AddItemStr(x)s= Nextix=Int(s+0.005)*100)/100'產生最后一個紅包List1.AddItemStr(x)EndSub4、利用Visual Basic設計一個小寫轉大寫的程序:在文本框Text1中輸入一串字符,單擊“轉換”按鈕Command1,將其中的小寫英文字母轉換為大寫英文字母后,在文本框Text2中顯示轉換后的字符串。程序運行界面如圖所示。(1)實現(xiàn)上述功能的VB代碼如下,在畫線處應填入正確的語句以實現(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)由程序可知,小寫字母比大寫字母的ASCII編碼值大。5、多數(shù)高次方程不存在求根公式,因此求精確根非常困難,甚至不可能,從而尋找方程的近似根就顯得特別重要。由于數(shù)軸上的點是有序的,因此我們可以用對分查找法找出高次方程在某一區(qū)間的實根。即:不斷地將區(qū)間對

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

9、ommand1,在文本框Text1中顯示方程的根。圖3(1)為顯示函數(shù)的圖像,應在窗體中放置的控件是。(填圖2中編號) (2)程序代碼如下,請在畫線處填寫正確的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編寫一個“剪刀石頭布”的游戲,游戲界面如圖1所示:圖1圖2點擊單選框選擇剪刀或石頭或布,程序立即顯示相應的圖像,同時電腦隨機出示一個剪刀或石頭或布,并顯示輸贏的結果在列表框List1中。(1)為顯示輸贏的結果,應在窗體中加入一個列表框,應使用圖2所示的控件工具箱中的(填寫相應的編號)。 (2)請根據(jù)題意將下列程序補充完整Private Sub Option1_Click(Index A

11、s Integer)'index表示所選的編號,剪刀為0石頭為1布為2,圖片文件名與此編號對應Randomizex='產生0,2的隨機整數(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、生活中,許多女士喜歡穿高跟鞋,那穿高跟鞋會使人感到美嗎?黃金分割能解釋這個問題。人體軀干與身高比例的黃金分割點是肚臍。換句話說,這一比值越接近0.618,愈給人美之感?，F(xiàn)按要求編寫“高跟鞋的最佳之選”的VB程序(界面如右圖所示),實現(xiàn)如下功能:首先,設某女軀干a米和身高b米比為g,分別從文本框Text1和Text2中輸入。鞋跟高度s

13、(單位與a、b一致)從Text3中輸入,那么新比值g=(a+s)/(b+s),如果g=0.618,那么鞋跟高度S的值就是最佳高度。(1)應用程序界面設計時,為顯示新比值,需在窗體中添加控件,并將它的屬性值設置為空。 (2)請根據(jù)題意將下列程序補充完整。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、身體質量指數(shù)BMI

14、是目前國際上常用的衡量人體胖瘦程序以及是否健康的標準之一?？茖W家通過大量的統(tǒng)計、分析,推導出BMI值與體重(w,單位kg)成正比,與身高(h,單位m)的平方成反比。BMI=w/h2成人的BMI數(shù)值參考:偏瘦:低于20正常:2025偏胖:高于25最理想的體重指數(shù)是:22下面VB程序的功能用于計算身體指數(shù)并判斷體型。在文本框Text1和Text2中輸入體重(w)和身高(h)的值,單擊“測試”按鈕,在文本框Text3中顯示指數(shù)的值(結果取整),并根據(jù)此值在Label5中顯示相應的體型參考和最理想體重(ok)。程序運行界面如圖所示: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)程序中畫線處應填入的語句是。 (2)程序中畫線處應填入的語句是。 （3）程序中用到的算法是_（填寫：解析算法或枚舉算法）9、(2016·4浙江學考)編寫VB程序,實現(xiàn)如下功能:在文本框Text1中輸入某一年份,單擊“天干地支與生肖”按鈕Command1,在列表框List1中輸出該年份開始的12個年份及對應的“天干地支”與“生肖”,運行界面如圖所示,程序代碼如下。(1)代碼“Private Sub Command1_Click( )”中的Click是。(單選,填字母:A.對象名/B.屬性名/C.事件名) (2)為

17、實現(xiàn)上述功能,請在畫線處填入合適的代碼。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年對應的“天干地支”為。 10、某“擲骰子游戲”的VB程序界面如下圖示,單擊按鈕Command1,在標簽Label1上顯示點數(shù)(點數(shù)是1到6之間的整數(shù),含數(shù)字1和6),按鈕上文字由“甲方”變?yōu)椤耙曳健?再次單擊按鈕上文字由“乙方”變?yōu)椤凹追健薄?1)窗體標題“擲骰子游戲”是通過設置窗體的屬性值得到。 (2)C

19、ommand1對象的單擊事件處理過程如下:Private Sub Command1_Click( )Randomizex= Label1.Caption=Str(x)IfThen Command1.Caption=乙方ElseCommand1.Caption=甲方End IfEnd Sub為實現(xiàn)上述功能,在程序畫線處填入適當?shù)恼Z句和代碼,把程序補充完整。程序處的語句為。 程序處的語句為。 答案1、(1)a=i Mod 10s+1 (2)AB2、str(a(i)1 To 10 Step 1或1 to 10解析： 處是把產生的隨機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是標簽,2是文本框,3是復選框,4是列表框。(2)變量s存放發(fā)放紅包的總金額,該數(shù)據(jù)來自文本框Text1的Text屬性;由提示可知,循環(huán)次數(shù)是n-1;每發(fā)放一個紅包x后,總金額s須減去x。4、(1)Text1.Textc>=a And c<=z(2)32解析： (1)變量a存儲文本框Text1中輸入的字符,所以處填Text1.Text。處判斷c中的字符是否為小寫字

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