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

　　在調試時發現.，如輸入“陳”，可以正確刪除所有姓“陳”的項目，但輸入“劉”，則只刪除了“劉邦、。劉備”2項，結果如圖2所示。這說明程序不能適應所有情況，需要修改。正確的修改方案是把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

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

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

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

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

　　參考解析：

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

　　【解題思路】通過For循環語句實現xn()的冪運算;Click事件過程中通過Val()函數實現字符類型向數值型的轉換，通過循環語句及調用xn()函數，獲得函數返回值，實現表達式的運算結果;運用Call語句調用SaveResuh函數對結果進行保存，涉及文件的Open、Cbse和Output操作，最后將結果保存在文件夾下的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的結果

　　Next

　　xn=_____tmp_____´返回計算結果

　　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)’將數字字符轉換為數值

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

　　z=0

　　For i=2 To n

　　t=x+i

　　z=z+__________調用xn函數求ti

　　Next

　　Label1.Caption=__________´將結果顯示在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：按照題目要求調試并運行程序，如圖3.15所示。

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

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

　　相關推薦：

　　各地2016年全國計算機等級考試費用匯總

　　2016年計算機等級考試各級別報考適合專業類別

　　各地2016年全國計算機等級考試報名時間匯總

　　2016計算機等級考試通關必看:一至四級備考經驗