《程序摇篮作品呈现》由会员分享，可在线阅读，更多相关《程序摇篮作品呈现（6页珍藏版）》请在装配图网上搜索。
1、“程序摇篮”社团活动成果活动过程中范例以及学生作品呈现：学生编程完成阶乘算法的实现一。1、 使用嵌入双循环实现的算法。Private Sub Command1_Click()x = 0y = 1For i = 1 To 10y = 1For j = 1 To iy = y * jNext jx = x + yNext iText1.Text = xEnd Sub2、使用单循环实现的算法。Private Sub Command1_Click()x = 0y = 1For j = 1 To 10y = y *jx=x+yNext jText1.Text = xEnd Sub程序运行的界面：程序运行
2、的结果：学生编程完成阶乘算法的实现二。学生绘制园的算法:a = Val(Text1.Text)所需控件一个输入半径的text控件，一个命令运行command控件b = Val(Text2.Text)c = Val(Text3.Text)Form1.Height = 6000 haItForm1.Width = 6000 wIdForm1.Scale (-10, 10)-(10, -10) 美 skelPrint yForm1.CurrentX = 9Form1.CurrentY = -0.5Print xd = Val(Text4.Text)For x = -d To d Step 0.01Y
3、1 = Sqr(d * d - x * x)Y2 = -Sqr(d * d - x * x)Form1.CurrentX = xForm1.CurrentY = Y1Form1.PSet (x, Y1)Form1.CurrentY = Y2Form1.PSet (x, Y2)Next x学生编程完成阶乘算法的实现三。学生绘制二次函数图像的程序：a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)ClsForm1.Scale (-10, 10)-(10, -10)Line (-9, 0)-(9, 0)Line (0, -8)-(0, 8)Form1.CurrentX = 0.5Form1.CurrentY = 9Print yForm1.CurrentX = 9Form1.CurrentY = -0.5Print xFor x = -8 To 8 Step 1Form1.PSet (x, 0.1)Next xFor y = -6 To 6 Step 1Form1.PSet (0.1, y)Next yFor x = -8 To 8 Step 0.01y = a * x * x + b * x + cForm1.PSet (x, y)Next x
程序摇篮作品呈现
