讲义操作题重点

1、素数Private Sub Form_click()Open d:1.txt For Input As #1 n = 0Do While Not EOF(1) Input #1, xFor i = 2 To x - 1If x Mod i = 0 Then Exit ForEnd IfNextIf i = x Thenn = n + 1 End IfLoopPrnClose #1End Sub数组Private Sub Form_click() Dim a(1 To 1000)Open d:1.txt For Input As #1 i = 1Do While Not EOF(1) Input

2、 #1, a(i)i = i + 1Loop把数放到数组里n = 1000For i = 1 To n - 1For j = 1 To n - iIf a(j) a(j + 1) Then t = a(j)a(j) = a(j + 1) a(j + 1) = tEnd IfNextNext处理数组Pra(500)Close #1End Sub套路 3Private Sub Form_Click() 预处理Open d:kaoshiwenjian.txt For Input As #1 数据文件名根据实际情况调整Do While Not EOF(1)Input #1, x如果有两列数据需要加上一

3、个变量 处理数据 XLoopPr结果Close #1End Sub判断一年是否为闰年Private Sub Dim x%x = Val(Text1)d1_Click()If x / 400 Label2 =ElseLabel2 = End IfEnd Sub= x Text1400 Or x Mod 4 = 0 And x Mod 100 0 & 年是闰年ThenText1& 年不是闰年百钱百鸡问题Private For i ForSub= 0j =d1_Click()To 200 To 33If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then

4、 Pr- i - jNext Nexti, j, 100End Sub阶梯问题2、Private Sub n = 0Dod1_Click()If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5=4AndnMod6=5Andn Mod 7n = Loop PrEnd Sub= 0 Then Exit Do n + 1n计算 1-2+3-4.。+n 的值5、Private Subd1_Click()n = ForsVal(InputBox(输入计算到第几项:,0)i= 1 To ns + (-1) (i + 1) * iNext PrEnd Subn, sPriva

5、teSubd1_Click()Dim Forsi%,s!1 Toi=s4+ i iNext PrEnd Subs1+（1+2）+（）。n 的值，n 由用户输入Private Subd1_Click()Dim n =s =n%, s%Val(InputBox(输入计算到第几项:, 0: t = 0,0)Fort si=t s1+To n itNext i PrsEnd SubPrivate Subd2_Click()Dim n =s = Fortn%, s%Val(InputBox(输入计算到第几项:, 0: t = 0,0)i= 0j=1To nFort=t1+To jiNexts = Nex

6、t PrEnd Subs+ts水仙花数Private For nk =If nnNext End SubSub= 100d1_Click() 999ToTrim(Str(n)= Left(k, 1) 3 + Mid(k, 2, 1) 3 + Right(k, 1) 3 Then Pr完数问题PrivateSubd1_Click()Dim Forsm%,t%, s%2 To 1000m= 1tFor= 2 To m / 2If Next If s PrmMod t = 0 Then s = s + t=m Thenm; = 1 ;For t = 2 To m / 2If m Mod t = 0

7、Then Pr NextPr End IfNext End Sub+;t;求 1 到 999 中最大的三个素数Private For n ForIf NextSub= 999i = 2d1_Click()To To100n -= 0Step -11Then Exitn i=Mod iForIf i Prn Then nk End= k + 1IfIf k = 3 Then Exit For Next nEnd Sub那契函数前多少项的和Private Subd1_Click()Dim Formn%,m%1 To+ 1i=m20PrTab(m -1) * 8 + 1);Thenfib(i);If i Mod 5 = 0 Prm = 0 End IfNext PrEnd SubFunction If t =fibfib(t) Aseger1 Or t = 2 Then= 1Elsefib = fib(t - 1) + fib(t - 2) End IfEnd Function计算 1！+ 2！+,Private Subd1_Click() egerDim n = sum Prn, sum AsVal(InputBox(n=?)= jsh(n)1!+2!+.+