資源簡介

選修一第四章VB程序設計初級章末習題（困難程度）
一、選擇題（本大題共14小題）
下面的 VB 程序運行后，i 的值為 5 的是（）。
A. B.
C. D.
有如下VB程序段：
s =""
For i = 1 To Len(Text1. Text)
? ch = Mid(Text1. Text, i, 1)
? If ch >= "a" And ch <= "z" Then
??? n = (Asc(ch) - Asc("a") + 4) Mod 26
??? s = s + Chr(Asc("a") + n)
? ElseIf ch >= "A" And ch <= "Z" Then
??? n = (Asc(ch) - Asc("A") + 4) Mod 26
??? s = s + Chr(Asc("A") + n)
? Else
??? s = s + ch
? End If
Next i
Text2. Text = s
文本框Text1的內容為“Python3.5”。執行程序后，文本框Text2中顯示的內容是（）
A. tcxlsr B. Tcxlsr C. tcxlsr3.5 D. Tcxlsr3.5
某vb程序段如下，
S=”26170534” : n=len(s) :y= “”
For i=1 to n
?? arry(i)=mid(s,i,1)
Next i
For i=1 to n
? k=i
For j=i to n step 2
??? If arry (j)< arry (k) then? k=j
Next j
If k<>i then t= arry (k):a(k)= arry (i): arry (i)=t
y=y& arry (i)
Next i
Label1.caption=y
該程序運行后，標簽中顯示的內容是（）
A. 0123 B. 4567 C. 01234567 D. 04152637
下列賦值語句，語法錯誤的是
A. text1.text="vb語言" B. a+b=y
C. y=a+b D. i=i+1
在文本框中輸出下列VB表達式的結果，其中結果顯示為3的有
①7 mod—4； ?
②Abs(int(—4．8))—2；
③Mid(“apple123”，7，1)+“1”；?
④sqr(9)
A. ①②③ B. ①②④ C. ①③④ D. ②③④
某個VB應用程序中使用如下代碼讀取數據庫中的信息:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim n as Integer
Private Sub Form_Load()
conn.ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;data source =" + App.Path + "\data\qizhong.accdb"??? ‘此行與上一行為同一行，因印刷排版限制而換行
conn.Open
sql = "select * from chengji"
Set rs.ActiveConnection = conn
rs.Open sql
n=1
Do while Not rs.EOF
?? ?List1.AddItem rs("姓名") + rs("技術")
?? ?rs.MoveNext
n=n+1
Loop
End Sub
運行上述程序，以下說法不正確的是（???? ）
A. 當前讀取的數據庫文件是Data文件夾中的qizhong.accdb文件
B. 數據庫中存在一個名為student的數據表
C. List1列表框中將顯示指定的數據表中所有記錄的 "姓名" + ”技術”字段的值
D. 窗體加載完成后，讀取的數據表中總記錄數為n-1
閱讀VB代碼，此段代碼能實現的功能是__________。
i=101
c=0
do while i<=997
??? if? (i+(i+2)) mod 7=0 then
?????? c=c+1
??? end if
i=i+2
loop
print c
A. ? 求100—999之間的兩個連續偶數之和能被7整除的偶數對之和
B. ? 求100—999之間的兩個連續偶數之和能被7整除的偶數對的個數
C. ? 求100—999之間的兩個連續奇數之和能被7整除的奇數對之和
D. ? 求100—999之間的兩個連續奇數之和能被7整除的奇數對的個數
某對分查找算法的VB程序段如下：（）
i = 1: j = 7
key = Int(Rnd() * 100)
Do While i <= j
??? m = (i + j) \ 2
??? If a(m) = Key Then
??????? Exit Do
??? ElseIf a(m) > Key Then
??????? j = m - 1
??? Else
??????? i = m + 1
??? End If
Loop
數組元素a(1)到a(7)的值依次為“25,42,53,66,77,83,98”，運行上述程序段后，下列條件表達式肯定不成立的是
A. j-i=0 B. i-j=2 C. i=8 D. m<=7
有如下VB程序段：
Private Sub Commandl_Click()
Dim i As Integer, s As Integer
s=0
For i = 1 To 3 step 2
? s = s + f(i)
Next i
Text1.Text = Str(s)
End Sub
Function f(n As Integer) As Integer
? If n = 1 Then
??? f=2
? Else
??? f = f (n - 1) + n
? End If
End Function
執行該程序段后s的值為（）
A. 2 B. 7 C. 9 D. 13
有如下VB程序段：
Private Sub Command1_Click() Dim i As Integer, s As Integer For i = 3 To 30 Step 3
i = i + 3
s = s + i
Next i
Text1.Text = Str(s)
End Sub
程序執行后，Text1中顯示的內容是
A. 60 B. 90 C. 126 D. 165
某查找算法的VB程序段如下：
k = Val(Text1.Text)
i = 1 : j = 8 : Label1.Caption = "" : f = False
Do While i <= j And Not f
?? m = Int((i + j) / 2 + 0.5)
?? If a(m) = k Then f = True
?? If a(m) > a(i) Then
???? If a(i) <= k And k < a(m) Then j = m - 1 Else i = m + 1
?? Else
???? If a(m) < k And k <= a(j) Then i = m + 1 Else j = m - 1
?? End If
?? Label1.Caption = Label1.Caption + Str(a(m))
Loop
數組元素a(1)到a(8)的值依次為“58 , 66 , 18 , 24 , 35 , 40 , 45 , 47”在文本框Text1中輸入的值為66 ,執行該程序段，標簽Label1中顯示的值是（??? ）
A. 24 ?66 B. 35 ?18 24 C. 24 ?40 ?66 D. 35 ?18? 66
如圖所示，為學校部分網絡的拓撲結構，若IP地址為172.17.1.2的機房文件服務器突然發生斷電故障，則以下學生在機房使用電腦的操作受影響有_________。

①在瀏覽器中閱讀資料進行學習
②把做好的VB文件上傳到該機房文件服務器172.17.1.2
③在瀏覽器中輸入ftp：//172.16.1.1，對該服務器上的資源進行下載
④使用Ping命令測試PC1與PC2的連通實驗
A. 1個 B. 2個 C. 3個 D. 4個
有如下 VB 程序段：
flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1
If flag Or x >50 Then
a(i)=x
flag = Not flag
i = i + 1
End if
Loop
執行該程序段后，在下列選項中，a（1）～a（6）各元素值不可能的是（??? ）
A. 52，95，46，74，77，83 B. 50，55，46，70，21，97
C. 62，78，57，61，69，50 D. 31，54，48，72，50，82
有如下VB程序段：
a(1) = 6: a(2) = 9:a(3) = 3: a(4) = 7: a(5) = 8: a(6) = 1
t = 2 * Int(Rnd * 3) + 1
For i = t To 5
k = i
For j = i + 1To 6
If a(j) < a(k) Then k = j
Next j
If k <> i Then
temp = a(i): a(i) = a(k): a(k) = temp
End If
Next i
執行該程序段后，a(1)~a(6)各元素的值不可能是（??? ）
A. 6，1，3，7，8，9 B. 6，9，1，3，7，8
C. 6，9，3，7，1，8 D. 1，3，6，7，8，9
二、非選擇題（本大題共9小題）
小張用VB編寫如下的整數提取VB程序，具體功能如下：在文本框Text1中輸入字符串，單擊“確定”按鈕，程序將從中取出最大的整數，并顯示在文本框Text2中。運行界面如下圖所示。

（1）“確定”按鈕的對象名為_____________。
（ 2）實現上述功能的 VB 代碼如下，請在劃線處填入合適代碼。

（3）根據上述程序，在文本框 Text1 中輸入:“1918-2018 百年老店 Happy Birthday!”，單擊“確定”按鈕，在文本框 Text2 中顯示的內容是?___________。
對于任意給定的數值X，四舍五入后保留至小數點后的第二位，VB表達式式為??????????
VB操作題??? 雞兔同籠。有若干只雞和兔關在同一個籠子里，從上面數，有60個頭；從下面數，有200只腳。請問籠中有幾只雞和兔？王鵬想設計一個VB應用程序來解決問題，通過輸入頭和腳的個數，求出雞兔的數量。運行界面如下圖所示。

請完成以下題目：
（1）計算機的基本功能是：?????? ②????? （填字母）
A.計算
B.圖像處理
C.音頻處理
D.視頻處理
（2）用VB進行程序設計時，一般需經歷的階段：A.運行調試程序；B.應用程序界面設計；C.代碼編寫。正確的順序是：?????? ②????? （填字母）???
（3）圖窗體中共有幾個對象 ???_? ③_（填： 3 / 4 / 5 / 6）。
（4）圖中標注A處的對象類型可能為標簽類對象？ ???④ ?????（填：對 / 錯）。
（5）標注B處 Command1對象屬性肯定被修改過的是_____⑤__（填：Caption / Font）
（6）在窗體中，創建文本框類對象（text1）時應選擇工具箱中的______⑥ _____(填字母: A / B / C / D)
A.
B.
C.
D.
用VB程序設計語言表達數學表達式：，寫為_______________。
?【程序設計】 “回文”是指正讀反讀都能讀通的句子，它是古今中外都有的一種修辭方式和文字游戲，如“我為人人，人人為我”等。在數學中，具有這樣的特征的數字，稱為回文數（palindrome number）。例如：123321為回文數，且為奇數回文數；234432為回文數，且為偶數回文數。
請完成如下VB程序的填寫，實現判斷一個四位數是否為奇偶回文數的功能。
Private Sub Command1_Click()
??? Dim x As Integer, z1 As Integer, z2 As Integer, z3 As Integer, z4 As Integer
??? x = Val(Text1.Text)???
??? z1 = x Mod 10
z2 = x \ 10 Mod 10
??(1)????
??(2)????
??? If ??(3)???Then
??????? If ??(4)??Then
??????????? Text2.Text = "是偶數回文數！"
??????? Else
????????? ??Text2.Text = "是奇數回文數！"
? ??(5)??
? ??(6)??
??????? Text2.Text = "不是回文數！"
??? End If
End Sub
_____________
_____________
_____________
_____________
_____________
_____________
對于一組升序不重復的正整數，在任意數字位置分成兩段，并交換前后兩段的位置，存入數組a。例如6、17、25、36、44、58，在數字6處分成兩段，交換位置后為：
a（1）
a（2）
a（3）
a（4）
a（5）
a（6）
6
17
25
36
44
58
在數字44處分成兩段，交換位置后為：
a（1）
a（2）
a（3）
a（4）
a（5）
a（6）
44
58
6
17
25
36
依據對分查找思想，設計一個在數組a中查找最小值，并輸出在Text1中的程序，實現該功能的VB程序如下，但加框處代碼有錯，請改正。
Private Sub Command1_Click（）
Const n ＝ 6
Dim a（1 To n） As Integer
Dim i As Integer，j As Integer，m As Integer
’讀取數據，按上述規則存入數組a中，代碼略
i ＝ 1︰j ＝ n
If?Then Text1．Text＝Str（a（i））??? ’（1）
Do While i ＜＝ j
? m ＝（ i ＋ j）＼ 2
? If a（m）＜a（j） Then
???????’（2）
? Else
?? ?i ＝ m ＋ 1
? End If
?Loop
?Text1．Text ＝ a（j）
End Sub
閱讀VB程序代碼，如果執行時依次輸入8和15，則輸出m的結果是__________。
center0
小王設計“模擬撤銷”程序，需要用一個“歷史記錄”，“歷史記錄”是在對字符串 s 進行插入或刪除時，將每步操作信息依次存儲得到的，操作信息由操作符（“+”表示插入，“－”表示刪除）、操作位置和操作字符串（只包含英文字母）構成，例如，“+23abc”表示在字符串 s 第 23 個位插入了“abc”，“模擬撤銷”過程按照“歷史記錄”的逆序進行，將字符串 s 的內容恢復到初始狀態。對字符串“Book”的操作與撤銷過程，如圖 a 所示。
? ? ? 小王編寫的“模擬撤銷”VB 程序如下，文本框 Text1 中的內容是撤銷前字符串，文本框 Text2 中的內容是歷史記錄，單擊“撤銷”按鈕 Command1 后，在標簽 Label1 中顯示撤銷過程，程序運行界面如圖b 所示。
（1）實觀上述功能的 VB 程序如下，在程序中出現的對象沒有 Caption 屬性的是_____。（單選，填字母：A.Label1 / B.Command1 / C.Text1 和 Text2）
（2）請在劃線處填入合適代碼。
Private Sub Command1_Click()
Dim s As String, t As String, ch As String
Dim c As String, num As String, ss As String
Dim n As Integer, i As Integer
s = Text1.Text: t = Text2.Text
c = "": num = "": ss = s
For i = Len(t) To 1 Step -1
________①________
If ch >= "a" And ch <= "z" Or ch >= "A" And ch = "Z" Then
c = ch + c
ElseIf ch >= "0" And ch <= "9" Then
num = ch + num
Else
n = Val(num)
If ch = "－" Then
s = Mid(s, 1, n - 1) + c + ________②________
Else
s = Mid(s, 1, n - 1) + Mid(s, n + Len(c), Len(s) - n - Len(c) + 1)
End If
ss= ss + "→" + s
c = "": num = ""
End If
Next i
Label1.Caption = ss
End Sub
（3）運行該程序，若文本框 Text1 中的內容是"April"，文本框 Text2 中的內容是”－3p+3ri－6e”，單擊撤銷按鈕，For 循環語句執行完成后，字符串 s 的值是_____________________。
下列是關于某數字的加密解密算法。其加密規則如下：計算某位數字與其位置相加得到的結果除以11的余數即為編號（其中若余數為0，編號為11），編號與字符對照表如下：
編號
1
2
3
4
5
6
7
8
9
10
11
字符
V
i
s
u
a
l
B
A
S
I
C
從對照表中找出與編號對應的字符完成加密，如下表顯示了數字“2018”的加密過程：
數字
2
0
1
8
位置
1
2
3
4
編號
3
2
4
1
加密字符
s
i
u
V
小張按照上述原理，設計了一個解密的VB程序，功能如下:單擊“解密”按鈕Command1，將文本框Text1中的密文(字符數不超過11個)進行解密，并將解密后的明文在文本框Text2中輸出。程序運行效果如第圖a所示。
（1）在設計程序界面時，應使用第圖b所示“控件工具箱”中的(填寫相應編號)添加“解密”按鈕Command1。
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Private Sub Command1_ Click()
Dim s As String，s1 As String，s2 As String，ch As String，num As Integer
s＝"Visual BASIC"
s1＝Text1. Text
s2＝"":ch＝""
i＝1
??? Do While_________①_________
???? ch＝Mid(s1，i，1)
??? For j＝1 To Len(s)
??? If ch＝Mid(s，j，1)Then Exit For? Exit For退出For循環
Next j
_________②_________
??? s2＝s2+CStr (num)?????? ?Cstr(x)在返回的字串前不加空格
??? i＝i+1
??? Loop
??? Text2. Text＝s2
??? EndSub
（3）若密文是“Bus”，則明文是__________________。
答案和解析
1.【答案】D
閱讀程序，分析得出：
A選項中程序運行后，i 的值為4，故A不符合題意；
B選項中程序運行后，i 的值為6，故B不符合題意；
C選項中程序運行后，i 的值為6，故C不符合題意；
D選項中程序運行后，i 的值為5，故D符合題意。
?故選D。
2.【答案】D
文本框Text1的內容為“Python3.5”,
執行程序后，
對原字符的asscal碼轉換，
文本框Text2中顯示的內容是“Tcxlsr3.5 ”
?故選D.
3.【答案】D
本題考查選擇排序算法，要掌握各種排序算法的核心思想。
選擇排序：第一次從下標為0的開始下標為0的這個數與后面的n-1個進行比較；找出最小或者最大的放在下標為0的這個位置；第二次從下標為1的開始比較；查詢剩下的最大或者最小值；放在?下標為1的位置；以此類推；直到排序完成。
【解答】
本題是選擇排序的變形，步長為2，數組ch元素的值依次是：2，6，1，7，0，5，3，4；
I=1時，從ch（1）、ch（3）、ch（5）、ch（7）找最小值和ch（1）交換；
I=2時，從ch（2）、ch（4）、ch（6）、ch（8）找最小值和ch（2）交換；
I=3時，從ch（3）、ch（5）、ch（7）找最小值和ch（3）交換…最終數組ch的元素依次為：0，4，1，5，2，6，3，7。
故選D。
4.【答案】B
解:B:將a+b賦值給y的代碼為y=a+b，故錯誤，
?故選B.
5.【答案】B
【分析】本題考查的是VB的表達式的運算，難度不大。熟悉VB中的各種函數即可正確解答。
?【解答】①7 mod—4運算結果是3；
②Abs(int(—4．8))—2運算結果是3；
③Mid(“apple123”，7，1)+“1”運算結果是2+“1”；
④sqr(9)運算結果是3；
故①②④符合題意。
?故選B。
6.【答案】B
本題考查的是VB讀取數據庫文件的操作，屬于一般題。
【解答】
A.從代碼中可以看出：當前讀取的數據庫文件是Data文件夾中的qizhong.accdb文件，故A說法正確；
B.從代碼中可以看出：數據庫中存在一個名為?chengji的數據表，故B說法錯誤，但符合題意；
C.從代碼中可以看出：List1列表框中將顯示指定的數據表中所有記錄的 "姓名" + ”技術”字段的值，故 C說法正確；
D.從代碼中可以看出：窗體加載完成后，讀取的數據表中總記錄數為n-1，故D說法正確。
故選B。
7.【答案】D
【分析】
本題主要考查的是VB程序的相關知識，熟悉VB程序的代碼是解題的關鍵。
【解答】
閱讀程序，分析得出，該段代碼能實現的功能是：求100—999之間的兩個連續奇數之和能被7整除的奇數對的個數，故 D正確。
故選D .
8.【答案】B
本題考查二分查找算法以及程序的閱讀能力。二分查找又稱折半查找，優點是比較次數少，查找速度快，平均性能好；其缺點是要求待查表為有序表，且插入刪除困難；因此，折半查找方法適用于不經常變動而查找頻繁的有序列表；首先，假設表中元素是按升序排列，將表中間位置記錄的關鍵字與查找關鍵字比較，如果兩者相等，則查找成功；否則利用中間位置記錄將表分成前、后兩個子表，如果中間位置記錄的關鍵字大于查找關鍵字，則進一步查找前一子表，否則進一步查找后一子表；重復以上過程，直到找到滿足條件的記錄，使查找成功，或直到子表不存在為止，此時查找不成功。
【解答】
數組元素a(1)到a(7)的值依次為“25,42,53,66,77,83, 98”，運行上述程序段后，運行上述程序段后，下列條件表達式肯定不成立的是i-j=2，故B符合題意。
故選B。
9.【答案】C
本題主要考查VB程序設計的問題，本部分內容與其它選修課程相比較難。
【解答】
由語句“If n ＝ 1 Thenf ＝ 2Elsef 　＝ f(n － 1) ＋ n”得出，f(1)、f(2)、f(3)的值分別為：2、4、7，執行兩次語句“For i ＝ 1 To 3 Step 2s ＝ s ＋ f(i)”后，s 的值應為：2+7=9，故C正確。故選C。
10.【答案】B【解析】略
11.【答案】D
本題考查DO While循環語句，使用DO While語句要注意循環條件的判斷以及各變量的變化情況。程序中使用DO While循環語句實現對分查找算法，查找的條件是元素個位數和十位數之和和key的關系；DO While循環語句的一般格式：DO While（條件）循環體LOOP
【解答】
數組元素a(1)到a(8)的值依次為“58 , 66 , 18 , 24 , 35 , 40 , 45 , 47”在文本框Text1中輸入的值為66 ,執行該程序段，標簽Label1中顯示的值是35 、18 、66，故D正確。
?故選D。
12.【答案】A
【解析】分析】
本題考查的內容為計算機網絡方面的知識。了解計算機網絡的主要功能，分類和拓撲結構，知道網絡服務器的主要作用與基本原理。
【解答】
?由機房網絡拓撲圖，機房交換機發生故障，凡是連接到交換機上的設備都無法獲取上一級交換機上的數據，學生機和機房文件服務器都通過機房交換機連接上一級網絡中心服務器上，故當機房交換機發生斷電故障，①①③均不能實現，只有④可以實現，故學生在機房使用電腦的操作受影響有3個，故A正確。
?故選A。
13.【答案】C
【解析】
【分析】
本題考查的是VB程序的運行與調試，難度不大。
從此段程序可以看出，flag=True i=1，
如果i <= 6，后面執行，
x為1-101中的隨機整數，
如果 flag為ture 或者 x>50，繼續執行，
i=i+1
結果如果
循環。
【解答】
A.i=1，a（1）=52>50，flag=true，繼續執行，flag=Not flag=False，i=i+1=2；
i=2，a（2）=95>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=3；
i=3，a（3）=46<50，flag=true，繼續執行，flag=Not flag=False，i=i+1=4；
i=4，a（4）=74>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=5；
i=5，a（5）=77>50，flag=true，繼續執行，flag=Not flag=False，i=i+1=6；
i=6，a（4）=83>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=7；
故A各元素值可能，但不符合題意；
B.i=1，a（1）=50=50，flag=true，繼續執行，flag=Not flag=False，i=i+1=2；
i=2，a（2）=55>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=3；
i=3，a（3）=46<50，flag=true，繼續執行，flag=Not flag=False，i=i+1=4；
i=4，a（4）=70>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=5；
i=5，a（5）=21<50，flag=true，繼續執行，flag=Not flag=False，i=i+1=6；
i=6，a（4）=97>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=7；
故B各元素值可能，但不符合題意；
C.i=1，a（1）=62>50，flag=true，繼續執行，flag=Not flag=False，i=i+1=2；
i=2，a（2）=78>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=3；
i=3，a（3）=57>50，flag=true，繼續執行，flag=Not flag=False，i=i+1=4；
i=4，a（4）=61>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=5；
i=5，a（5）=69>50，flag=true，繼續執行，flag=Not flag=False，i=i+1=6；
i=6，a（4）=50=50，falg=false，不能繼續執行，跳出；
故C中a（6）不可能，但符合題意；
D.i=1，a（1）=31<50，flag=true，繼續執行，flag=Not flag=False，i=i+1=2；
i=2，a（2）=54>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=3；
i=3，a（3）=48<50，flag=true，繼續執行，flag=Not flag=False，i=i+1=4；
i=4，a（4）=72>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=5；
i=5，a（5）=50=50，flag=true，繼續執行，flag=Not flag=False，i=i+1=6；
i=6，a（4）=82>50，falg=false，繼續執行，flag=Not flag=True，i=i+1=7；
故D各元素值可能，但不符合題意。
故選C。
14.【答案】A
根據題意，原數組的數值為：a(1) = 6: a(2) = 9:a(3) = 3: a(4) = 7: a(5) = 8: a(6) = 1，變量t的范圍為：【1,6】，然后分析程序，將通過For循環語句，對數組a進行排序，當?k <> i時，a(i) 與a(k)進行交換，最終得出結論BCD正確，A錯誤。
?故選A。
15.【答案】（1）comm；（2）①t+c；② ?max< val(t)；（3）2018
本題考查VB代碼的閱讀與填空，是對該軟件的一個綜合運用，難度較大。
【解答】
（1）“確定”按鈕的對象名為comm；
（2）根據此段程序實現的功能：在文本框Text1中輸入字符串，單擊“確定”按鈕，程序將從中取出最大的整數，并顯示在文本框Text2中；
閱讀程序，分析得出：①處應填t+c；?②處應填 max< val(t)；
（3）根據上述程序，在文本框 Text1 中輸入:“1918-2018 百年老店 Happy Birthday!”，單擊“確定”按鈕，在文本框 Text2 中顯示的內容是2018.
故答案為：?（1）comm；（2）①t+c；?②?max< val(t)；（3）2018。
16.【答案】int(x*100+0.5)/100?
本題主要考查VB表達式的相關知識，難度較易。
【解答】
對于任意給定的數值X，四舍五入后保留至小數點后的第二位，VB表達式式為int(x*100+0.5)/100。
故答案為：?int(x*100+0.5)/100 。
17.【答案】（1）A；
（2）BCA；
（3）6；
（4）對；
（5）Caption；
（6）A
本題考查的是VB程序的基礎知識，難度不大。
【解答】
（1）計算機的基本功能是計算，故選A；
（2）用VB進行程序設計時，一般需經歷的階段：B.應用程序界面設計；C.代碼編寫；A.運行高度程序；
（3）圖中共有6個對象；
（4）圖中A處為標簽對象，故是對的；
（5）標注B處 Command1對象屬性被修改過的是：Caption；
（6）在窗體中，創建文本框類對象（text1）時應選擇工具箱中的A。
故答案為：（1）A；（2）BCA；（3）6；（4）對；（5）Caption；（6）A。
18.【答案】?(-b+sqr(b^2-4*a*c))/(2*a)
本題考查的是VB語言中的表達式，熟悉函數和表達式的寫法即可正確解答。
【解答】
數學表達式轉換為VB語言中的表達式為(-b+sqr(b^2-4*a*c))/(2*a)。
故答案為：(-b+sqr(b^2-4*a*c))/(2*a)。
19.【答案】【小題1】Z3=x\100 mod 10
【小題2】?Z4=x\1000
【小題3】?Z1=Z4 and Z2=Z3
【小題4】?Z1 mod 2 = 0
【小題5】?end if?
【小題6】?else
【解析】
1.
【分析】
本題主要考查的是VB程序的相關知識，熟悉VB程序的代碼是解題的關鍵。
【解答】
根據題意，分析可知，該程序實現了判斷一個四位數是否為奇偶回文數的功能，結合程序上下段，此處應填入Z3=x\100 mod 10。
故答案為：Z3=x\100 mod 10。
2.【分析】
本題主要考查的是VB程序的相關知識，熟悉VB程序的代碼是解題的關鍵。
【解答】
根據題意，分析可知，該程序實現了判斷一個四位數是否為奇偶回文數的功能，結合程序上下段，此處應填入Z4=x\1000。
故答案為：Z4=x\1000。
3.?【分析】
本題主要考查的是VB程序的相關知識，熟悉VB程序的代碼是解題的關鍵。
【解答】
根據題意，分析可知，該程序實現了判斷一個四位數是否為奇偶回文數的功能，結合程序上下段，此處應填入Z1=Z4 and Z2=Z3。
故答案為：Z1=Z4 and Z2=Z3。
4.??【分析】
本題主要考查的是VB程序的相關知識，熟悉VB程序的代碼是解題的關鍵。
【解答】
根據題意，分析可知，該程序實現了判斷一個四位數是否為奇偶回文數的功能，結合程序上下段，此處應填入Z1 mod 2 = 0。
故答案為：Z1 mod 2 = 0。
5.???【分析】
本題主要考查的是VB程序的相關知識，熟悉VB程序的代碼是解題的關鍵。
【解答】
根據題意，分析可知，該程序實現了判斷一個四位數是否為奇偶回文數的功能，結合程序上下段，此處應填入end if?。
故答案為：end if?。
6.???【分析】
本題主要考查的是VB程序的相關知識，熟悉VB程序的代碼是解題的關鍵。
【解答】
根據題意，分析可知，該程序實現了判斷一個四位數是否為奇偶回文數的功能，結合程序上下段，此處應填入else?。
故答案為：else?。?
20.【答案】（1）a(i) < a(j) 或 a(i) < a(n) 或 a(1) < a(n) 或 a(1) < a(j)；
（2） j = m
本題考查VB代碼的閱讀與改錯，是對該軟件的一個綜合運用，難度較難。
【解答】
（1）根據對分查找思想，在數組a中查找最小值，并輸出在Text1中，故If語句后面的條件應改為：a(i) < a(j)；
（2）閱讀整段程序，分析得出，此處應改為?j = m。
故答案為：?（1）a(i) < a(j) 或 a(i) < a(n) 或 a(1) < a(n) 或 a(1) < a(j)；（2） j = m
21.【答案】23
本題主要考查的是VB程序的相關知識，熟悉VB程序的代碼是解題的關鍵。
【解答】
分析程序，m=8，n=15，
因為8 mod 5 =Int（15/5）=3，
故執行m=m+n=8+15=23，
故答案為23.
22.【答案】（1）C；
（2）①ch=mid(t,i,1)；
②mid(s,n,len(s)-n+1)；
（3）Apple
本題考查的是VB編程的應用，難度不大。
【解答】
（1）實觀上述功能的 VB 程序如下，在程序中出現的對象沒有 Caption 屬性的是Text1 和 Text2，故選C；
（2）分析前后語句①處應填：ch=mid(t,i,1)；
②處應填mid(s,n,len(s)-n+1)；
（3）運行該程序，若文本框 Text1 中的內容是"April"，文本框 Text2 中的內容是”－3p+3ri－6e”，單擊撤銷按鈕，For 循環語句執行完成后，字符串 s 的值是Apple。
故答案為：（1）C；（2）①ch=mid(t,i,1)；②mid(s,n,len(s)-n+1)；（3）Apple。
23.【答案】?（1）③；
（2）①處代碼為：i<=Len(s1)或i<=Len(Text1.Text)；
②處代碼為：num=(j-i+11) mod 11；
（3）“620”或620
【解析】
【分析】
本題考查的是VB語言的應用。
【解答】
（1）在設計程序界面時，應使用第圖b所示“控件工具箱”中的③添加“解密”按鈕Command1；
（2）①處變量s1存放明文，即從文本框Text1中獲取的數字，然后通過循環對明文中的數字逐個加密，當i<=Len(Text1.Text)進入循環，即此處為i<=Len(Text1.Text)；
②處是對編號進行除11取余計算，即num=(j-i+11) mod 11；
（3）根據加密算法，若密文是“Bus”，則明文是620。
故答案為：?（1）③；（2）①處代碼為：i<=Len(s1)或i<=Len(Text1.Text)；②處代碼為：num=(j-i+11) mod 11；（3）“620”或620。

展開更多......

收起↑