),i=1,2,3,… 先取x1=1,然后根據(jù)公式計算x2,再由x2計算x3,…直到|xi-xi-1|<0.00001,則xi為解. 小李編寫了一個VB程序?qū)崿F(xiàn)上述功能:運行程序時,在Text1中輸入一個正整數(shù),單擊命令按鈕Command1,文本框Text2顯示該數(shù)的算術(shù)平方根. 程序代碼如下,請完成以下兩小題. 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é)碰到了一個數(shù)學(xué)問題:400個同學(xué)按順序進行編號后圍成一個大圈,按1至2報數(shù)(從1號位置開始),報到2的同學(xué)出列,以此一直循環(huán)報數(shù)下去,問最后剩下的那位同學(xué)的編號是幾號? 例如以6個同學(xué)編號為例,按1至2報數(shù)(從1號位置開始)依次出列的編號次序為2-4-6-3-1-5,那么最后剩下的就是編號為5的同學(xué). 為了解決這個問題,小李用VB編寫了如下程序嘗試解決,其中列表List1顯示出列的順序編號,文本框Text1中顯示最后留下的編號,程序代碼如下(測試界面如圖). 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 為實現(xiàn)程序功能,在程序橫線處填入合適的代碼. (1)①處應(yīng)填