),i=1,2,3,… 先取x1=1,然后根據(jù)公式計(jì)算x2,再由x2計(jì)算x3,…直到|xi-xi-1|<0.00001,則xi為解. 小李編寫了一個(gè)VB程序?qū)崿F(xiàn)上述功能:運(yùn)行程序時(shí),在Text1中輸入一個(gè)正整數(shù),單擊命令按鈕Command1,文本框Text2顯示該數(shù)的算術(shù)平方根. 程序代碼如下,請(qǐng)完成以下兩小題. Function fun(x As Integer,x0 As Double) As Double Dim x1 As Double x1=(x0+x/x0)/2 If Abs(x1-x0)<0.00001 Then fun=x1 Else fun=
EndIf End Function Private Sub Command1_Click( ?。?br /> Dim t As Integer Dim k As Double t=Val(Text1.Text) k=fun(t,1) k=
'保留兩位小數(shù)的四舍五入 Text2.Text=Str(k) End Sub (1)題中函數(shù)fun主要采用的算法思想是
17.【加試題】小李同學(xué)碰到了一個(gè)數(shù)學(xué)問題:400個(gè)同學(xué)按順序進(jìn)行編號(hào)后圍成一個(gè)大圈,按1至2報(bào)數(shù)(從1號(hào)位置開始),報(bào)到2的同學(xué)出列,以此一直循環(huán)報(bào)數(shù)下去,問最后剩下的那位同學(xué)的編號(hào)是幾號(hào)? 例如以6個(gè)同學(xué)編號(hào)為例,按1至2報(bào)數(shù)(從1號(hào)位置開始)依次出列的編號(hào)次序?yàn)?-4-6-3-1-5,那么最后剩下的就是編號(hào)為5的同學(xué). 為了解決這個(gè)問題,小李用VB編寫了如下程序嘗試解決,其中列表List1顯示出列的順序編號(hào),文本框Text1中顯示最后留下的編號(hào),程序代碼如下(測(cè)試界面如圖). Private Sub Command1_Click( ?。?br /> Dim s,f,t As Integer Dim a(1 To 400)As Boolean For i=1 To 400 a(i)=False Next i s=0 f=0 i=0 Do While f<399 i=i+1 If i=401 Then i=
If a(i)=False Then s=s+1 If s=2 Then
List1.AddItem Str(i) a(i)=True f=
EndIf Loop For i=1 To 400 If
Then Text1.Text=str(i) Next i End Sub 為實(shí)現(xiàn)程序功能,在程序橫線處填入合適的代碼. (1)①處應(yīng)填