叠代運算可能實現不了,這個可以使用VBA程序來實現。
①使用Alt+F11組合鍵打開VBA編輯器,在VBA編輯器的菜單欄上邊點擊插入、模塊,在模塊的代碼框裏邊輸入以下VBA程序代碼,然後按下F5鍵運行。
Sub?RndNumber()Dim?i
On?Error?Resume?Next?'忽略運行過程中可能出現的錯誤
Application.ScreenUpdating?=?False?'關閉屏幕顯示更新,提高運行速度
Set?mysheet1?=?ThisWorkbook.Worksheets("Sheet1")?'定義工作表
i?=?0?'i值初始化=0
Do
mysheet1.Cells(2,?1)?=?Rnd()?*?2?'隨機數rnd值的範圍為?0=<?rnd?<1 If?mysheet1.Cells(2,?1)?>?1.00001?And?mysheet1.Cells(2,?1)?<?1.00005?Then?'約等於1,則退出Do循環 Exit?Do'退出Do循環 Else?'否則 If?mysheet1.Cells(2,?1)?<?1?Then'如果小於1則加0.1mysheet1.Cells(1,?1)?=?mysheet1.Cells(1,?1)?+?0.1
End?If If?mysheet1.Cells(2,?1)?>?1?Then'如果小於1則減0.1mysheet1.Cells(1,?1)?=?mysheet1.Cells(1,?1)?-?0.1
End?If End?If i?=?i?+?1 If?i?>?300000?Then?'如果循環超過30萬次,則退出循環,避免死循環出現 Exit?Do End?IfLoop
Application.ScreenUpdating?=?True?'開啟屏幕顯示更新
End?Sub
②執行的結果如下,望采納。