[問答題] 在考生文件夾下有一個工程文件sjt4.vbp，運行情況如圖所示。程序的功能是計算下 列表達(dá)式的值：Z=(X+2)^2+(X+3)^3+(X+4)^4+…+(X+N)^N其中N和x的值通過鍵盤分別輸入到文本框Text1、Text2中。之后如果單擊標(biāo)題為“計算”、名稱為Command1的命令按鈕，則計算表達(dá)式的值Z，并將計算結(jié)果顯示在名稱為Label1 的標(biāo)簽中。在給出的窗體文件中已經(jīng)添加了全部控件和程序，但程序不完整。要求去掉程序中的注釋符，把程序中的問號改為正確的內(nèi)容。注意：考生不得修改窗體文件中已經(jīng)存在的程序。程序中不得使用^運算符，而應(yīng)使用函數(shù)xn進(jìn)行冪運算。程序至少運行一次，按照下圖輸入數(shù)據(jù)，使X=10，N=5，單擊“計算”按鈕，計算Z的值，并將結(jié)果顯示在標(biāo)簽Label1中，否則本題沒有成績。最后，將修改后的程序按原文件名存盤。

[操作步驟]步驟A：打開本題工程文件。步驟B：分析并編寫程序代碼。 Private Function xn(a As Single,m As Integer) Dim i As Integer tmp=A For i=A To m tmp=tmp*a’求ai的結(jié)果 Next xn=tmp’返回計算結(jié)果 End Function Private Sub CommandA_Click( ) Dim n As Integer Dim i As Integer Dim t As Singl

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