绍兴鲁迅中学 程序阅读题 编辑：沈云良
经典算法程序实现(基础篇一)2018 班级：_______ 姓名：________ 【累加累乘】 1、填空完成程序，使得当单击窗体后，Label1上显示100以内（含100）偶数之和。 Private Sub Form_Click() Dim i As Integer '定义变量i '定义变量s，用于存放'100以内（含100）偶数的和 Dim s As Integer s = 0 For i = 2 To 100_____________ s =________________ ____________ Label1.Caption = ____________ End Sub 2、填空完成程序，编程计算1-1/2+1/3-1/4+...+1/99-1/100，单击窗体后，在窗体上显示结果。 Private Sub Form_Click() Dim s As Single 填空完成程序，使得当单击窗体后，在窗体上输出问题答案。 Private Sub Form_Click() Dim p As Single ' 变量p保存年产值 Dim n As Integer ' 整型变量n为所求年数 ____________ n = 0 Do While p < 4000 p = p *____________ n = ______________ Loop Print \"n=\"&___________ End Sub 4、程序填空，使得当单击按钮后，Text1显示7！的值。 7！=1*2*3*……*7 Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 1 For i = 1 To____________Step 1 a =____________ Next i Text1.Text = Str((a)) End Sub 5、编程计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。 Private Sub Form_Click() Dim s As Single 's变量用于存放计算结果 Dim p As Single Dim i As Integer '定义一个循环变量 s =____________ '给s赋初值 Dim i As Integer s =____________ For i = 1 To ____________Step 1 If i Mod 2 <> 0 Then s = ___________________ Else s = ___________________ End If Next i Print \"s=\"&s End Sub 3、某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？ 1
p = _____________ '给p赋初值 For i = 1 To 8 p = p * i 绍兴鲁迅中学 程序阅读题 编辑：沈云良
s =____________ Next i Print \"s=\"; s End Sub 6、填空完成程序，使得当单击窗体后，计算1+2+3+…+N>500的N的最小值，并在文本框Text1中显示出来。 Private Sub Form_Click() Dim s As Integer '变量s存放和 Dim n As Integer s =____________ '为s赋初值 n =____________ '为n赋初值 Do While ____________ n = n + 1 s = s + n Loop Text1.Text = Str(__________) End Sub 7、填空完成程序，使得单击窗体后，计算出1+2+3+…+N<500的N的最大值，并在文本框Text1中显示出来。 Private Sub Form_Click() Dim s As Integer '变量s存放和 Dim n As Integer n = ____________'为n赋初值 s = ____________ '为s赋初值 Do While s < 500 n = n + 1 s =____________ Loop Text1.Text = Str(___________) End Sub 值。 Private Sub Command1_Click() Dim Pi As Single, t As Single Dim n As Integer, s As Single Pi =_________________ t = 1: n = 1: s = 1 Do While Abs(t) >= 0.0001 Pi = Pi + _________________ n = n + 2 s = -s t = ________________ Loop Pi = Pi * ____________ Print \"Pi=\" &Str(Pi) End Sub 9、一群猴子摘了一堆桃子，每天吃掉当天剩余桃子数的一半，每次又忍不住多吃一个，这样到了第十天就剩下一个桃子可以吃了。 实现功能：计算猴子最初一共摘了多少个桃子。 Private Sub Command1_Click() Dim tz As Integer 'tz是桃子数 Dim ts As Integer 'ts是天数 tz = _______________ For ts = 1 To __________ tz =__________ * 2 Next ts Print \"最初共有桃子\" &______________ End Sub 8、实现功能：利用格里高利公式求，直到最后一项的值小于0.0001为止，输出的2
