信息交流社团第一次活动策划方案

一、指导思想：

立足学生的精神发育和成长，关注学生的学习素养，发展学生的特长能力，追求“卓越”人格，促进学生的精神成长，进一步深化素质教育，提高学生信息技术应用和操作水平，提高学生的探索与创新能力，发展学生的特长，形成鲜明的个性。

二、主要目标：

1、培养一批学生编程爱好者，提高他们的电脑制作技术，培养他们的研究性学习能力、动手能力和创新精神，促进学生能力的全面发展。

2、挖掘出一批有兴趣的同学，进一步提升他们的信息技术应用能力和编程思维。

3、为今后的竞赛活动作好预备梯队，为各级各类电脑制作竞赛输送优秀的学生。

三、活动计划：

编程作为教育的组成部分，能提高学生的思维能力与创新能力。为了适应时代要求，活跃学校的课外活动，信息交流社团本次活动计划如下：

1、学生主动思考，提出解决问题的方法。

2、教育学生要热爱集体，保护好公物，保持电脑教室的清洁。遵守课堂纪律，养成良好的电脑用机习惯和学习习惯。

3、依据学生特点，培养学生编程能力能力。有了一定编程思维基础后，再以问题设计为辅，引导学生将自己所遇到的问题用语言表达出来，充分发挥他们好动，思维跳跃性强，养成对听到、看到，感到的事物进行思考的习惯。4、做好点评工作。对每位学生的成果进行点评，让他们认识到自己程序作品的优缺点，共同学习，共同进步，从而使学生初步感知编程与学习生活的联系。

5、定时开展一些程序作品参观，进一步提高他们的程序设计积极性。那些有新意的作品，同学之间可以展示、交流，有助于更好的了解别人的意图，学习到新的问题解决方式，帮助学生发现新的创意，逐步完美构思。

四、活动内容

用vb实现如下功能：在文本框内输入听力及笔试成绩，当听力成绩达到30分以上（含30分）、笔试成绩达到60分以上（含60分）时显示评价为“合格”；否则显示“不合格”。

操作过程

1 窗口设计      

2 程序代码

Private Sub Command1_Click()

    Dim a As Double

    Dim b As Double

    Dim c As String

 a =     Val(Text1.Text)    

    b = Val(Text2.Text)    

    If   a >= 30 And b >= 60      Then

        Text3.Text = "合格"

    Else

        Text3.Text = "不合格"

    End If      End Sub

定义变量

赋值语句

条件判断语句

3 调试运行

四、活动时间

2019年2月26日上午小自习

五、活动地点

    综合楼四楼微机室

六、展示

    活动结束作品展示总结。