循環(huán)結(jié)構(gòu)習(xí)題-文庫吧資料
2024-08-28 21:43本頁面
【正文】 成績最好， 98分 Private Sub Form_Click() ? Dim i As Integer, cj As Integer ? Dim max As Integer, maxn As Integer ? max = 0: maxn = 0 ? For i = 1 To 10 ? cj = Val(InputBox(請輸入第 amp。并顯示其中的最好及其序號。 If x Max Then Max = x Next i Print Print 最大值 =。 Private Sub Command1_Click() dim max as integer， x as integer Max = 100 For i = 1 To 10 x = Int(Rnd * 101 + 100) Print x amp。 實驗 D第 7題 : 在若干個數(shù)中求最大值 ， 一般先假設(shè)一個較小的數(shù)為最大值的初值 ，若無法估計較小的值 ， 則取第一個數(shù)為最大值的初值；然后將每一個數(shù)與最大值比較 ， 若該數(shù)大于最大值 ， 將該數(shù)替換為最大值；依次逐一比較 。 不是回文數(shù) ? End If ? End Sub 回文數(shù) “遞推法”又稱為“迭代法”，其基本思想是把一個復(fù)雜的計算過程轉(zhuǎn)化為簡單過程的多次重復(fù)。 str ? Next i ? If str = num Then ? = num amp。 n amp。如數(shù)字 6，它的因子是 3，剛好有等式： 6=1+2+3 成立，所以 6就是一個完數(shù)。如 153就是水仙花數(shù) ? ? 153=1^3+5^3+3^3 思考：找出 1000之內(nèi)的所有完數(shù)。 項的和是 。連乘 t = / n Loop Print 計算了 。 i計數(shù)器、 t第 i項的值 Do While t e = e + t 39。, t!, e! e = 0: n = 1 39。本例 根據(jù)某項值 (t)的精度 (要求計算精度為 ） 來控制循
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1