循環(huán)結(jié)構(gòu)習(xí)題(完整版)
【正文】 ccstr = UCase(Mid(str, i, 1)) ? n(Asc(ccstr) 65 + 1) = n(Asc(ccstr) 65 + 1) + 1 ? Next i ? For i = 1 To 26 ? If n(i) 0 Then ? Chr(i + 65 1) amp。 i amp。 例 隨機(jī)產(chǎn)生 10個(gè) 100～ 200之間的數(shù) ， 求最大值 。 回文數(shù)：第一位數(shù)與最后一位數(shù)相等，第二位數(shù)與倒數(shù)第二位數(shù)相等 … 第 N位數(shù)與倒數(shù)第 N位數(shù)相等 ? Private Sub Command1_Click() ? Dim n As Integer ? Dim i As Integer ? Dim sum As Integer ? For n = 1 To 1000 ? sum = 0 ? For i = 1 To n 1 ? If n Mod i = 0 Then sum = sum + i ? Next i ? If sum = n Then ? = amp。 累加 i = i + 1 n = n * i 39。 Sum = Sum + i 連乘是在原有積的基礎(chǔ)上一次一次地每次乘一個(gè)數(shù) 。? 素?cái)?shù)是一個(gè)大于 2，且 不能被 1和本身以外的整數(shù)整除的數(shù)。 t = t * i 算法是對(duì)某個(gè)問(wèn)題求解過(guò)程的描述 ? 計(jì)算 sum＝ 1！＋ 2?。?3！＋ …… ＋ 10！ Private Sub Form_Click() Dim sum As Long Dim i As Integer Dim t As Long sum = 0: t = 1 For i = 1 To 10 t = t * i sum = sum + t Next i Print 1!+2!+3!+...+10!=。連乘 t = / n Loop Print 計(jì)算了 。 n amp。 Private Sub Command1_C
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1