資源簡介

4.1解析法訓練1
學校:___________姓名：___________班級：___________考號：___________
一、選擇題
1．某VB程序段如下：
Text1.Text = ""
For i=1 To 10
b(a(i) Mod 10) = b(a(i) Mod 10)+1
Next i
For i=0 To 9
If b(i) Mod 2 = 1 Then
Text1.Text = Text1.Text + Str(i) + Str(b(i))
End If
Next i
數組b各元素初值為0，數組元素a(1)到a(10)的值依次為57，23，43，20，18，30，47，70，77，36，執行該程序段后，文本框Text1中顯示的內容為（ ）
A．3 3 7 7 7 B．0 3 6 1 3 2 7 3
C．0 3 6 1 7 3 8 1 D．0 3 6 1 7 7 7 8
2．為了保護學生視力，教室里安裝了不少日光燈管。假設每個教室有40W燈管18個，每個整流器5W，每度電0.55元，每天用電12小時，每個教室每天的電費要多少？編程解決此問題最合適的算法是（ ）。
A．順序查找算法 B．解析法 C．遞歸算法 D．窮舉法
3．執行如下VB程序段，則s的值是（ ）
s=56s1=s\10 s2=s Mod 10 s=s1+s2*10 Print"s=";s
A．5.6 B．6.5 C．56 D．65
4．下列問題適合用解析算法求解的是（ ）
A．尋找一堆彩球中所有的紅球 B．計算一個球從100米高的樓頂掉下來的落地速度
C．將全班同學按身高從低到高排隊 D．從電子詞庫中找到Infomation這個單詞
5．運行下列VB程序，在文本框Text1中輸入十進制數22，單擊按鈕后，在標簽Label1輸出轉換后的五進制數。
Private sub Command1_Click()
Dim y As Integer
Dim s As String,Dim r As Integer
y= Val(Text1. Text)
s=" "
Do While y < > 0
Loop
Labell. Caption =s
End sub
方框中的代碼由以下三部分組成：
①s=Str(r)+s ②r=y Mod 5 ③y=y\5
代碼順序正確的選項是（ ）。
A．①②③ B．③②① C．②①③ D．③①②
6．以下VB程序段的功能是：單擊一次按鈕 Command1，在列表List1中隨機輸出一行10個大小寫字母。已知字母“A”和“a”的ASCII碼值分別為65和97。
Private Sub Command1_Click()
Dim s As String，c As String，i As String，a As String，t As Integer
Randomize
s=" "
For i= 1 To 10
①
If a <=26 Then
t=a+64
Else
②
End If
c= Chr(t)
s=s+c
Next i
List1. AddItem s
End sub
以上橫線處的正確語句是（ ）。
A．①a=Int(Rnd*52+1) ②t=a+70
B．①a=Int(Rnd*52) ②t=a+71
C．①a=Int(Rnd*52+1) ②t=a+72
D．①a=Int(Rnd*52) ②t=a+73
7．下列VB程序段實現求雙重數列0，2，1，4，1，6，2，8，3，10，5，12，8，……前n項中的奇數項和。
Dim a(1 To 100)As Integer
n= Val(Text1. Text)
a(1)=0:a(3)=1
s=1
Next i
Text2. Text= Str(s)
方框中的代碼由以下三部分組成：
①a(i)=a(i-2)+a(i-4) ②s=s+a(i) ③For i=5 To n Step2
代碼順序正確的選項是（ ）。
A．①②③ B．③②① C．②①③ D．③①②
8．對用戶輸入的字符串進行解密的VB程序段如下：
s= Text. Text
For i =1 To Len(s)
ch= Mid(s,i,1)
nk=Asc(ch)-i
If nk <0 Then nk nk+127
Text2. Text= Text2 Text Chr(nk)
Next i
已知大寫字母A的ASCII碼值為65，小寫字母a的ASCII碼值為97，在文本框Text1中輸入內容“yhT5”，執行程序段后，文本框Text2顯示的內容為（ ）。
A．YHt5 B．xgS4 C．zjw9 D．xfQ1
9．某排序算法，VB代碼如下：
i=1
Do While i<=5
If i = 0 or a(i – 1)<= a(i) Then
i=i+1
Else
t=a(i):a(i)=a(i-1):a(i-1)=t
i=i-1
End If
Loop
數組元素a(0)到a(5)依次為：“0，41，22，53，99，36”，經過該程序段處理后，數組元素a(3)的值為（ ）
A．36 B．53 C．41 D．22
10．某對分查找算法的VB程序段如下：
i=1:j=6:n=0:f=False
key=Val(Text1.Text)
Do While i<=j and Not f
n=n+1
m=Fix((i+j)/2)
If key=a(m)then f=True
If keyLoop
數組元素a(1)到a(6)的值依次為“12，19，27，31，46，55”，文本框Text 1中輸入“31”后運行該程序，則以上程序段運行結束后，下列說法不正確的是（ ）
A．變量i的值為4
B．變量j的值為4
C．變量m的值為4
D．變量n的值為3
11．“不重復數”的特征是任何相鄰兩個數位上的數字都不相同。如1101是重復數，1201是不重復數。判斷某數是不是重復數的VB程序段如下：
s = Text1.Text
（1）
i = 1: flag = True
Do While i <= n - 1 And flag
If （2） Then flag = False
i = i + 1
Loop
If （3） Then
Label1.Caption = "重復數"
Else
Label1.Caption = "不重復數"
End If
上述程序中方框處可選語句為：
①flag=False
②n=Len(s)
③Mid(s,i,1)=Mid(s,i+1,1)
則（1）、（2）、（3）處語句依次是（ ）
A．② ③ ① B．① ③ ② C．② ① ③ D．③ ② ①
12．編寫一個二進制列表程序；功能如下；在文本框Textl中輸入位數n，單擊“顯示”按鈕Command1，在列表框Listl中順序顯示n位二進制編碼。程序界面及代碼如下。
Private Sub Commandl_Click
Dim tmp As String
Dim n As Integer, t As Integer
Dim i As Integer, j As Integer, k As Integer
n=Val(Textl. Text)
For i=0 To （1） _
tmp=""
k=i .
For j=1 To n
t=k Mod 2
（2）
（3）
Next j
Listl. AddItem tmp
Next i
End Sub
可選的代碼如下:
①2^n―1 ②2^n ③k=k\2 ④t=t\2
⑤tmp=Str(t)＋tmp ⑥tmp=tmp＋Str(t)
則程序（1），（2），（3）處的代碼依次為（ ）
A．①⑤③ B．②④⑥ C．②⑤④ D．①⑥③
13．以下兩個VB程序段，其中變量m和n為正整數，下列說法不正確的是（ ）
程序1： If mm n=n-m Loop Loop Textl.Text=Str（n）
A．“程序1”和“程序2”中的代碼實現相同的功能
B．若變量m和n的值為25，35，則“程序1”代碼運行后文本框Text1顯示“5”
C．“程序2”中的輸出語句改為Textl.Text=Str(m)，會影響文本框Textl顯示的內容
D．若變量m和n的值為11，7，則“程序2”代碼運行后文本框Text1顯示“1”
14．兩個阻值分別為R1、R2的電阻并聯后，電路阻值R可由公式1/R=1/R1+1/R2求解，下面能正確求出R的VB表達式是（ ）
A．R1+R2/(R1*R2) B．R1*R2/(R1+R2)
C．R1*R2/ R1+R2 D．(R1+R2) /(R1*R2)
15．已知海倫公式：s=√p(p-a)(p-b)(p-c)，p=(a+b+c)/2，a、b、c分別為三角形的邊長，利用海倫公式求三角形面積的算法屬于（ ）
A．解析法 B．查找法 C．排序法 D．窮舉法
16．一元二次方程 ax^2 +bx + c=0 有兩個不相等的實數解的條件是( )
A．a<>0 And b*b-4*a*c>0 B．b*b-4*a*c>0
C．a<>0 D．a<>0 Or b*b-4*a*c>0
參考答案：
1．C
【詳解】本題考查的知識點是VB程序的解析算法。本程序實現的統計數組a中每個個位數字的個數，并以（奇數數字個數 被統計的奇數個位數字）的格式排列出來。第一個循環統計數組a中每個個位數字的個數，執行后b(0)=3，b(3)=2，b(6)=1，b(7)=3，b(8)=1；第二個循環首先判斷該數組b元素是否奇數，是的話將該數字個數和被統計的個位數字添加到text1.Text中。數組a中個位數是0的數字有3個，個位數是6的數字有1個，個位數7有3個，個位數8有1個，組合起來就是0 3 6 1 7 3 8 1，故選項C正確。
2．B
【詳解】本題考查常用算法。題中的電費能夠使用數學的解析表達式來計算，所以編程解決此問題最合適的算法是解析法，選項B正確。
3．D
【詳解】本題考查的知識點是程序分析。s1=5，s2=6，最終s=5+6*10=65。故正確答案為D選項。
4．B
【詳解】本題考查解析算法。解析算法是指用解析的方法找出表示問題的前提條件與結果之間關系的數學表達式，并通過表達式的計算來實現問題求解，選項B涉及計算問題，適合用解析算法求解，故答案應選B選項。
5．C
【詳解】本題主要考查VB程序段的閱讀。十進制數轉換為五進制數采用的是除五倒取余的方法；變量r用于存放余數，變量s用于存放最后的結果；變量y用于存放整數部分，先取余。故選項C正確。
6．A
【詳解】本題考查的知識點是VB函數及函數運算。a表示隨機產生字母在字母表中位置，范圍在[1，52]，a小于等于26為大寫字母，對應ASCII碼值為a+64，a大于26時為小寫字母，對應ASCII碼值為a+70。例如當a=27時，對應小寫a的內碼是97。故選項A正確。
7．D
【詳解】本題考查的知識點是VB函數的解讀。前n項中奇數項之和，只要在循環中，把奇數項挑選出來，并相加即可。循環初值為奇數項，步長為2即③For i=5 To n Step2，a(i)的值是它之前兩個奇數項之和，即①a(i)=a(i-2)+a(i-4)，前i項的奇數項之和s=s+a(i)，故選項D正確。
8．D
【詳解】本題考查的知識點是VB函數的解讀。語句nk=Asc(ch)-i將字母前移i個位置，y移動1為x，h移動2為f。故選項D正確。
9．C
【詳解】本題考查對Do While循環程序段的分析。當i=1時，循環條件成立，塊If條件中a(i-1)<=a(i)成立，變量i變為2；當i=2時，循環條件成立，塊If條件中a(i-1)<=a(i)不成立，交換a(i-1)與a(i)的值，a(1)=22，a(2)=41，變量i變為1；當i=1時，循環條件成立，塊If條件中a(i-1)<=a(i)成立，變量i變為2；當i=2時，循環條件成立，塊If條件中a(i-1)<=a(i)成立，變量i變為3；當i=3時，循環條件成立，塊If條件中a(i-1)<=a(i)成立，變量i變為4；當i=4時，循環條件成立，塊If條件中a(i-1)<=a(i)成立，變量i變為5；當i=5時，循環條件成立，塊If條件中a(i-1)<=a(i)不成立，交換a(i-1)與a(i)的值，a(4)=36，a(5)=99，變量i變為4；當i=4時，循環條件成立，塊1f條件中a(i-1)<=a(i)不成立，交換a(i-1)與a(i)的值，a(3)=36，a(4)=53，變量i變為3；當i=3時，循環條件成立，塊If條件中a(i-1)<=a(i)不成立，交換a(i-1)與a(i)的值，a(2)=36，a(3)=41，變量i變為2；當i=2時，循環條件成立，塊If條件中a(i-1)<=a(i)成立，變量i變為3；當i=3時，循環條件成立，塊If條件中a(i-1)<=a(i)成立，變量i變為4；當i=4時，循環條件成立，塊If條件中a(i-1)<=a(i)成立，變量i變為5；當i=5時，循環條件成立，塊If條件中a(i-1)<= a(i)成立，變量i變為6，循環條件不成立結束循環，故選項C正確。
10．A
【詳解】本題考查對分查找算法，結合下表進行分析：
循環次數 i j n f n m 循環條件 i<=j and Not f key與a（m）
初值 1 6 0 False 成立
第1次 4 1 3 成立 key>a（m）
第2次 4 2 5 成立 key第3次 5 True 3 4 不成立 key=a（m）
由表分析可知，此時變量i的值為5，選項A符合題意。
11．A
【詳解】本題考查算法及其程序實現。要對每個相鄰字符判斷是否相同，首先要獲取字符串s的長度，故（1）處應為n=len(s)；其次進入循環判斷相鄰兩個字符是否相同，即（2）處Mid(s,i,1)=Mid(s,i+1,1)是否成立，成立則Flag為false；第三步輸出顯示是否重復數，即（3）Flag=false時，顯示為重復數，否則是不重復數，故正確順序是②③①，選項A正確。
12．A
【詳解】本題考查利用VB編程實現二進制列表，將十進制數轉化為二進制數。輸入變量n，n存放的是二進制數所占的位數，例如n=3時，可產生23種信息編碼，本例題中可以有8種編碼狀態，對應的十進制數為0～7之間的值，其中7為3位二進制數可表示的最大十進制數， 7=23-1 ，故（1）處可填入2^n-1；第二個For循環利用輾轉相除法實現將數字i轉換為n位二進制數，針對余數應進行逆序連接，故（2）處可填人tmp=Str（t）＋tmp；（3）處應重新得到被除數的值，故應填入k=k\2，故選項A符合題意。
13．C
【詳解】本題考查利用迭代算法求最大公約數。“程序1”利用輾轉相除法求最大公約數，“程序2”利用輾轉相減法求最大公約數，兩段代碼功能相同，故選項A不符合題意；將m=25，n=35代人“程序1”，If語句實現數據交換，保證m＞=n，此時m=3，n=25，執行DoWhile循環，直到m=10，n=5時，m Mod n=10 Mod 5=0，退出DoWhile循環，文本框Text1顯示結果為5，故選項B不符合題意；“程序2”執行循環的條件為m＜＞n，退出循環時m=n，故選項C符合題意；在“程序2”中，一直執行用變量m，n中的較大值減去較小值的操作，直到m=n為止，即11-7=4，7-4=3，4-3=1，3-1=2，2-1=1，此時m=1，n=1，故選項D不符合題意。
14．B
【詳解】本題考查的知識點是VB中運算符及表達式的應用。由1/R=1/R1+1/R2，得R=R1R2/(R1+R2)，所以R的VB表達式為：R1*R2/(R1+R2)。故正確答案為B選項。
15．A
【詳解】本題考查的知識點是計算機算法的應用。解析法又稱為分析法，它是應用解析式去求解數學模型的方法；查找法是在大量的信息中尋找一個特定的信息元素，在計算機應用中，查找是常用的基本運算，例如編譯程序中符號表的查找。排序法是進行數據排序的算法；窮舉法將問題的所有可能的答案一一列舉，然后根據條件判斷此答案是否合適，合適就保留，不合適就丟棄。海倫公式是數學解析式，利用海倫公式求三角形面積的算法屬于解析法。故正確答案為A選項。
16．A
【詳解】本題考查的知識點是算數運算符、邏輯運算符及表達式的應用。一元二次方程 ax^2 +bx + c=0 有兩個不相等的實數解的條件是：a不等于0且b^2-4ac>0。用程序語言表示為：a<>0 And b*b-4*a*c>0。故正確答案為A選項。

展開更多......

收起↑