程序摇篮作品呈现.doc

“程序摇篮”社团活动成果

活动过程中范例以及学生作品呈现：
学生编程完成阶乘算法的实现一。
1、 使用嵌入双循环实现的算法。
Private Sub Command1_Click()
x = 0
y = 1
For i = 1 To 10
y = 1
For j = 1 To i
y = y * j
Next j
x = x + y
Next i
Text1.Text = x
End Sub
2、使用单循环实现的算法。
Private Sub Command1_Click()
x = 0
y = 1
For j = 1 To 10
y = y *j
x=x+y
Next j
Text1.Text = x
End Sub
程序运行的界面：

程序运行的结果：

学生编程完成阶乘算法的实现二。
学生绘制园的算法:
a = Val(Text1.Text)'所需控件一个输入半径的text控件，一个命令运行command控件
b = Val(Text2.Text)
c = Val(Text3.Text)
Form1.Height = 6000 ' [haIt]
Form1.Width = 6000 '[wIdθ]
Form1.Scale (-10, 10)-(10, -10) '美 [skel]
Print "y"
Form1.CurrentX = 9
Form1.CurrentY = -0.5
Print "x"
d = Val(Text4.Text)
For x = -d To d Step 0.01
Y1 = Sqr(d * d - x * x)
Y2 = -Sqr(d * d - x * x)
Form1.CurrentX = x
Form1.CurrentY = Y1
Form1.PSet (x, Y1)
Form1.CurrentY = Y2
Form1.PSet (x, Y2)
Next x

学生编程完成阶乘算法的实现三。
学生绘制二次函数图像的程序：
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Cls
Form1.Scale (-10, 10)-(10, -10)
Line (-9, 0)-(9, 0)
Line (0, -8)-(0, 8)
Form1.CurrentX = 0.5
Form1.CurrentY = 9
Print "y"
Form1.CurrentX = 9
Form1.CurrentY = -0.5
Print "x"
For x = -8 To 8 Step 1
Form1.PSet (x, 0.1)
Next x
For y = -6 To 6 Step 1
Form1.PSet (0.1, y)
Next y
For x = -8 To 8 Step 0.01
y = a * x * x + b * x + c
Form1.PSet (x, y)
Next x