9[單選題] 窗體如圖l所示。要求程序運(yùn)行時(shí)，在文本框Textl中輸入一個(gè)姓氏，單擊“刪除”按鈕(名稱為com.mandl)，則可刪除列表框Listl中所有該姓氏的項(xiàng)目。若編寫以下程序來實(shí)現(xiàn)此功能.

　　在調(diào)試時(shí)發(fā)現(xiàn).，如輸入“陳”，可以正確刪除所有姓“陳”的項(xiàng)目，但輸入“劉”，則只刪除了“劉邦、。劉備”2項(xiàng)，結(jié)果如圖2所示。這說明程序不能適應(yīng)所有情況，需要修改。正確的修改方案是把For K =0T0 Iist.ListCount一1改為(　　)。

　　A.For k=List1.ListCount-1 To 0 Step-1

　　B.For k=0 To List1.ListCount

　　C.For k=1 To List1.ListCount-1

　　D.For k=1 To List1.ListCount

　　參考答案：A

　　參考解析：錯(cuò)誤原因：每一次刪除列表框滿足項(xiàng)，列表框的項(xiàng)目數(shù)目就會(huì)相應(yīng)地減少，所以就出現(xiàn)了漏刪內(nèi)容，如果把循環(huán)變量k改成從Listl.ListCout一1到0，從最后一個(gè)項(xiàng)目往第一個(gè)項(xiàng)目查找，滿足條件就刪除該項(xiàng)目，從而不會(huì)出現(xiàn)遺漏現(xiàn)象，所以正確答案為A。

　　10[簡答題] 在考生文件夾下有一個(gè)工程文件sjr4.vbp，運(yùn)行情況如圖所示。程序的功能是計(jì)算下列表達(dá)式的值：z=(x+2)^2+(X+3)^3+(X+4)^4+…+(X+N)^N其中N和X的值通過鍵盤分別輸入到文本框Textl、Text2中。之后如果單擊標(biāo)題為“計(jì)算”、名稱為Commandl的命令按鈕，則計(jì)算表達(dá)式的值2，并將計(jì)算結(jié)果顯示在名稱為Labell的標(biāo)簽中。

　　在給出的窗體文件中已經(jīng)添加了全部控件和程序，但程序不完整。要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。

　　注意：考生不得修改窗體文件中已經(jīng)存在的程序。程序中不得使用^運(yùn)算符，而應(yīng)使用函數(shù)xn進(jìn)行冪運(yùn)算。程序至少運(yùn)行一次，按照下圖輸入數(shù)據(jù)，使X=10，N=5，單擊“計(jì)算”按鈕，計(jì)算z的值，并將結(jié)果顯示在標(biāo)簽Labell中，否則沒有成績。最后.程序按原文件名存盤。

　　參考解析：

　　【考點(diǎn)分析】本題考點(diǎn)有：標(biāo)簽的Caption屬性、Function過程、Val()函數(shù)、Call語句、Sub()函數(shù)、文件操作(Open、Close、Output)、ApP.Path相對路徑以及For循環(huán)語句。

　　【解題思路】通過For循環(huán)語句實(shí)現(xiàn)xn()的冪運(yùn)算;Click事件過程中通過Val()函數(shù)實(shí)現(xiàn)字符類型向數(shù)值型的轉(zhuǎn)換，通過循環(huán)語句及調(diào)用xn()函數(shù)，獲得函數(shù)返回值，實(shí)現(xiàn)表達(dá)式的運(yùn)算結(jié)果;運(yùn)用Call語句調(diào)用SaveResuh函數(shù)對結(jié)果進(jìn)行保存，涉及文件的Open、Cbse和Output操作，最后將結(jié)果保存在文件夾下的out,*.dat文件中。

　　【操作步驟】

　　步驟1：打開本題工程文件。

　　步驟2：分析并編寫程序代碼。

　　參考答案

　　Private Function xn(a As Single，m As Integer)

　　Dim i As Integer

　　tmp=1

　　For i=1 TO m

　　tmp=__tmp*a________´求ai的結(jié)果

　　Next

　　xn=_____tmp_____´返回計(jì)算結(jié)果

　　End Function

　　Private Sub Command1_Click()

　　Dim n As Integer

　　Dim i As Integer

　　Dim t As Single

　　Dim S，X As Single

　　n=Val(Text1.Text)’將數(shù)字字符轉(zhuǎn)換為數(shù)值

　　x=Val(Text2.Text)'讀取n.xm值

　　z=0

　　For i=2 To n

　　t=x+i

　　z=z+__________調(diào)用xn函數(shù)求ti

　　Next

　　Label1.Caption=__________´將結(jié)果顯示在Labell

　　Call SaveReSult

　　End Sub

　　Private Sub SaveReSult()

　　Open App.Path&"\out4.dat"For Output

　　As#1

　　Print #1，Labell1.Caption

　　Close #1

　　End Sub

　　步驟3：按照題目要求調(diào)試并運(yùn)行程序，如圖3.15所示。

　　步驟4：關(guān)閉程序后，按照題目要求保存工程和窗體。

　　【易錯(cuò)提示】對于xn(t，i)函數(shù)調(diào)用的理解，弄清楚兩個(gè)變量各代表的函數(shù)值的意義，正確調(diào)用函數(shù)。

　　相關(guān)推薦：

　　各地2016年全國計(jì)算機(jī)等級(jí)考試費(fèi)用匯總

　　2016年計(jì)算機(jī)等級(jí)考試各級(jí)別報(bào)考適合專業(yè)類別

　　各地2016年全國計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總

　　2016計(jì)算機(jī)等級(jí)考試通關(guān)必看:一至四級(jí)備考經(jīng)驗(yàn)