推荐第1篇：vb期末教学工作总结
VB程序设计教学工作总结
本学期我承担了高二计算机一二班的VB课程教学。学校的重心其实就是常规教学，所以我坚持做好从“备、讲、批、辅、考、评”诸环节抓起，高标准严要求，认真操作，效果比较好。
1、备课。认真备课是上好一堂课的前提条件，无论是在教室里上课还是在机房里上实验课，教师准备的充分，充分考虑到学生在学习或者操作过程中遇到的问题，并能够提前采取一些方法和措施，这样在课堂上，教师就能够充分地驾驭整节课，并且能让课堂进行得有条理、有效果。
2、上课。利用准备好的课堂教案或者课件，在教室里通过多媒体，教师进行知识点的传授同时，进行相关的一些操作演示，让学生把知识点和技能充分的结合起来，从而有效地学习。在机房里，利用事先准备好的任务单，通过任务驱动的方式，让学生能够比较明确的了解一节课的任务，同时在任务单里设置梯度，能够照顾不同水平的学生，确保每个学生能够充分的利用上机的时间。
3、作业与辅导。VB程序设计的作业基本上都是除了实验时的，更多的是拓展训练中的题目，通过学生在操作过程中发现的问题，及时汇总，并且及时通过教师机控制演示，解决大部分学生遇到的问题。一些小部分学生遇到的问题，教师就通过个别的辅导，进行问题的答疑，从而能够让学生在课堂中能够及时解决作业，完成作业。
4、听、评课。通过听其他老师的课，听各位经验老道的教师点评，从而吸收优秀的教学机智，并将这些机智通过自己的消化和改进，
吸收为自己的东西。通过听课与评课，我觉得自己的在教学方面有了较大的提高。所以在下个学期，将继续认真听课评课。
这个学期，教学过程中，完成了应该完成的教学任务，与此同时，却发现了自己在教学过程中，依然存在以下的不足。这些不足都是在日后的教学课程中需要多加关注的。
1、教室里课程设计得欠缺了吸引力
尽管专业课是操作性的课程，但是如果教学设计的环环相扣，引人入胜的话，完全可以让学生听得如痴如醉，同时又能够掌握住技能，但是，事实上在课上，班级里有六七个学生不能够进入状态，精神无法集中在课堂中。
2、课堂管理方面还有待提高
对于一些上课无法集中注意力的学生，采用了各种方法，有些学生有明显的起色，但是还有一部分学生的注意力还要再去抓，通过各种方法，让教学课堂成为每个学生的积极参与的学习天堂。
推荐第2篇：Vb课程设计期末成绩处理
期末成绩处理课程设计报告（VB） 编号：28
期末成绩处理设计报告
一、设计思路
1.要达到的目的
①培养学生综合利用VB语言进行程序设计的能力，主要是通过使用VB的标准控件，加深对控件的多个属性的认识及如何使用属性进行程序设计
2.关键问题的解决
① 设计一个具有两个窗口的期末成绩统计的小程序 ②其中第一个窗口完成：
学生人数和4门课成绩的录入，4门课的名称及学生人数由用户输入。 每录入完一个学生成绩后，将各门课成绩写入Excel表格中。
打开Excel表格查看写入的数据是否
② 第二个窗口用来绘制描述各科目平均成绩的柱形图，界面中还应包含坐标系、图表名称、各科成绩的平均分值、课程名称及色块
③ 对窗口1的4个文本框要求：在输入成绩之前，焦点要在第一个文本框中，且文本为可编辑状态；当第一个文本框中输入2位数据后，焦点自动移入下一个文本框中，且文本状态和第一个相同 文本框中只允许输入数字0、
1、
2、
3、
4、
5、
6、
7、
8、9及小数点“.”；文本框中文本的位数最大为2位 输入学生成绩时窗口上要提示输入的是第几个学生成绩，并要求输入最后一个学生成绩后“写入数组”控件隐藏
④ 全部学生成绩输入完成后，单击“写入Excel文件”控件，把学生成绩全部放在Excel表格中，要求有字段名内容。
⑤ 单击“打开Excel文件”控件，将打开刚刚生成的Excel表。
⑥ 单击“绘制柱形图”控件，打开第二个窗口，并显示以课程平均分为依据的柱状图。
⑦ 要想结束程序，应单击“退出”按钮。
三、部分程序关键源代码及注释
Private Sub Command2_Click() \'★创建EXCEL对象
Set XlApp = CreateObject(\"Excel.Application\") \'★打开已经存在的EXCEL工件簿文件
Set XlBook = XlApp.Workbooks.Open(App.Path & \"\\book.xls\") \'★设置EXCEL对象可见 (或不可见) \'XlApp.Visible = True \'★设置活动工作表, sheet1表示表名，可以使用字符型变量代替。 Set XlSheet = XlBook.Worksheets(\"Sheet1\") XlSheet.Range(\"A1:IV65536\").Clear \'★给EXCEL对象中的表的单元格附值? \'★保存 EXCEL 文件 XlBook.Save \'★另存为
\'XlBook.SaveAs (\"文件名\")
期末成绩处理课程设计报告（VB） 编号：28
\'★关闭工作簿
XlBook.Close (True) \'★结束 EXCEL 对象 \'xlExcel.Quit \'★释放xlApp对象 Set XlApp = Nothing MsgBox \"写入Excle成功\" End Sub Private Sub Command3_Click() \'★创建EXCEL对象
Set XlApp = CreateObject(\"Excel.Application\") \'★打开已经存在的EXCEL工件簿文件
Set XlBook = XlApp.Workbooks.Open(App.Path & \"\\book.xls\") \'★设置EXCEL对象可见 (或不可见) XlApp.Visible = True End Sub
四、设计方案的完善及目前存在的问题
1．设计方案要完善的地方 ① 操作有点繁琐 2.目前存在的问题
① 开始时出现错误，但不影响使用
五、本次设计的收获及心得体会
加强了对VB的理解，让我更加明白VB的实际作用。
六、对该题目和VB设计的意见和建议
1.对该题目的意见和建议
不要单个输入，应该直接输入多个同学的成绩。 2．对本次设计的意见和建议 难度应该降低点。
推荐第3篇：VB程序设计期末复习总结
1.timer_Tick事件 在指定的时间里调用此事件，比如设置timer1.interval=10，则表示在一秒内执行10次timer_Tick事件。
2.Label3.Text = Format(x, \"00000\")，设置x是一个五位数，不足左侧用零来补。
3.TextBox1.Text = UCase(TextBox1.Text)，将输入的字母转换成大写，用textchanged事件 4.Label1.Font = New Font(\"隶书\", 12, FontStyle.Bold) 设置字体名：Textbox1.Text.Font.Name = \"微软雅黑\"。设置字号：Textbox1.Text.Font.Size = 14。设置粗体：Textbox1.Text.Font.Bold = True。设置斜体：Textbox1.Text.Font.Italic = True。设置下划线：Textbox1.Text.Font.Underline = True。设置删除线：Textbox1.Text.Font.Strikethrough = True。 Label1.Font = New Font(Font.Name, 12, FontStyle.Italic)也可如此 5.将Button1控件的左上角定位于距窗体左边框60、距顶部40的位置。Button1.Location = New Point(60,40) 等价于：Button1.Left = 60
Button1.Top = 40 6.例如，将Button1控件设置为宽度为80、高度为30。Button1.Size = New Size(80,30) 等价于：Button1.Width = 80
Button1.Height = 30 7.Size与clientsize。前者是整个窗体的大小，后者是不含边框的窗体的大小。
8.Cursor属性决定运行时鼠标移动到对象上时，显示出的鼠标指针的图像。其属性值是枚举类型。
9.ControlBox和Icon属性决定标题栏上是否有控制菜单框、设置其图标。默认情况下，ControlBox属性值为True，若设置为False，则不显示控制菜单框，并且不显示最大化 按钮、最小化按钮和关闭按钮。
10.FormBorderStyle属性用于设置窗体边框的样式。其他的BorderStyle属性是用来设置边框格式的。
11.窗体的常用事件。Click事件，在程序运行时单击窗体的某个位置，VB将调用窗体的Form_Click事件过程，如果单击的是窗体内的控件，则只能调用相应控件的Click事件过程。Load事件，当窗体被装入时触发该事件。当应用程序启动时，自动执行该事件过程，因此通常将进行初始化的程序代码写在窗体的Load事件过程中。 12.TextAlign属性用于设置文本的对齐方式。Left：正文左对齐，Right：正文右对齐，Center：正文居中。也可用于决定对象的位置。
13.Maxlength属性用于设置文本框中最多能够输入字符的个数。默认情况下，其值为32767。 14.ScrollBars属性用于设置水平滚动条和垂直滚动条。当设置水平滚动条后，文本框的自动换行功能将会自动消失，只有按Enter键才能换行。竖直滚动条则正常换行。
15.ReadOnly属性用于设置文本框是否可以编辑。默认值为False，表示运行程序时能对文本框进行编辑。当其值为True时，不能编辑文本框中的内容，但可以选定文本框中的内容。
16.PaWordChar属性设置在文本框中取代用户输入而显示的字符。例如，当设置为“*”时，运行程序时文本框中输入的内容存储在Text属性中，但均以“*”显示。一般用于设置口令。
17.TextChange事件当用户输入新内容或程序将Text属性设置为新值时，文本框的Text属性值发生变化，从而触发TextChange事件。当用户输入一个字符时，就会触发一次TextChange事件。例如，在文本框中输入字符串Basic时，就会5次触发TextChange事件。出发之后开始执行设置程序。
18.KeyPre事件当用户在文本框中按下并释放键盘上的一个键时，就会触发KeyPre事件。与TextChange事件类似。所不同的是，当按下某些键（如方向键）时，文本框的值没有发生变化，此时仅触发KeyPre事件，而不触发TextChange事件。KeyPre事件会返回一个e参数，通过e.KeyChar可以获取按键对应的字符。例如，运行程序时按了字符“A”键，则e.KeyChar的值为“A”。 将命令按钮的Text属性设置为“退出(&E)”。运行时，按钮上显示“退出(E)”。当用户按下Alt+E时，相当于单击了该按钮，运行其Click事件过程。
19.Picturebox属性：将图像文件c:\\example\\rabbit.jpg显示在PictureBox1图片框中：PictureBox2.Image=Image.FromFile(\"c:\\example\\rabbit.jpg\") 20.Picturebox属性：SizeMode属性用于设置图片框中图像的显示方式，属性值有：Normal：默认值，图像保持其原始尺寸、其左上角与图片框的左上角对齐。如果图像比图片框大，则超过部分被剪裁掉；StretchImage：图像被拉伸或收缩，使其与图片框的大小一致；AutoSize：图像保持其原始尺寸、自动调整图片框的大小，使其与图像大小一致；CenterImage：图像保持其原始尺寸、与图片框的中心对齐。若图像比图片框小，图像居中显示；否则，图像居中，而外边缘将被剪裁掉；Zoom：图像大小按其原有的大小比例被缩放，其宽度或高度之一与图片框一致。
21.Vb中变量命名法：必须以字母或下划线开头，由字母、数字和下划线组成，长度不超过1023个字符。如果名称以下划线开头，则必须包含至少一个字母或数字。不能使用VB中的关键字，如：Integer、If等。
22.
Boolean类型是逻辑类型，表示true和false。
23.n是十进制/八进制/十六进制整数，八进制在整数前面加&O（是字母O，不是数字0），例如：&O
56、&O56S、&O56L。十六进制在整数前面加&H例如：&H
56、&HAB
12、&HAB、&HABS、&HABL。Decimal、Single、Double只能表示十进制，前者是因为定义，后两者是因为是浮点数。
24.格式：Mid(s, n[, m]) 、Left(s, n)、Right(s, n) 功能：s是一个字符型数据，n和m是一个整型数据。Mid返回从字符串s中的第n个字符开始的m个字符，无m则表示所有自字符。Left返回字符串s中左边n个字符，Right返回字符串s中右边n个字符。
Mid(b, 2, 1) = 0
✔ Microsoft.VisualBasic.Left(b, 3) = 0
❌ Mid可用于赋值，left与right不可用于赋值。
25.后缀
26.Char类型，用来存储单个字符或汉字，占两个字节。例如：\"A\"、\"0\"、\"数\"等。String类型，表示包含多个字符的字符串用一对西文双引号“\"”括起来表示例如：\"Visual Basic\"、\"2016\"、\"G\"、\" \"空字符串\"\"若表示的字符串中包含双引号“\"”，则用连续的两个双引号表示。
27.字符串查找：格式：Instr([n,] s1, s2)，功能：n和m是一个整型数据，s1和s2是一个字符型数据。Instr函数在s1字符串中从第n个字符开始查找s2字符串，如果找到s2字符串，返回s2在s1中的起始位置值，否则返回0。若省略n，则从第一个字符开始查找。例如文本框TextBox1中输入的是书名，判断书名中是否含有“计算机”三个字的表达式为：If InStr(TextBox1.Text, \"计算机\") >0 Then 28.Date类型变量d的值是d = \"[8 / 20 / 2009]6:5:4[AM]\"
[月日年]时:分:秒[上下午] 29.算术运算符的优先级：指数取负，乘除整除，取余加减（^-*/\\+-mod）
30.串联运算符“+”运算符既可作为字符串运算符，又可作为算术运算符。当“+”运算符两边操作数都是字符串时，进行串联运算，将两个字符串连接起来，并作为结果。当“+”运算符两边操作数都是数值时，进行加法运算。当一侧是数字字符串，另一侧是数值时，若option strict为on则显示错误，off则正确转化为double运算，默认值为off；当一侧是数值，另一侧是非数字的字符串是，错误。“&”运算符不管两边操作数的数据类型，直接进行连接操作。
31.关系运算符设计比较时注意：两个操作数都是数字则直接比较；都是字符则比较ascll码值；中文最牛逼；比较运算符优先级相同；
32.Like函数的用法：Like运算符与通配符：?、*、#、[字符列表]、[!字符列表]结合使用。其中，？表示任何一个字符，* 表示任意多个字符，# 表示任何一个数字（0~9）， [字符列表] 表示字符列表中任意一个字符，[!字符列表] 表示不在字符列表中的任意一个字符。
If b Like \"[\" & A(m) & \"]\" Then If Not e.KeyChar Like \"[a-zA-Z]\" Then 33.当多种表达式同时在一个表达式中出现时，其优先级的顺序如下：
算术运算符＞字符串运算符＞关系运算符＞逻辑运算符
具有相同优先顺序的运算符将按照它们在表达式中出现的顺序从左至右进行计算。 当表达式中包含多个运算符时，使用圆括号，可以改变计算顺序，圆括号内的表达式优先计算。 34.35.36.
逻辑运算符的功能是对操作数进行逻辑运算（又称布尔运算），其运算结果是逻辑值True或False。 Const PI As Single = 3.1415
\'声明符号常量。声明一个常量，不一定非得用dim，const也可以
数学函数包含在System.Math类中。该类中包含许多方法和常量，利用这些方法和常量可以进行各种数学运算。这些方法可以作为数学函数使用，使用时，在函数名前面加“Math.”。
四舍五入函数，格式：Round(x[,n])。功能：x是一个数值型量，将x值四舍五入，得到最接近的整数或指定的小数位数n的值。缺省n时，表示四舍五入取整。示例：Math.Round(4.56) 的运算结果为5，Math.Round(4.56, 1) 的运算结果为4.6 字符和ASCII码转换函数，格式：Asc(s)、Chr(x)。功能：c是一个字符型量、x是一个数值型量。Asc计算出字符串的第一个字符的ASCII码值，Chr则计算出以x为ASCII码的字符。示例：Asc(\"A\")的运算结果为65。Chr(65)的运算结果为\"A\"。Asc(Chr(x))的运算结果仍然是x，Chr(Asc(c))的运算结果仍然是c。
大小写字母转换函数，格式：UCase(s)、LCase(s)。功能：s是一个字符型量，UCase将字符串中的所有字母转换成大写字母，LCase将字符串中的所有字母转换成小写字母。ucase(“a”)也有引号
判断文本框TextBox1中输入的是否为单个字母的表达式为：
If UCase(TextBox1.Text)>= \"A\" And UCase(TextBox1.Text)
If TextBox1.Text Like \"[a-zA-Z]\" Then If UCase(TextBox1.Text) Like \"[A-Z]\" Then If LCase(TextBox1.Text) Like \"[a-z]\" Then 字符串去除空格，格式：Ltrim(s)、Rtrim(s)、Trim(s)。功能：s是一个字符型数据。Ltrim的返回值是去除字符串s左边（前面）空格后的字符串、Rtrim的返回值是去除字符串s右边（后面）空格后的字符串、Trim的返回值是去除字符串s前后空格的字符串。 字符串替换，格式：Replace(s, s1, s2[, n[, m]])。功能：s、s1和s2是一个字符型数据，n和m是一个整型数据。Replace在字符串s中从第n个字符开始，将前m个字符串s1替换为s2，并将第n个字符之前的字符删除。若缺省m，替换把第n个字符开始的所有符合条件的字符串。若缺省n，则从第一个字符串开始替换。
字符串与数组元素的转换，格式：Join(A, “d”)、Split(s, “d”)。功能：A为数组，s和d是一个字符型数据。Join以d为分隔符将数组A各元素的值连接成字符串，并作为返回值。Split的功能与Join相反，它将字符串s以d为分隔符，分隔成数组元素。缺省d时，以空格为分隔符。 37.
38.
39.
40.41.
42.
43.
44.45.格式输出函数Format可以将数值、日期和时间按指定格式转换成字符串，其格式如下：Format(表达式, “格式字符串”) 。格式名General Number、G或g保持原有数值的小数位数，格式名Fixed、F或f则四舍五入保留两位小数。
46.百分比的数字格式，格式名Percent表示将数字乘以100后、保留两位小数、并加百分号 (%)。示例：Format(0.567,\"Percent\")的运算结果为\"56.70%\"。
47.科学表示法的数字格式，使用标准的科学表示法表示数字。格式名Scientific提供两个有效位，格式名E或者e提供六个有效位。示例：Format(1234.567,“Scientific”)的运算结果为\"1.23E+03\" ；Format(1234.567, \"e\")的运算结果为\"1.234567E+003\"。
48.常用的用户定义数字格式，0 和 #。符号“0”和“#”用于决定显示数值整数部分和小数部分的位数。其相同之处是：若数值整数部分的位数多于格式字符串的位数，按实际数值返回；若小数部分的位数多于格式字符串的位数，按四舍五入计算。不同之处是：当数值的位数少于格式字符串的位数时，“0”格式将不足部分补0，而“#”则不显示。 49..和 ,
符号“.”表示加小数点，“,”表示加千分位。示例：
Format(1234.56, “0,000.00”)的运算结果为“1,234.56”。 Format(1234, \"0,000.00\")的运算结果为\"1,234.00\"。
50.日期的格式，根据区域设置显示日期。格式名Date、Medium Date或D表示长日期格式，格式名Short Date或者d表示短长日期格式。示例：假设今天是2015年9月25日，Format(Now, \"Long Date\")的运算结果为“2015年9月25日”； Format(Now, \"Short Date\")的运算结果为\"2015/9/25\"。 Label1.Text = Format(TextBox1.Text, \"long date\") 51.复合赋值语句常用于以下几个方面：累加sum += s
等价于
sum = sum + s 连乘 n *= i
等价于
n = n * i
显示多行信息，复合赋值语句使用得最多的是“&=”运算符。要显示多行信息，一般是利用文本框、标签，通过“&=”来实现显示。 52.Inputbox（“提示信息”，“标题”，“默认内容”），“提示信息”、“标题”、“默认内容”都可以不填空着，但至少要有一个空着的省略号。
53.InputBox的返回值是一个字符串。如果需要将输入的数值参加算术运算，必须在进行运算前用Val函数把它转换为数值类型。但可以用split函数调用。每执行一次InputBox函数只能输入一个值，如果需要输入多个值，则必须多次调用InputBox函数。这时，通常与循环语句、数组结合使用。对话框显示的信息，若要分多行显示，必须加回车换行符，即Chr(13)+Chr(10)或VB系统常量vbCrLf。
54.定义变量时，可以用简写符号表示变量类型，$ 是 String ，% 是 Integer ，& 是 Long ，! 是 Single ，@ 是 Currency ，# 是 Double。例如Dim H%, F%, x%, y% 55.MsgBox(\"提示信息\", vbOKOnly, \"标题\")\"提示信息\", vbOKOnly, \"标题\"可以都是空的，但至少要有一个空的省略号。MsgBox(\"确认数据是否正确？\", MsgBoxStyle.YesNo + MsgBoxStyle.Question , \" 数据验证\") 条件表达式1 F T 条件表达式2 F … 条件表达式n T 语句块1 语句块2 F T 语句块n 语句块n+1 56.elseif 的用法
57.如果是数字，则没有is。
58.Do until loop(直到结束)；do while loop(当执行) 59.在for语句中，执行一次next语句，循环变量增加一个步长
60.UBound函数，格式为：UBound (数组名 [, 维])。使用UBound函数可以计算出数组的任一维可用的最大下标，从而确定数组的任一维的上界。其中：参数维指定返回数组的哪一维。1（默认）代表第一维，2代表第二维，以此类推。 61.选择法排序：
Public Cla Form1
Dim A() As Integer = {2, 1, 3, 4}
Dim m, n, i, j, imin As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
m = UBound(A)
For i = 0 To m1
For j = m To i + 1 Step -1
If A(j)
A(j1) + f(n - 2)
End If
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim y As Single
y = 0
For n = 1 To Val(TextBox1.Text)
y = y + 1 / f(n)
Next
Label2.Text = y
End Sub End Cla 函数的表示法2 Public Cla Form1
Dim a As String
Dim n, m As Integer
Function f(ByRef n As Integer) As String
a = TextBox1.Text
m = Len(CStr(a))
For n = m To 1 Step -1
f &= Mid(a, n, 1)
Next
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Label1.Text = f(n)
End Sub End Cla 65.打开保存等操作的用法：
Public Cla Form1
Private Sub 退出ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
End
End Sub
Private Sub 保存ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 保存ToolStripMenuItem.Click
SaveFileDialog1.Filter = \"简单文本格式|*.txt|复杂文本格式|*.rtf\"
SaveFileDialog1.FilterIndex = 2
SaveFileDialog1.ShowDialog()
MsgBox(SaveFileDialog1.FileName)
If SaveFileDialog1.FileName \"\" Then
If SaveFileDialog1.FilterIndex = 1 Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName,RichTextBoxStreamType.PlainText) \'.txt,.TXT
Else
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText) \'.doc,.DOC
End If
End If
End Sub
Private Sub 打开ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 打开ToolStripMenuItem.Click
OpenFileDialog1.FileName = \"\"
OpenFileDialog1.Filter = \"简单文本|*.txt|复杂文本|*.rtf\"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.Title = \"朕的打开......\"
OpenFileDialog1.ShowDialog()
MsgBox(OpenFileDialog1.FileName)
If OpenFileDialog1.FileName \"\" Then
Me.Text = OpenFileDialog1.FileName
If OpenFileDialog1.FilterIndex = 1 Then
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
Else
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)
End If
End If
End Sub
Private Sub 新建ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 新建ToolStripMenuItem.Click
RichTextBox1.Text = \"\"
Me.Text = \"我的记事本\"
End Sub
Private Sub 剪切ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 剪切ToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub
Private Sub 复制ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 复制ToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub
Private Sub 粘贴ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 粘贴ToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub
Private Sub 删除ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 删除ToolStripMenuItem.Click
RichTextBox1.SelectedText = \"\"
End Sub
Private Sub 全选ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 全选ToolStripMenuItem.Click
RichTextBox1.SelectAll()
End Sub
Private Sub 日期时间ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 日期时间ToolStripMenuItem.Click
RichTextBox1.SelectedText = Now
End Sub
Private Sub 复制ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles 复制ToolStripMenuItem1.Click
Call 复制ToolStripMenuItem_Click(sender, e)
End Sub
Private Sub 剪切ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles 剪切ToolStripMenuItem1.Click
剪切ToolStripMenuItem_Click(sender, e)
End Sub
Private Sub 粘贴ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles 粘贴ToolStripMenuItem1.Click
粘贴ToolStripMenuItem_Click(sender, e)
End Sub
Private Sub 显示窗体ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 显示窗体ToolStripMenuItem.Click
Form2.ShowDialog()
End Sub End Cla 66.控制输入可以用e.keychar来做 67.Listbox的用法
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Select Case ListBox1.SelectedIndex
Case 0
TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold)
Case 1
TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Italic)
Case 2
TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Underline)
Case 3
TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Strikeout) End Select End Sub
推荐第4篇：VB教学总结
茂名市第二职业技术学校
（2013～2014学年第一学期）
信息部
VB教学工作总结
2012-2013学年第二学期，我担任13级计算机精英高考班VB课程教学。VB是一种有代表性的较流行的可视化语言，利用它使得创建具有专业外观的用户界面的编程工作简单易行。本课程的目的与任务是使学生通过本课程的学习和示例的分析，掌握使用Visual BASIC开发Windows应用程序的一般方法和特点，理解Windows应用程序的基本概念、主要功能和Windows应用程序开发的基本思想，能够根据实际需要自行开发简单的Windows应用程序，并为今后进一步使用Visual BASIC或其他面向对象的可视化开发工具开发Windows应用程序打下基础。
就vb本身的特点是概念多、实践性强、涉及面广，它既像其他的程序语言一样，有自身的语法，编程思维，也有与传统的过程驱动语言的不同，最特别的在于它是面向对象的事件驱动编程。所以在教学过程中一方面要加强学生和落实学生动手能力的培养，另一方面对于关键性概念、整体实现思想方面的问题要讲解清晰。在授课过程中，我开始采用的是计算机室运用教师程序控制学生电脑授课，针对性的进行讲解，老师操作，学生进行操作，采用试验与授课结合，在进行了一段时间的教学后，发现效果一般，首先对于动手操作，学生倒是可以在vb开发环境中放置控件，并能独立完成一定的操作任务，但是他们不能将其事件驱动的特征与控件编程联系起来。他们对语法缺乏有比较清晰的理解，对于整个vb编程的思维没有建立起一个系统的概念，为了加强学生的系统概念和编程思维，我在授课过程中一方面，多讲实例，在讲解例题的过程中加强学生对于vb编程的思维训练，另一方面，采用机房和教室授课相结合，部分理论性极强课程改为教室授课，由于在教室讲课能更生动形象的把抽象的计算机语言讲解清楚，学生对于概念理论的理解也大大提高，这样改进一下教学方法，教学质量有了明显的提高，同时也激发了学生的兴趣，大部分学生对于这种机房讲课和教室讲课相结合教学方式很能接受，让问题在实践中得到解决。 实践给我的经验是一定不要对教材中每一部分都去讲解，可以选择部分最基本最常用的内容仔细讲解，其他内容一代而过，留给学生自己思考的时间。帮助学生尽快掌握实用VB开发Windows应用程序的一般方法。学习VB的最好方法是结合自己的需要利用最基本的方法开发出最简单的程序来获得Windows应用程序开发的感性认识。如果每一个细节都去讲解，一来浪费大量时间，二来学生获得大量目前用不道的知识，这样的知识是死的并且会很快忘记。关键要通过教师的讲解获得Windows应用程序开发的思想而讲解VB的实用方法仅仅是一个手段。要引导学生根据自己的兴趣和要求有选择地快速地获得全书的整体印象，至于书中大量细节内容应引导学生通过上机和自己思考来掌握。不仅要让学生学会使用VB开发应用程序，还要让学生学会如何利用这个开发工具，结合自己的需要，来思考如何实现自己的需要。这样不仅学会了VB的使用，还学会了如何开发Windows应用程序的思想。课堂的时间是非常短的，而学生课下却有很长时间，必须教会学生开发Windows应用程序的思想而不是仅仅学会使用开发工具的方法。这样学生通过学习VB获得开发Windows应用程序的一般方法，为学生日后进一步学习和使用VB开发实用程序打下基础，也为学生学习其他Windows应用程序开发工具打下基础。理论指导实践，实践加深对理论的理解，这是我在vb教学过程中最重要的体会。
另外2013级计算机应用（精英高考）班的学生学习能力总体来说比较强，逻辑思维能力也很棒，他们对自己动手编程也非常感兴趣，这也大大激发了我的教学热情和积极性，我将继续努力把自己的教学工作做好。
推荐第5篇：VB教学反思
vb教学反思
一、学情分析：
对于程序设计这门课，同学们以前接触基本为零，这样的话，起点都一样，便于教学。
二、教材分析：
１、教材的每章节的安排都是附合新课改的要求：
情景创设---任务驱动--------体验活动---后续活动----评价 (提示板-学习指引) 这样编写的教材，有利于教师引导学生完成学习任务，而不用像老教材那样，你得自己去设计如何导课会更好。一本好教材会让我们节省很多时间和精力。
如：第一章第一节，介绍计算机解决问题的过程
它提出了一个问题：学校组织学生电脑作品竞赛，要确定各奖项的名额及名额数。 ２、但编写的还不够细，有好多任务，我都得仔细研究还不见得找到结果，教参里也没有提示。
３、还有一些任务，教参里给的答案我认为不十分准确，这对于像我这样从未教过并且未学习过ｖｂ的人来说，给我造成了障碍。
三、组织教学
（一）在教学过程中，（情景创设、任务驱动）环节是我每节课要引导同学们完成的，（提示板、学习指引）是在（任务驱动）环节穿插简介的，其它的环节由于时间关系不曾做。
（二）在引导学生学习的过程中，所有的概念、名词我都不不给学生讲解，不易理解，也浪费时间，需学生在完成任务的同时去领会其意义。
如：什么是ｖｂ中的窗体？什么是属性？（和word做类比很容易理解。）
（三）在调动学生积极性方面，我觉得将ｖｂ说的怎么好都没有用，关键是让学生真正能动手做出些什么，这样同学们的兴趣自然就提高了。所以对第一章我仅用三节课就结束了，进入到第二章ｖｂ的学习。（第一节很有兴趣也明白，第
二、三节有同学说不懂，我觉得也没有必要非得懂）
（四）分组活动：
目标：为提高学生的协作意识，培养其协作能力。
方法：前后两座四人一组（此种微机室座位排列方式不方便前后讨论，应更改成同座两人一组）。
四、在上课近一个学期的时间内，总得来讲我觉得这本书我讲得比较牵强，原因之一本身就不会，之二备课不充分，但就其上课效果来讲，还算勉强能引导学生前进，也希望在今后的时间里，能尽量花心思在备课上，并在教与学的过程中不断改进方法，总结经验，以其能有更好的效果。
四、教学历程
第一轮磨课准备的时间大概有一周，教学导入的环节我阐述了高斯儿时的小故事引出1+2+3+?100求和问题，主要启发同学们“人都是从一点优秀起来的”，也侧面反映循环结构学习的重要性。
√课堂导入用时太多，效果不佳，建议更换。 〤do语句和流程图介绍顺序出现严重错误，有违程序设计思路
√确定程序设计三步骤，强调并落实。
〤前期设计过程考虑到教学内容较少，又在第二次上课添加了for语句的内容，画蛇添足，前前后后都没有讲解透彻，pa掉了? √主要是把思想讲透，任务环节设计不要让学生形成只需要粘贴代码的定式思维，而是
要让他们主动思考，根据程序流程图的理解设计补充代码，教学任务环节需要重新设计，课后小结也要落实。 〤课后小结前三次没有很好设计，也没能落实下去，需要设计并完善。 √环节的设计，例题精讲，练习题完整性教学很好? 一个学期的时间过得很快，最后的课上的还算成功，基本上程序设计的思想和do语句的内容讲透了，自我总结觉得课堂导入活动设计的比较成功，学生积极参与，对循环结构设计产生了比较深刻的建构，但是在动手实践环节情绪不高，一方面也反映了我们学校学生不爱积极思考，学习比较被动，兴趣是最好的老师，接下来的日子我也会悉心准备，自我沉淀，努力让学生们爱上我的课堂。篇2：算法与程序设计(vb)的反思性学习
算法与程序设计(vb)的反思性学习
【摘 要】高中信息技术课程标准是以普通高中整体改革为背景的，新课标注重提高信息素养，打造终身学习的平台，培养解决问题的能力，共同建构健康的信息文化。本文就高中算法与程序设计教学，浅谈了自己的几点思考：即教师在正确认识高中阶段开设程序设计教学的重要性基础之上，如何培养学生的反思性学习能力，从而更好的开展程序设计教学，提高学生的信息素养。
【关键词】程序设计教学；认识；反思性学习
江苏省《高中信息技术课程标准要求》指出：选修“算法与程序设计”模块以算法与程序设计为主线，揭示利用计算机解决实际问题的过程。通过本模块的教学，让学生体验算法思想，了解算法与程序设计在解决问题过程中的地位和作用。使学生能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序、实现算法、解决问题。就高中程序设计教学而言，笔者有这样几点思考。
一、对高中阶段开设程序设计教学的认识
高中阶段开设算法与程序设计教学有其必要性。学生在高中阶段打下基础，有利于他们进入大学的深造和就业以后的继续教育。此外，高考数学中加入了算法模块，也证明了开设算法与程序设计教学的重要性。
算法与程序设计属于较高层次的学习内容，所以学习的深度和广度要由教师具体情况具体对待。教师要帮助学生充分认识到该部分内容的重要性，让学生在学习过程中积极发挥主观能动性，从而促使教学工作科学、合理、有效地开展。
二、程序设计教学中培养学生反思性学习能力
反思性学习，顾名思义就是通过对学习活动过程的反思来进行学习。学生具有反思性学习的意识是反思性学习的前提。让学生明确没有反思便难有自我改错纠偏的道理；明确反思不仅能及时改正错误，还能优化已有认识，提高自身合理性水平。对于学生的成功予以适当表扬与鼓励，还可以达到强化学生反思意识的效果。另外，教师要营造开放、合作、协调、信任的教学氛围，鼓励学生大胆地质疑，给出别出心裁的答案。学生智慧的激活，会反作用于教师和其他学生，使其能在更高层次上积极思维，从而在师生、学生间积极思维的互动中，不断闪耀出智慧的光芒，从而建立一种互动的反思关系。
反思性学习不仅仅是对学习一般性的回顾或重复，而是深究学习活动中所涉及的知识、方法、思路、策略等，具有了较强的科学研究的性质。新课标强调关注每个学生的情感、态度、价值观和一般能力的培养。所以在教学中，教师要有
意识的通过多种方法来培养学生的反思性学习能力。
1、由浅入深、循序渐进
教学过程中，教师不能局限于教材内容系统条块化的安排，要能够做到重新分析教材，增强教学内容的层次性。从而既符合人的认识过程规律，也能使学生在掌握知识的同时掌握运用知识的方法。引导学生的思维层次提高，逐渐深刻，促进学生的进一步反思，诱发他们的创新思维。
例如，学完求余(mod)、整除(\)运算符后，可以讲解如何将一个两位数的个位、十位分别输出。在学生掌握的基础上，可以进一步引导学生思考，如果是一个三位数、或者四位数的时候，又该如何将每一位上的数字分别输出呢？建立上述基础上，在讲完循环结构后，还可以让学生尝试完成“水仙花数”的程序。
教学过程中使用任务驱动法时，要注意由点到面，逐步介绍各知识点。开始先让学生有所了解，经过一段时间的熟悉以及相关知识的积累后，再深入理解，然后适时地加以概括和总结。让学生对知识的理解、认识、运用有一个由浅入深、循序渐进的“螺旋式”上升过程。
2、举一反
三、触类旁通
学习过程中，不难发现解决许多问题的算法是相互联系的。如果教师善于整理、归纳，并结合一些典型例题来讲解的话，学生的思路必然拓宽，培养了他们思维的灵活性，使学生学会举一反三，提高学生对知识的应用水平与创新能力。
例如，用vb编程实现s=1+2+3+„„+100的和。 private sub form_click() dim i as integer dim s as integer s = 0 for i = 1 to 100 step 1 s = s + i next i print s end sub 在该题基础上，如何实现：
编程求s=1+3+5+„„+99的和。
再问:在①的基础上，如何实现：编程求s=2+4+6+„„+100的和。
通过类比方式，学生还可以较容易的完成下面一题：
②编程实现s=1*2*3*„„*10，即求s=10！。
再对(转载于:vb教学反思)第②题充分理解的基础之上，学生还可以完成下面一题：
③ 编程实现s=1！+2！+3！+„„+10！。
综上可见，教师如果认真的对题目进行筛选，并对教学内容进行合理编排组织进行教学，将有效帮助学生学会举一反
三、触类旁通。
四、结束语
信息技术老师应以《中小学信息技术课程指导纲要》为指导，“中学信息技术课程要以基础性知识和技能性操作为主，程序设计是更高层次的学习内容”。程序设计教学的目标不是培养“小型的程序员”。教师要培养学生用程序设计的方式进行思考，使学生的学习成为探究性活动，提高学生的创新能力，促进学生信息素养的提高，帮助学生成为适应信息化时代发展的人才。
参考文献： [1]中华人民共和国教育部.普通高中信息技术课程标准[s] [2]熊川武.反思性教学[m].上海：华东师大出版社 [3]陈伟平金炳尧.高中程序设计教学中培养学生反思性学习能力[j].中国教育信息化，2008,(1):33-34 作者单位：江苏省金湖中学篇3：vb教学的心得 vb教学的心得
针对vb教学中存在的教与学脱钩的矛盾，着重介绍了vb的教学方法，分析了学好这门课程的关键要点，以便更好地帮助学习者快速有效地掌握这门语言。 vb教学 程序设计 案例教学法 算法 实验教学 visual basic（以下简称vb）是计算机高级语言中的一种，是基于basic的可视化的程序设计语言，它继承了basic语言所具有的程序设计语言简单易用的风格，采用面向对象的程序设计方法、事件驱动的编程机制，加上由于vb是目前众多软件开发工具中效率最高的一个，所以vb成为了高校非计算机专业必修的计算机课程，也是参加计算机等级考试的主要内容。 计算机语言具有触类旁通的特点，学生在学习vb课程之前，都非常希望能学好这门课程，能编制出高水平的程序，但是，vb程序设计的方法和概念对于初次接触计算机语言的学生而言是全新的，加上部分章节内容枯燥抽象，使得学生学习起来感觉比较困难，甚至望而却步。vb课程教师在上课前都做了精心的准备，在课堂上也投入了极大的热情和耐心，可还是经常看到台下的学生表现出一脸的不解。如何解决好这种教与学脱钩的矛盾，显然采用先进有效、灵活多样的教学方法是提高vb课程教学质量的关键所在。下面是笔者多年来的vb课程教学的一些体会。
选用适当的教学方法，培养学生的自学能力和学习兴趣：vb课堂教学知识点很多，根据这门课程的一般教学顺序，前阶段讲授的内容通常都是变量、数据类型、运算符、表达式、语句、函数的定义等，学生会觉得所学内容理论性太强，加上初次接触，会觉得比较抽象，从而导致对本课程教学的不重视，等到后面真正涉及到编程时，由于基本概念和编写程序的规则没有掌握好，又缺乏算法和数据结构的知识，学生编制的程序往往是错误很多，很难在机器上调试出结果。所以这就需要我们任课教师采用适当的教学方法来改善教学效果。
案例教学法，是在教师的指导下，根据教学目标和内容的需要，采用案例组织学生进行学习、研究、锻炼能力的方法。它能创设一个良好的宽松的教学实践情景，把真实的典型问题展现在学生面前，让他们设身处地地去思考、去分析、去讨论，对于激发学生的学习兴趣，培养创造能力及分析、解决问题的能力极有益处。案例教学发的实施步骤是：第一，整理一个程序案例，这个程序应该是完整的，并且包含了当天课程的所有知识点，也包含了以前已经讲授过的知识。第二，分析案例、解决问题。讲解实现这一程序的基本思路，提出实现思路所需要解决的问题。此时，教师与学生之间是一种“师生互补，教学相辅”的关系。教师将分析案例的“主权”交给了学生，让学生运用所掌握的各种知识，甚至是课外的知识去分析这些问题，讨论解决方法。第三，回顾和总结，在程序中讲解新的知识点，总结新知识的使用方法和注意事项，展示结论，和学生共同讨论教材结论和同学结论的共性和差异性，分析差异性产生的原因，并对学生的各种结论加以点评（以鼓励的形式）；也可由学生阅读课本来分析自己的得失，从而使学生的自学能力得到培养。
这样可以通过案例把抽象的原理，概念等具体化，把他们置于一定的实际情景之中，使学生可以清楚地认识到这些原理、概念在实际生活中的用处、表现，增进其学习兴趣和动力，同时也会恰当地掌握它具有的特定含义和意义。案例教学法注重学生的创造能力和实际解决问题能力的培养与发展，而不仅仅是获得固定的原理、规则。学生通过案例教学得到的知识是内化了的知识，虽然不一定能把所学到的知识罗列出来，但学生逐渐学会了如何处理众多的疑难问题。
强化实验教学：vb是一门实践性很强的课程，实验教学在该课程的教学中应该占主要地位，对培养学生的动手能力、分析问题和解决问题的实践性很强，要求学生必须具有较强的实际操作能力。 vb语言使用先进的面向对象编程思想，独特的设计方法使设计过程充满趣味性，设计周期缩短、设计界面美观。该课程性质特别适合于边操作边学习，通过实验既可以加深对所学课程的理解，又可以积累程序调试经验，起到课堂教学达不到的效果。通过上机实验可以使学生进一步理解面向对象编程的基本思想，为学习其它面向对象编程语言打下良好基础。 在实际教学过程中，教师往往只重视理论课的教学，对实验课却是随意地按照章节后的习题安排一些实验，学生上机时有的也只是在书本找个现成的程序进行调试，根本不知其所以然。这样必然导致不良的教学效果。改进的措施就是：(1)合理安排理论课与实验课时间，注意相互衔接；(2)精心组织实验，不能仍以传统的验证性内容为主。每次实验的内容要紧扣最近课堂上所讲解的知识点；(3)注意教材中实验内容的连贯性，注意由浅入深；(4)在vb实验过程中，设计一些训练习题，让学生尝试自行设计，有效地引导学生联系实际，有意识地培养学生分析问题、解决问题的能力。作为老师一定不能放松实验课的指导工作，只有这样才能掌握每个学生的学习情况。
抓重点，攻难点：掌握语言的目的是为了进行程序设计，重点放在算法设计和程序设计上面，因此，算法与程序代码成了vb应用程序的基础，也是核心。在教学中经常存在这样一种现象：很多学生对语法、结构等知识掌握得很好，但一碰到实际问题就不知道如何下手，其实这就是算法能力欠缺的表现。在vb程序设计中，算法有很多种，常用的算法必须掌握，如：迭代法、穷举法、递推法、递归法、分解法等。教师应多带领学生阅读程序，分析过程，吸取他人的经验和成熟的算法，使学生熟能生巧。
总之，vb语言的内容多，知识面广，教师应采取适当的教学措施，使学生尽快掌握，通过编程培养创新思维。同时，一些有经验的教师还可以做一些相关的课件，让学生课后进一步学习。此外，教师还应重视自己创新能力的培养，注重将专业知识应用到实践中的能力的培养，以求达到良好的教学效果。 [1]丁爱萍.visual basic程序设计（第二版），北京电子工业出版社. [2]孙秀.vb教学方法改革的探索与实践，辽宁师专学报. [3]贾长云.可视化编程应用，中国职业技术教育. 江苏省南通大学现代教育技术中心篇4：【陈澜】《初识visual+basic》教学设计及反思
认识visual basic 南京师范大学附属中学新城初级中学 陈澜
■教材分析：
本节课的教学内容是初中信息技术选修教材第一篇《程序设计》中第二单元第一节的内容。算法必须要选用一种程序设计语言来描述，计算机才能接受。根据初中生的年龄特点，vb语言比较适用。本节的教学内容是后面学习程序的三种基本结构内容的基础。本节将vb作为实现算法的平台，不是专门介绍vb，而是以在vb中实现简单算法为原则的，因此仅介绍教材中涉及到的几个最常用的控件。
■学情分析：
本节课是初二年级vb程序设计基础的新授课。在这之前学生已初步了解了程序设计与计算机软件以及编写程序的步骤，但学生还没有接触过任何程序设计语言，更没有使用程序设计语言解决过实际问题。在本课中，教师通过提出问题、分析问题给出算法、选择程序设计语言、设计程序界面、编写代码、调试程序、解决问题等环节使学生逐步认识vb,了解使用vb编程的一般步骤，并对面向对象的程序设计最基础的直观上的认识。
■教学目标： 1.知识与技能
（1）熟悉vb的界面
（2）掌握在vb中编程的一般过程 （3）对象的属性设置 2.过程与方法
（1）在解决具体问题过程中认识vb的界面。 （2）掌握用vb编程解决问题的一般步骤。 3.情感态度与价值观 （1）在学生经历“运行”、“感受”、“感悟”的过程后，能对程序设计有一个感性的认识。
（2）让学生体验到vb是一种易学好用的程序设计语言。 ■课时安排
安排1课时。
■教学重点与难点 1.教学重点:vb的界面与对象的属性设置。 2.教学难点: 利用vb编写程序的过程。 ■教学方法与手段
演示教学、任务驱动、启发式教学等
■课前准备
教学课件、学生任务
■教学过程
第1页（共3页）
■教学反思
本节课是认识visual basic 的第一课，我原先的设计思路为着重强调学生对使用vb编写过程的认识，从直观上去体会使用vb的方便与快捷。经过中心
第2页（共3页）
组同志们的指点，必须首先考虑学生的认知水平，从学生现有能力出发，由学生以掌握的知识对比学习新授内容，逐步培养学生学习vb的学习热情。故将本节课的重点放在了认识对象属性和设置对象属性的方法上。本节课的流程为展示程序——分析算法——设计程序界面——添加对象——复制代码——保存程序——调试、运行——修改对象属性从而美化界面。 在课堂上，学生对学习任务的达成度还是不错的，最终的程序界面也是丰富多彩的，各有各的特色。但同时，我也发现了一个问题，是先进行程序界面的美化再进行代码的添加及保存、调试等操作，还是采用我本次上课反其道而行之的方法，这个地方还是需要认真考虑的。
另外，本课的课堂气氛可以说是比较平淡的，和学生的互动时，学生的声音越来越小，这个地方也是需要好好反省一下的，是任务设置的问题，还是其它什么原因。
第3页（共3页）篇5：vb学习笔记
2、先在general里声明窗体级全局变量： dim num1, num2 as single dim strnum1, strnum2 as string dim firstnum as boolean 判断是否是数字开头 因为text1里是存放字符串的，所以要把输入的数据进行运算，必须把字符型变量转变为实型变量，分别用num
1、num2和strnum
1、strnum2进行存放。
3、如何将字符型转换成实型？ a=val(text1.text) 它的作用是将文本框中输入的字符转化为数值 dim shuzi as single dim zifu as string shuzi=12345 zifu=str(shuzi) 将文本框中的数值转换成字符 shuzi=val(zifu)
4、窗体之间的相互调用： if ?? then load form2 form2.show else load form3 form3.show 5 、在vb中optionbutton的什么属性决定它是否能被选中? .value=true 选中 =false 不选
6、在同一个工程下，资源是可以共享的，有两个方法：
1、在form1中调用form5中某个控件，如textbox12中的值，可以用：
form5.textbox12.value
2、定义一个全局变量，将form5中的计算结果传给全局变量，然后在其他窗体里直接调用这个全局变量就可以了。
7、mgsbox的使用： mgsbox “输入错误”
8、程序解读 private sub form_load() 窗体加载事件，当窗体加载时执行 text1.locked = true 设置text1不可输入数据 n = 0 设置变量n为0 plus = false 设置变量plus为false （假） end sub 事件结束 private sub form_keydown(keycode as integer, shift as integer) 窗口键盘按下 if keycode = 97 then cmd1_click 当按下的键盘代码为97的时候执行cmb1按钮的单击时间后面的一样
if keycode = 98 then cmd2_click if keycode = 99 then cmd3_click if keycode = 100 then cmd4_click if keycode = 101 then cmd5_click if keycode = 102 then cmd6_click if keycode = 103 then cmd7_click if keycode = 104 then cmd8_click if keycode = 105 then cmd9_click if keycode = 96 then cmd0_click if keycode = 110 then cmddian_click if keycode = 109 then cmdjian_click if keycode = 13 then cmddengyu_click if keycode = 111 then cmdchu_click if keycode = 107 then cmdjia_click if keycode = 106 then cmdcheng_click debug.printkeycode, vbkey1 在调试窗口中打印键盘代码 end sub
9、form1.cls ′消除窗体form1上的内容 print visual basic ′在当前窗体上显示 circle (2400,1500),800 end sub
11、
^(幂) -（取负）*或/ \ mod (四舍五入法) +或- 字符运算符： +或& 同级 关系运算符：=、>、>=、、is 同级 like 运算符： like 逻辑运算符：由高到低 not and or xor eqvimp
12、内部函数： vb的内部函数大体上分为四大类：数学函数，字符串函数，日期与时间函数和转换函数。
使用数学函数的几点说明：
(1) 三角函数的自变量单位是弧度
如sin47°应写成 sin(47*3.14159/180)。 (2) 函数int是求小于或等于x的最大整数。
例如 int(2)=2, int(-2.5)=-3 当x≥0时就直接舍去小数，若x＜0则舍去小数位后再减1 利用int函数可以对数据进行四舍五入。
推荐第6篇：《vb程序设计》期末复习题及答案
《vb程序设计》期末复习题及答案
一、填空题
1．创建一个VB应用程序三个主要的步骤是_(创建应用程序界面)、_(设置属性_)和_(_编写代码__)__。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性________窗口中，把此文本框的____text_________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___label________控件；若允许用户输入文本，则应使用__textbox___________控件。 4．窗体的常用方法有_load方法 Show方法 Hide方法_ Unload方法_ 。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是_（ txtshow.text=\"GOOD WORK\"_）。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。 Private Sub Cmdopen_ _click( )__________ _frm1.show_ End Sub 7．Visual Basic 6种类型的表达式是_（算术表达式_）（字符串表达式）（ 关系表达式 ）（布尔表达式 ）（日期表达式）（ 对象表达式）。Visual Basic根据表达式的_．1 _运算符__来确定表达式的类型。
8．表达式93 \\ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And ca And Not b
10．日期表达式 #2/24/02#y ^ 2) / (2 * x)___。
12．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为_（ Dim A(1 To 5，-2 To 6) As String）_。 13．事件就是在对象上所发生的事情，Visual Basic中的事件如__单击_________、_双击__________、_装载_____________等。一个对象响应的事件可以有_多____个，用户不能建立新的事件。事件过程是指_（响应某个事件后所执行的程序代码）_。假设某一事件过程如下：
Private Sub cmd1_Click() Form1.Caption=\"VB示例\" End Sub 则响应该过程的对象名是_cmd1_____________，事件名是_____click________。
14．对象的方法用于(_完成某种特定的功能__)。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为_(对象名.方法名)_，例如，对窗体Form1使用Show方法，应写成__form1.show_______________。
15．PictureBox控件可通过设置其(autosize)__属性为True使之可自动调整大小；而Image控件可通过设置其_(stretch_)__属性为True，使其加载的图片能自动调整大小以适应Image。
16．在Visual Basic程序中实现复制文件“c:\\command.com”到d:盘根目录下的语句为FileCopy \"c:\\command.com\"，\"d:\\command.com\"_。
二、单项选择题
1．下列控件中没有Caption属性的是（ B ）
A、标签 B、文本框 C、框架 D、命令按纽 2．除框架外，能对单选按纽分组的控件是（C ）。 A、窗体 B、标签 C、图片框 D、图像 3．下列符号不能作为VB中变量名的是（ C ）。
A、ABCDEFG B、P00000 C、89YWDDF D、xyz 4． 下列不属于Visual Basic数据文件的是（D ）。 A、顺序文件 B、随机文件 C、二进制文件 D、数据库文件
5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ D ）。
A、Text属性值为* B、Caption属性值为* C、Paword属性值为空 D、PawordChar属性值为* 6．表达式2*3^2+2*8/4+3^2的值为（B ）。 A、64 B、31 C、49 D、42 7．表达式mid(\"abcdefg\",3,2)的值是（ B ） A、abc B、cd C、bcd D、abcde 8．数学表达式Sin25°写成VB表达式是（ D ）。 A、Sin25 B、Sin（25） C、Sin（25°） D、Sin（25*3.14/180）
9．Sub过程与 Function过程最根本的区别是（D ）。 A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。
B、Function过程可以有参数，Sub过程不可以。 C、两种过程参数的传递方式不同。
D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。
10．选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（C ）
A、T>=1.7 And W=62.5 C、T>1.7 And W=1.7 Or W
12．在Visual Basic中，按文件的访问方式不同，可以将文件分为（ A ）
A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件
C、数据文件和可执行文件 D、ASCⅡ文件和二进制文件
13．将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（C ）方法。
A、ShowOpen B、ShowSave C、ShowColor D、ShowFont
三、指出下列句中的错误，修改或者说明原因。1．sum和int.sum都可以作为VB的变量名。(X) 2．变量名的长度最长可达1024个字符。 (255) 3．下列程序运行结果：3，3 Option Explicit Private Sub Command1_Click() Dim a，b As Integer Dim a as integer ,b as integer a = 3.6 b = 3.6 Text1.Text = a Text2.Text = b End Sub 4．程序可以改变定长字符串的内容和长度。
5．Variant是一种特殊的数据类型，可以包含任何种类型的数据。 ．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。
6．下列程序运行结果为True Private Sub Command1_Click() a = 1 b = 2 c = 3 Text1.Text = c >a + b Or b1 And c + a >a Xor b
不正确。静态变量为局部变量，只能在过程中声明。
9．使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串\"\"，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。
10．事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。
11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。 12．当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。
不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。
四、读程序题，写出程序运行结果。1．Private Sub Form_Click() For I = 1 To 9 For j = 1 To 301 To 1 Step -1 Print k; Next k Print Next I End Sub 2．
Option Explicit Private Sub Command1_Click() Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 3．
For X = 5 To 1 Step -1 For Y = 1 To 6y ^ 2) / (2 * x) 12．Dim A(1 To 5，-2 To 6) As String 13．单击 双击 装载 多 响应某个事件后所执行的程序代码 cmd1 Click 14．完成某种特定的功能 对象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy \"c:\\command.com\"，\"d:\\command.com\"
二、单项选择题
1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C
三、指出下列句中的错误，修改或者说明原因。1．int.sum 不正确。变量名中不能包括小数点。 2．变量名的长度最长可达255个字符。 3． 3.6 ， 4 因为a 不是整型变量。
4．不正确。程序不可以改变字符的长度，这是VB规定。 5．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。
6．False 。逻辑表达式计算结果。
7．不正确。两个日期型数据相减，其结果是一个数值型数据。 8．不正确。静态变量为局部变量，只能在过程中声明。 9．正确。 10．正确。 11．正确。
12．不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。
四、读程序题，写出程序运行结果。1．程序运行后，单击窗体，输出结果为： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1
2．程序运行后，单击按钮Command1，输出结果为： 3. * ** *** **** ***** 4.aabb -30 False aabb-30 False
30+60 90 30+60 90 5. 11 13 9
五、编程题 1．
。120 Private Sub Command1_Click() Text1.Text = \"\" Text2.Text = \"\" Text3.Text = \"\" Text4.Text = \"\" End Sub
Private Sub Command2_Click() a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text) If a = \"\" Or b = \"\" Or c = \"\" Then MsgBox \"成绩填写不完全！\", vbCritical Else Text4.Text = (Val(a) + Val(b) + Val(c)) / 3 End If End Sub
Private Sub Command3_Click() Unload Me End Sub 2．
Private Sub Command1_Click() x = Val(Text1.Text) If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 3．
Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub
Private Sub Check2_Click() If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub
Private Sub Command1_Click() Unload Me End Sub 4．
a = Val(InputBox(\"输入第一个数：\")) b = Val(InputBox(\"输入第二个数：\")) c = Val(InputBox(\"输入第三个数：\")) If a
原文网址: http://hi.baidu.com/
由弘一网童保存，尚未注册。注册
推荐第7篇：vb
输入的数字与事先设置的数字相同，则提示“输入正确” 否则显示“错了” ， 。 代码编写： 代码
Private Sub Command1_Click() x = Val(InputBox("输入一个 1～10 之间的整数")) If x = Text1 Then MsgBox "输入正确" Else MsgBox "错了" End If End Sub 遇到的主要问题及分析：
【提高题 1】修改上面程序，当输入的值比设置的数字小，显示“错了，你猜得小了。 ； ” 21 输入的值比设置的大，则显示“错了，你输入的太大了。 请直接在上题修改） ” （ 【提示】本实验属于多分支结构。
Private Sub Command1_Click() x = Val(InputBox("输入一个 1～10 之间的整数")) If x = Text1 Then MsgBox "输入正确" ElseIf x
Private Sub Command1_Click() Dim a!, b!, c! a = Val(InputBox("输入第 1 条边长")) b = Val(InputBox("输入第 2 条边长")) c = Val(InputBox("输入第 3 条边长")) If a + b >c And b + c >a And a + c >b Then Print "此三边可构成三角形" Else Print "此三边不可构成三角形" End If End Sub 遇到的主要问题及分析：
【选作题】课堂示例“字符串替换” 使用多个函数完成时，如果源字符串中没有要查找 ， 的子串，程序就会出错。修改程序当没有要查找的子串时，弹出“没有找到的”提示框，并 将源串放到结果文本框中。
22 【提示】InStr(C1,C2) 在 C1 中查找 C2 是否存在，若找不到，结果为 0。 代码编写： 代码
Private Sub Command1_Click() i = InStr(Text1, Text2) If i = 0 Then MsgBox "没有找到" Label5 = Text1 Else k = i + Len(Text2) Ls = Left(Text1, iSqr(d)) / (2 * a) ElseIf d = 0 Then x1 = -b / (2 * a) x2 = x1 Else MsgBox "无实根" End If Pri nt "x1="; x1, "x2="; x2 End Sub
2、输入一个字符,判断该字符是字母、数字还是其他字符，并作相应的显示。【要求】分别使用两种语句 If ……ElseIf……和 Select Case 来完成。 24 代码 If ……ElseIf 语句实现
Private Sub Command2_Click() a = InputBox("输入一个字符") If a >= "a" And a = "A" And a = "0" And a
思考： 编写一个对文本框中输入的字符进行转换的 程序。 窗体如上右图所示。 将小写字母转换成大写字母， 大写字母转换成小写字母，空格不转换，其余字符转换 成”*”。要求每输入一个字符马上 进行判断和转换，结果
显示在 Text2 中。 代码编写： 代码
Private Sub Text1_Change() a = Right(Text1, 1) Select Case a Case "a" To "z" Text2 = Text2 + UCase(a) Case "A" To "Z" Text2 = Text2 + LCase(a) Case " " Text2 = Text2 + " " Case Else 25 遇到的主要问题及分析：
Text2 = Text2 + "*" End Select End Sub
3、输入一个数字（1-7） ，用英文显示对应的星期一至星期日。 【提示】用 Select Case 语句来实现 代码编写： 代码 Private Sub Command1_Click() a = Val(InputBox("输入星期几")) Select Case a Case 1 MsgBox "Monday" Case 2 MsgBox "Tuesday" Case 3 MsgBox "Wednesday" Case 4 MsgBox "Thursday" Case 5 MsgBox "Friday" Case 6 MsgBox "Saturday" Case 7 MsgBox "Sunday" Case Else MsgBox "输入错误" End Select End Sub 遇到的主要问题及分析：
4、编程实现简单计算器功能。要求程 序运行后，分别输入两个操作数以及运算 符（+、-、*、/）后，单击“计算”按钮， 则自动计算出表达式的结果，并显示在运 算结果对应的文本框中。 【提示】除数为 0 时要做适当处理。 代码编写：
26 代码
Private Sub Command1_Click() Select Case Text2 Case "+" Text4 = Text1 + Text3 Case "-" Text4 = Text1i + 1, 1); Next i End Sub 遇到的主要问题及分析：
2、完善程序，输入一个数，判断该数是否为完数，并把其因 子输出，如图所示。 （一个数如果恰好等于它的因子之和，这个数 就被称为“完数” 一个数的因子是指除了该数本身以外能够被其整 。 除的数。 ）例如 6 是一个完数，因为 6=1+2+3。
Private Sub Command1_Click() m = Val(Text1.Text) For i = 1 To m1 【4】 If m Mod i = 0 Then Picture1.Print "+"; i; Next i Else Picture1.Print m & "不是完数" End If End Sub 【5】 Picture1.Print 【3】 【4】 【5】
3、编写程序，实现求解把 50 元钱分成一元、二元和五元的纸币且纸币张数共为 20 张的分法有多少种？ 代码
Private Sub Form_Click() Print "5 元" "2 元" "1 元" n=0 For x = 0 To 10 For y = 0 To 25 z = 20y If 5 * x + 2 * y + z = 50 And z >= 0 Then Print x, y, z: n = n + 1 Next y Next x Print "分法有" & n & "种" End Sub 遇到的主要问题及分析：
4、参考下图的算法，编写程序，输入两个正整数，求这两个数的最小公倍数。代码
遇到的主要问题及分析： 课本 p87 页 37 【提高题 1】输出斐波那契级数
1、
1、
2、
3、
5、
8、13……，当某项的数值大于或等 于 30000 时结束。此级数项的规律是：前两项的值各为 1，从第 3 项起，每一项是前 2 项 的和。 （要求一行输出 6 项） 。 代码
Private Sub Form_Click() a=1 b=1 Print a; b; i=2 Do While c
【提高题 2】P269 实验 D
二、5 编写程序，求 Sn=a+aa+aaa+…(n 个 a)的值,其中 n 是表示 a 的个数， 是 a 【1， 之间的随机正整数。 9】 例如： a=2,n=5 时， 当 sn=2+22+222+2222+22222 【提示】为得到不断重复的数 t，可在循环体利用通项： t = t * 10 + a 代码 Private Sub Form_Click() a = Int(Rnd * 9) + 1 n = Int(Rnd * 6) + 5 s=0 t=0 For i = 1 To n t = t * 10 + a s=s+t 遇到的主要问题及分析： „[1,9] „[5,10] 38 Print t; Next i Print s End Sub 【选作题 1】完善程序，使之能在窗体上显示有规律的 图形。
Private Sub Form_Click() Dim i% For i = 1 To Print Next i End Sub 【提示】使用 Tab 函数定打印位置，可使用的函数还有：String, Right，CStr 1）循环体内显示用 String 函数来实现，找出循环控制变量与 Sting 函数内个数的关系，即 String（j， Cstr（i） 。 2） 为了使最后一行的 0 显示， 若按照上面的通式， 则最后一行显示的是 1， 则要对公式进行修改， String 即 （j， Right （cstr（i）） ）。 【1】
0 【2】 Tab(201, Trim(Right(Str(i), 1))) 【选作题 2】 用两重循环在窗体上显示如右图结果。
【提示】两种方法解该题： 方法一：利用数值实现，就是将各列列号通过运算连接起来。 方法二：利用 Mid 函数取字符串子串来实现，即从字符串中不断取所需的 子字符串而得。 还要注意行号与负号的关系。
代码
Private Sub Form_Click() s = "123456" For i = 1 To 6 For j = 1 To i If i Mod 2 = 1 Then Picture1.Print " " & Left(s, j) & " Else Picture1.Print "-" & Left(s, j) & " End If Next j Picture1.Print Next i End Sub 遇到的主要问题及分析： "; "; 39 实验心得体会 成绩：
教师签名： 实验日期 年 月 日 实验八 实验目的： 常用控件
1．掌握单选按钮、复选框的重要属性、事件和方法。 2．掌握框架的使用。 3．掌握列表框、组合框的重要属性、事件和方法。
实验内容
1、窗体上有两个复选框，名称分别为 Chk1 和 Chk2，标题分别
为“能被 5 整除”和“能被 6 整除” 一个命令按钮 Command1，以及一 ， 个文本框 Text1。编写适当的事件过程，使得程序运行时对复选框 进行选择，单击命令按钮，可根据下表的规定，计算 100~200 之间符合要求的整数之和， 把结果显示在 Text1 中。
选择 Chk1 Chk2 Chk1 和 Chk2 都不选择 要求 只能被 5 整除 只能被 6 整除 既能被 5 整除，也能被 6 整除 只能被 1 整除
代码编写： 代码 遇到的主要问题及分析： 40 Dim s1, s2 Private Sub Check1_Click() s1 = 0 For i = 100 To 200 If i Mod 5 = 0 Then s1 = s1 + i Next i End Sub Private Sub Check2_Click() s2 = 0 For i = 100 To 200 If i Mod 6 = 0 Then s2 = s2 + i Next i End Sub „定义全局变量 „每次选择前先清 0 „每次选择前先清 0 Private Sub Command1_Click() Text1 = 0 „每次赋值前先清 0 If Check1.Value = 1 And Check2.Value = 1 Then Text1 = s1 + s2 ElseIf Check1.Value = 1 Then Text1 = s1 ElseIf Check2.Value = 1 Then Text1 = s2 Else For i = 100 To 200 Text1 = Text1 + i Next i End If End Sub
2、窗体上包含有两个名称分别为 Op1 和 Op2 的单选按钮，
标题分别为“100-200 的素数和” 和“200-400 的素数和” 还有 。 一个文本框和一个命令按钮，标题为“求和” 程序运行后，选中 。 某个单选按钮，并单击“求和”按钮，则计算指明范围内的素数之和，并显示在文本框中。 代码编写： 代码
Private Sub Command1_Click() If Option1 Then For m = 100 To 200 Tag = True 41 遇到的主要问题及分析：
For i = 2 To m1 If m Mod i = 0 Then Tag = False Next i If Tag Then s = s + m Next m End If Text1 = s End Sub
3、P237，实验 E-6，窗体的标题栏显示“选课界面”，窗体
上有 两个列表框，左边是 List1，右边是 List2，其中 List2 中的列表 项按字母顺序升序显示。 窗体下方有一个文本框， 名为 Text1。 请你： 1) 写出程序中需要的属性设置。 2）程序运行后，在列表框 List1 中添加“Visual Basic 程序” “数据结构” “操作系 、、统 ” “硬 件技术 基础 ” “计 算机 网络” “ 多媒 体技 术 ”和 “ C++程 序设计 ” 七个选 项。 、、、（使用 Form_Load()事件） 。
3)要求单击 List1 中的某一项时，该项显示在 Text1 中。 4）双击 List1 中的某一项时，该项从 List1 中删除，添加至 List2。当 List2 中 的内容已满 5 门时，不允许再添加并提示“超过 5 门课程，不能再选了！（要注意条件的放 。 ” 置位置问题） 需要的属性设置
表 9.1 实验 1 属性设置 对象名称 属性 属性值 42 List2 Sorted True 代码编写： 代码 Private Sub Form_Load() List1.AddItem "Visual Basic 程序" List1.AddItem "数据结构" List1.AddItem "操作系统" List1.AddItem "硬件技术基础" List1.AddItem "计算机网络" List1.AddItem "多媒体技术" List1.AddItem "C++程序设计" 遇到的主要问题及分析：
End Sub „单击列表框 List1 Private Sub List1_Click() Text1 = List1.Text End Sub „双击列表框 List2 Private Sub List1_DblClick() If List2.ListCount = 5 Then MsgBox "超过 5 门课程，不能再选" Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End Sub
4、窗体上有一个名为 List1 的列表框（允许做多项 选择） ，一个名称为 Text1 的文本框，三个命令按钮，标 题分别为“求全部项目和” “求选定项目之和” “删除选定项 ， ， 目” 。
【要求】
1）程序运行后，将把 1～100 之间能够被 7 整除的数添加到列表框中。 2）单击“求全部项目和”按钮，则对 List1 中的数进行累加求和，并在文本框中显示 计算结果。
43 3) 单击“求选定项目之和”按钮，则对 List1 中的选中的项目进行累加求和，并在文 本框中显示计算结果。 4) 单击“删除选定项目”按钮，则删除 List1 中的选中的项目。 代码
Private Sub Form_Load() „显示 7 的倍数 For i=1 To 100 If i Mod 7 =0 Then 【1】 End If Next i End Sub List1.AddItem i 遇到的主要问题及分析： 如果列表框要多选， multiselect 属性设置为 1 „列表框所有项目之和 Private Sub Command1_Click() Sum% = 0 For i = 0 To Sum = Sum + Next i 【4】 text1=sum End Sub „列表框选定项目之和 Private Sub Command2_Click() Sum% = 0 For i = 0 To 【6】 List1.ListCount1 Text3.SelLength = Len(Text1.Text) Text3.seltext = Text2.Text Then '不需要多次替换则退出 If option1=true Exit Do End If k = a + m End If Loop End Sub until a=0 '为继续查找确定起始点 '找不到退出
【选作题】设计一个运行界面如下图所示的程序。在“主菜”组合框中选择一种食品（不可 输入） ，单击“添加主菜”按钮即可将该项内容添加到右边的列表框；在“饮料”组合框中选择 或输入一种饮料，单击“添加饮料”按钮即可将该项内容添加到右边的列表框。在右边的列 表框中选择某项并单击“不要这个
46 【要求】右边所点的菜单中不允许出现重复的菜。 【提示】添加的时候要先判断是否菜单中是否已经有了。 代码编写： 代码
Private Sub Command1_Click() f = True For i = 0 To List1.ListCount – 1 „菜单中不允许出现重复的菜 If List1.List(i) = Combo1.Text Then f = False Next i If f = True Then List1.AddItem Combo1.Text Text1 = "你点了" & List1.ListCount & "种食物" End Sub Private Sub Command2_Click() List1.AddItem Combo2.Text „饮料可以重复 Text1 = "你点了" & List1.ListCount & "种食物" End Sub Private Sub Command3_Click() List1.RemoveItem List1.ListInd ex Text1 = "你点了" & List1.ListCount & "种食物" End Sub Private Sub Command4_Click() List1.Clear Text1 = "你点了" & List1.ListCount & "种食物" End Sub Private Sub Form_Load() Combo1.AddItem "。。。。" Combo2.AddItem "。。。。" End Sub 遇到的主要问题及分析： Style=2 组合框， 不是列表框 47
实验心得体会 成绩： 教师签名： 48 实验日期 年 月 日 实验九 实验目的： 常用控件（续）
1、掌握图片框、图像框、计时器的属性和方法和事件及使用。
2、掌握滚动条的重要属性、事件和方法。
3、了解图片框和图像框的区别。掌握形状控件的重要属性以及使用。 实验内容
1、窗体上有一组合框 Combo1,一文本框 Text1,三个 命令按钮，要求： 1）程序一开始运行时，Combo1 中有若干选项，命令 按钮"确定"不可用 2） 选中 Combo 中某个项目， 单击"修改"， 则将该项目复制到 Text1 中 （可在 Text1 中修改） ，同时"确定"按钮可用 3） 单击"确定"将修改过的 Text1 替换组合框中原有的内容， 同时"确定"按钮不可用.4）单击"添加"，将 Text1 中的内容添加到组合框中
【提示】修改组合框中选中的内容要通过代码来重新设置 Combo1.List（Combo1.ListIndex）值 的，而不能直接设置 Text 属性值。 代码编写： 代码 遇到的主要问题及分析： 49
2、在窗体的 Label 中每隔 2 秒显示“你好中国” 即每隔 2 秒显示一次标签） （ 。 【提示】 1）设置时钟控件的 Interval 值使程序每隔 2 秒，调用一次计时器的 Timer 事件。 2）将标签的状态设置成：显示……隐藏……显示……隐藏…… 代码编写： 代码 遇到的主要问题及分析：
3、窗体上有一图片框，名为 P1。单击图片框，则在图片框上显示“单击图片框” 单击 。 窗体，则在窗体上显示“单击窗体” 要求不能用变量，每个事件只允许写一句代码。 。 代码编写： 单击图片框 单击图片框
4、如右图所示，将滚动条的范围设置为 0~1000，在文 本框中输入一个数后按下“移动”按钮。 如果文本框中是正数则 滚动条向右移动相应刻度，但若超过最大刻度则 MsgBox 提 示“输入值太大” 如果文本框中是负数则滚动条向左移， ； 超过最小刻度则不再动， MsgBox 并 提示。 【提示】假定滚动条当前位置的 Value 值为 200，在文本框输入 300，单击“移动”按 钮，则滚动条的值应变为 500；再输入-800，再单击“移动”按钮，则滚动条的值应变为 0，并用 MsgBox 提示“已移动到最左边”.50
代码编写： 代码 遇到的主要问题及分析：
5 、窗 体 上 添 加 一 Shape 形 状 控 件 ， 名 为 “ Shape1 ”， 两 个 名 称 分 别 为 Command1,Command2 的命令按钮， 标题分别为“圆”和“红色边框”
编写代码， 。 程序运行时， 单击“圆”按钮则 Shape 控件显示一个圆。单击“红色边框”按钮，则将 Shape 控件的边框颜 色设为红色。 【提示】分别设置 Shape 控件的 Shape 属性和 BorderColor 属性 代码编写： 单击“圆”按钮 单击“红色边框”按钮
6、如右图所示，编写程序，使窗体中的两个汽车图形 能够相向运动直至相撞。此时屏幕弹出一个消息窗口显示 “某年某月某日发生交通意外” 显示日期为当前系统日期。 。 【提示】根据两车的位置来判断是否相撞。 代码编写： 代码
遇到的主要问题及分析： 51 【选作题 1】窗体有一个矩形和一个圆，还有一水平滚动条和一垂直滚动条。程序运行时，移动某个 滚动条的滑块，可使圆作相应方向的移动。滚动条 刻度值的范围是圆可以在矩形中移动的范围。 （如 右图所示） 。 【提示】水平滚动条和垂直滚动条的 Min 和 Max 属性值与矩形的位置及大小有关，最好 通过代码在 Form_Load 事件中设置。 代码编写： 代码
遇到的主要问题及分析：
【选作题 1】模拟 Windows 屏幕保护程序(如下图所示)。 可按下面提示分步实现（也可以以你的聪明才 智，一步到位） ： 文字从右往左运动，完全移出屏幕时同从屏幕最右边 重新出现并继续左移。 文字能像弹球一样，碰到窗体边缘时能反弹。 每次碰到窗体边缘反弹时字体的颜色和大小随机变化。
【提示】移动控件的位置有两种方法(其中 w 和 h 分别表示水平方向或垂直方向移动的距 离)：
Label1.Left=Label1.Left + h Label1.Top=Label1.Top + v Label1.Move Label1.Left + h Label1.Move Label1.Left, Label1.Top + v 52 重要提示：如果水平方向移动的距离为 h，则当控件碰到窗体的边缘时，控件应该向 相反的方向移动，即 h=-h，垂直方向也一样。 代码编写： 代码
遇到的主要问题及分析： 实验心得体会 成绩： 教师签名： 53 实验日期 年 月 日 实验十 实验目的： 数组
1、掌握数组的声明、数组元素的引用。
2、掌握静态数组和动态数组的使用差别。
3、掌握数组的基本操作。应用数组解决与数组有关的常用算法。
实验内容：
1、随机产生 10 个 200 到 300 的整数，求最大值及其下标、最小值及其下标、平均值， 并显示数组的所有元素值（按每行输出 5 个元素）以及最大值及其下标、最小值及其其下 标和平均值。 代码编写： 代码
Private Sub Form_Click() Dim a(1 To 10) As Integer t=0 For i = 1 To 10 a(i) = Int(Rnd * 101 + 200) Print a(i); If i Mod 5 = 0 Then Print t = t + a(i) Next i Print "平均值为:"; t / 10 Max = a(1): imax = 1 Min = a(1): imin = 1 For i = 2 To 10 If a(i) >Max Then Max = a(i): imax = i If a(i)
For i = 1 To 5 x = a(i) a(i) = a(i + 5) a(i + 5) = x Next i For i = 1 To 10 Print a(i); If i Mod 5 = 0 Then Print Next i 遇到的主要问题及分析：
2）如果要求这 10 个数字不重复呢？。 （提示：要产生不重复的整数，则需要每产生一个整数，就 在数组中查找新产生的数据是否已经存在数组中了，若有，则重新产生；若没有，则将产生的整数放入 数组中，下标加 1） 遇到的主要问题及分析： 代码 Private Sub Form_Click() Dim a(1 To 10) As Integer a(1) = Int(Rnd * 101 + 200) Print a(1); For i = 2 To 10 t = Int(Rnd * 101 + 200) For k = 1 To i1 If t
代码
Private Sub Form_Click() Dim a(1 To 10) As Integer a(1) = Int(Rnd * (9065 + 1) + 65) For k = 1 To i65 + 1) + 65) k=0 End If Next k a(i) = t Print Chr(a(i)), If i Mod 5 = 0 Then Print Next i End Sub 遇到的主要问题及分析： 不重复的方法同 2），随机 数范围[65，90]
2、分类统计输入一串字符，统计各字母出现的次数，不区分字母大小写。
【提示】 （1）统计 26 个字母出现的个数，必须声明一个具有 26 个元素的数组，每个元素的下标表示相应 的字母，元素的值表示对应字母出现的次数。 （2）从输入的字符串中逐一取出字符，转换成大写字符（使得大小写不区分） ，进行判断。
代码编写： 代码
遇到的主要问题及分析： 课本 121 页例 5.14 56 【进一步思考】 输入 20 个百分制成绩， 统计并输出各分数段人数， 0~
59、60~6
9、70~7
9、即 80~8
9、90~100。
代码
Private Sub Command1_Click() Dim cj( 1 To 20) As Integer, a(5 To 9) As Integer For i = 1 To 20 cj(i) = Val(InputBox("请输入成绩")) Select Case cj(i) \ 10 Case 0, 1, 2, 3, 4, 5 a(5) = a(5) + 1 Case 6 a(6) = a(6) + 1 Case 7 a(7) = a(7) + 1 Case 8 a(8) = a(8) + 1 Case 9, 10 a(9) = a(9) + 1 End Select Next i For i = 5 To 9 Print a(i), Next i End Sub 遇到的主要问题及分析：
3、编写程序，输出斐波那契级数
1、
1、
2、
3、
5、8……的前 30 项，要求每行输出 5 个。 （用数组来实现）
【提示】 斐波那契数列的特点是：第
一、第二都是 1，从第三项开始，前面相邻两项之和，构成了后一项。 即 ： a(n)=a(n-1)+a(n-2)。
代码 Private Sub Command1_Click() Dim a(30) As Long a(1) = 1 a(2) = 1 For i = 3 To 30 a(i) = a(i1) Next i For i = 1 To 30 Print a(i); If i Mod 5 = 0 Then Print 遇到的主要问题及分析： 整型数会溢出 57 Next i End Sub 【进一步思考】输出斐波那契级数
1、
1、
2、
3、
5、
8、13……，当某项的数值大于或等于 30000 时结束。
代码
Private Sub Command1_Click() a=1 b=1 Print a; b; t=2 Do Until c >= 30000 c=a+b Print c; t=t+1 If t Mod 5 = 0 Then Print a=b b=c Loop End Sub 遇到的主要问题及分析：
【选做题 1】 将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出 来，要求把 A(1，1)到 A(1，10）依次赋给 B( 1)到 B(10)，把 A( 2，1)到 A( 2， 10)依次赋给 B( 11)到 B( 20)，……，把 A(10，1)到 A( 10， 10)依次赋给 B(91) 到 B(100)。 代码编写： 代码
Private Sub Command1_Click() Dim a(1 To 10, 1 To 10) As Integer Dim b(1 To 100) As Integer For i = 1 To 10 For j = 1 To 10 b((i1, j1, j) End If Next j Next i For i = 0 To 6 For j = 0 To i Picture1.Print Tab(j * 5); a(i, j); Next j Picture1.Print Next i End Sub 【提高题 1】编写一学生成绩统计程序，用户先输
入学生的人数及科目数， 再输入各位学生的各科课程的考 试成绩， 要求该程序可以计算各个学生的平均成绩及每门 课程的平均成绩。程序保存时
程序运行结果如图所示。
【提示】本题使用动态的二维数组能够较好完成任务，数组 的行号表示学生，列号表示科目，分别对数组的行或列进行求和 即可进行学生科目成绩的统计
代码
Private Sub Command1_Click() Dim a() As Integer x = Val(Text1.Text) '人数 y = Val(Text2.Text) '科目数 ReDim a(x, y) 遇到的主要问题及分析： 59 For i = 1 To x For j = 1 To y a(i, j) = InputBox("第" & i & "位同学的第" & j & "门成绩") Next j Next i For i = 1 To x s=0 For j = 1 To y s = s + a(i, j) Next j Picture1.Print "第"; i; "位同学的平均成绩是"; s / y Next i For i = 1 To y s=0 For j = 1 To x s = s + a(j, i) Next j Picture1.Print "第"; i; "门课的平均成绩是"; s / x Next i End Sub 【提高题 2】矩阵转置。编写程序将 2*3 的矩阵转置，即转换成 3*2 的矩阵。 【提示】使用两个二维数组来完成。 代码编写： 代码
Private Sub Command1_Click() Dim a(2, 3) As Integer, b(3, 2) As Integer For i = 1 To 2 For j = 1 To 3 a(i, j) = InputBox("") Print a(i, j); Next j Print Next i For i = 1 To 2 For j = 1 To 3 b(j, i) = a(i, j) Next j Next i For i = 1 To 3 For j = 1 To 2 Print b(i, j); Next j 60 遇到的主要问题及分析： Print Next i End Sub 实验心得体会 成绩： 教师签名： 61 实验日期 年 月 日 实验十一 实验目的： 数组（续）
1、掌握静态数组和动态数组的使用差别。
2、应用数组解决与数组有关的常用算法。
3、掌握控件数组的使用。
实验内容
1、分别用选择排序法和冒泡排序法实现有 N 个元素数组的排序。N 由键盘输入，数 组元素的值在 1~200 之间，随机产生。 代码编写： 遇到的主要问题及分析： 代码 Dim x( ) as Integer n=val(inputbox(””)) Redim x(n-1) For i=0 to n-1 x(i)=int(rnd*200+1) Next i 选择排序法
参看书 106 页 冒泡排序法 参看书 107 页 62
2、利用 Array 函数给数组 a 赋值（数组元素的个数及每个元素的值自己设定） ，从键 盘上输入一个数据，在数组中进行查找，如果数组中有，则删除数组中的这个元素，如果 没有则提示“没有这个数” 。 代码
遇到的主要问题及分析：
【思考】如果将数组元素读入列表框再做插入或删除其中一个元素，应该怎样编程？
3、输入一系列字符串，按递减次序排列。程序的运行界面如图 11.1 所示。 图形框
图 11.1 实验 3 窗体界面
【提示】 （1）要声明窗体级变量 n（表示放若干个字符串的计数器）及一个字符串数组。 （2）每输入一个字符串，按 Enter 键后将 Text 的内容放到数组中，可用事件： Private Sub Text1_KeyPre(KeyAscii As Integer) If KeyAscii = 13 Then … End If End Sub (3) 单击“排序”按钮，进行排序并显示在图形框中。
代码编写： 代码
创建数组 遇到的主要问题及分析： 63 排序
【选做题】做一个类似图 11.2 的界面的拨号器。 图 11.2 实验 4 窗体界面 图 11.3 实验 5 窗体界面 代码编写： 代码 遇到的主要问题及分析： 64 【提高题】做一个类似图 11.3 界面的简单计算器，并实现对应的功能。 代码编写： 代码 遇到的主要问题及分析： 实验心得体会 成绩： 教师签名： 65 实验日期 年 月 日 实验十二 实验目的： 顺序文件
1、掌握顺序文件、随机文件和二进制文件的特点和使用。
2、掌握顺序文件的打开、关闭和读写操作。
3、学会顺序文件在应用程序的使用
实验内容：
1、初始窗体上有四个命令按钮两个文本框（如图 11.1 所示） 。要求： 1）建立文件名为“t1.txt”的顺序文件，内容来自文本框 Text1。要求：每按一次回车 键则将文本框 Text1 的内容写入文件，并清除文本框 Text1 的内容，直到文本框 Text1 内输入“END”字符串(不区分大小写)，关闭文件。 2） “复制文件” 单击 按钮， “t1.txt” 则把 的顺序文件的内容全部复制到新文件 “t2.txt” 中，并给出相应提示。 （只能使用一个变量，不能使用控件。（如图 12.1） ） 3）单击“合并文件”按钮，则将“t2.txt”内容合并“t1.txt”末尾，给出相应提示。 4）单击“显示”按钮，则把“t1.txt”的内容读出来显示在 Text2 中。
图 12.1 实验 1 窗体各个运行状态界面 66 代码编写： 代码 建立文件
遇到的主要问题及分析： 复制文件 合并文件 显示文件内容
2、完善程序，实现：
1） 按下“读入并计数”按钮，将磁盘中的文件 in.txt 的内容读入显示在文本框中， 并分别统计其中字母、数字和其他符号的数量，将结果显示在 Picture1 中。
67 图 12.2 实验 2 窗体各个运行状态界面及 out 文件内容格式
2） 按下“写入文件”按钮，则将统计结果写入文件 out.txt 中，并给出提示“已写 入文件” 。 Dim sz%, %, sq% Private Sub Command1_Click() Dim c$ Open c = 【1】 '准备读入 '每次读入一个字符 '将读入的字符显示在 Text1 中 '字母 '数字 '读出的是回车或换行符则不计数 '其他符号 【2】 '打开 in.txt 文件 '读入并计数
Do While Not EOF(1) Text1.Text = Text1.Text & c Select Case c Case Case 【3】 【4】 sz = sz + 1 = + 1 Case Chr(10), Chr(13) Case Else sq = sq + 1 End Select Loop 【5】 【6】 Picture1.Print "其他"；sq; "个" Close #1 End Sub Private Sub Command2_Click() '将结果显示在 Picture1 中
'结果写入文件 '将结果写入 out.txt 中
Open App.Path + "\out.txt" For Output As #1 【7】 【8】 Print #1，"其他"；sq; "个" MsgBox "已写入文件" 【9】 End Sub
3、建立如下图所示包括五个命令按钮、图片框、列表框及标签的程序界面。编程实现 下 列功能： 68 List 列表框 Label 标签 Picture 图片框
1）单击“新建”按钮，弹出 Inputbox 用于输入数组的元素个数 N；随机产生任意 N 个[10,100]的随机整数存入数组 A；并把数组 A 的各元素值显示在图片框中（每行 5 个元素） ；同时写入磁盘文件 MyList.dat（与工程文件和窗体文件位于同一文件夹） 。 2）单击“读取” 按钮，将文件 MyList.dat 的数据读出，存入数组 B，同时添加 到列表框中。 3) 单击“计算” 按钮，计算并在标签上输出数组 B 的最大值、最小值和平均值。 4）单击“添加” 按钮，将最大值、最小值和平均值。追加到“MyList.dat”的 末尾并弹出“已写入文件！ ”的提示。 5）单击“退出”按钮，则退出应用程序。 代码编写： 代码
新建
遇到的主要问题及分析： 读取文件 69 计算 添加 退出
【选做题】建立一个多用户的密码登录程序，如下图所示。要求：
1）输入用户名及密码，单击“登录”按钮，则判断该用户名是否存在，如果存在，则进一 步判断密码是否正确。分别给出相应提示信息。 2）输入用户名及密码，单击“注册”按钮，则先判断该用户名是否已有人注册了，如无， 则把用户名和密码添加到文件中；如有人注册，则提示"该用户名已存在，请重新输入！" 3）单击“退出”按钮，则退出应用程序
原始窗体
用户名及密码均正确时提示 用户名正确，密码错误 用户名错误 70 代码编写： 代码 登录 遇到的主要问题及分析： 注册
实验心得体会 成绩： 教师签名： 71 实验日期 年 月 日 实验十三 实验目的：
1、理解自定义函数过程的定义和调用方法；
2、掌握自定义子过程的定义和调用方法;
3、掌握子过程与函数过程的使用差别；
过程 实验内容
1、编写一函数过程 Prime(n)，对于已知正整数 n，判断该数是否为素数，函数的返回值 类型为布尔型。 代码
Private Sub Command1_Click() Dim n% Dim z As Boolean n = Val(Text1.Text) z = prime(n) If z Then Print "是素数" Else Print "不是素数" End If End Sub Function prime(n%) As Boolean prime = True For i = 2 To n1 If (n Mod i) = 0 Then prime = False Next i End Function 2) 窗体上包含有两个名称分别为 Op1 和 Op2 的单选按 钮，标题分别为“100-200 的素数和” 和“200-400 的素数 和” 。还有一个文本框和两个命令按钮，标题分别为“求和”和 “写入” 。程序运行后，选中某个单选按钮，并单击“求和”按 钮，则计算指明范围内的素数之和，并显示在文本框中。单击“写入” ，则把结果存入 Out.txt 中。 （要求素数判断必须函数来实现） 。 代码
Dim s As Integer Dim m% s = 0 If Option1 Then For m = 100 To 200 Tag = prime(m) If Tag Then s = s + m Next m End If If Option2 Then For m = 200 To 400 Tag = prime(m) If Tag Then s = s + m Next m End If Text1 = s „全局变量 „主过程，求素数和 Private Sub Command1_Click() 遇到的主要问题及分析： 73 End Sub „主过程，结果写入文件
Private Sub Command2_Click() Write #1, s Close #1 End Sub Open "d:\Out.txt" For Append As #1 Function prime(n%) As Boolean prime = True For i = 2 To n1) End If End Function „函数过程 Fac(n) 遇到的主要问题及分析：
1） 利用 Fac(n)函数， 编写程序分别输入两个正整数 X 和 Y, 计算并输出 x!+(x+1)! +(x+2)! + …… +(x+y)!之和。 代码
Private Sub Command1_Click() Dim x%, y%, i% x = Val(Text1.Text) y = Val(Text2.Text) „主过程，计算求和
遇到的主要问题及分析： 74 For i = x To y z = fac(i) s = s + z Next i Print s End Sub Function fac(n%) As Integer If n = 1 Then fac = 1 Else fac = n * fac(nm)) Print z End Sub Function fac(n%) As Integer If n = 1 Then fac = 1 Else fac = n * fac(n1) s1 = ls + Mid(s1, k) i = InStr(s1, s2) Loop 实验心得体会 成绩： 教师签名： 77 实验日期 年 月 日 实验十四 实验目的： 过程（续）
1、掌握自定义子过程以及函数过程的定义和调用方法;
2、掌握形参和实参对应关系；值传递和地址传递的传递方式以及区别。
3、掌握多窗体调用。
实验内容
1、编写一函数过程 FunMax( a( ) )，求一维数组 a 中的最大值。主调程序随机产 生 10 个-100 到 100 之间的整数，调用 FunMax 函数过程，显示数组的最大值。 代码
Function „FunMax( a( ) ) 遇到的主要问题及分析：
End Function Private Sub Command1_Click() „主程序，显示数组的最大值 End Sub 78
2、编写一子过程 ProcMin，求一维数组 a 中的最小值，子过程的形参自己确定。主 调程序随机产生 10 个 100 到 200 之间的整数，调用 ProcMin 子过程，显示数组的最小 值。 代码
Sub „子过程 ProcMin 遇到的主要问题及分析：
End Sub Private Sub Command1_Click() „主程序，显示数组的最小值 End Sub
3、运行下面程序段，体会过程调用过程中传值和传址的区别。
Private Sub test(ByVal p%, ByVal m%, n()) p = p + 1: m = m + 1 n(1) = 999 Print "Sub:"; p; m; n(1) End Sub Private Sub Command1_Click() Dim c() a% = 1: b% = 2 c = Array(1, 2, 3) Call test(a, b + 3, c) Print "Main:"; a; b; c(1) End Sub 运行的结果：
运行的结果： 分析原因：
运行程序，分析结果。
将 Private Sub test(ByVal p%, ByVal m%, n()) 分析原因： 79 改为 Private Sub test(p%, m%, n())再运行并分析
根据运行结果回答下面问题： 1） 为什么两种调用方式，a 的输出的结果会发生变化，而 b 却不变？
2） 可以将 Private Sub test(ByVal p%, ByVal m%, n())改为 Private Sub test(ByVal p%, ByVal m%, ByVal n())吗？为什么？
【选作题】从键盘上输入一个整数，则在窗体上显示此整数所有不同的因子及因子个 数。（求因子及因子个数要求用过程完成） 遇到的主要问题及分析： 代码
Sub „子过程 End Sub Private Sub Command1_Click() „主程序 End Sub 【提高题】编写一个包含多个窗体及多个模块的工程： 窗体 1：主窗体，放置按扭,准备调用其他窗体； 窗体 2：输入一个数，显示它是否幸运数；
幸运数:指前两位数字之和等于后两位数字之和的数。 80 窗体 3：输入两个数，显示它们之间的所有幸运数； 窗体 4：输入一个数，显示比它小的最大幸运数；
【提示】 编写判断一个四位数是否幸运数的函数过程 Luck（返回值是逻辑型），放在主窗体中。注意，函数过程是 必须是全局级的 （即在函数定义时加 Public 或者缺省， 但一定不能加 Private） 否则其他窗体不能调用， ， 调用时要在函数名前加窗体名，如：Form1.Luck(Text1.text) 先添加几个窗体并分别设置相应的控件及属性，并正确设置启动窗体。程序代码中利用多窗体的语句和方法 将需要的窗体载入内存，不需要的窗体可隐藏或从内存中删去。
代码
Function „判断幸运数函数 Luck 遇到的主要问题及分析：
End Function 窗体 1 Private Sub Command1_Click() End Sub 窗体 2 Private Sub Command1_Click() „判断输入的数是否为幸运数 „显示 Form2 End Sub 81 窗体 3 Private Sub Command1_Click() „两数之间的幸运数 End Sub „比某数小的最大幸运数
窗体 4 Private Sub Command1_Click() End Sub 实验心得体会 成绩： 教师签名： 82 实验日期 年 月 日 实验十五 实验目的： 菜单及通用对话框
1、掌握下拉菜单的规划、设计和使用方法。
2、掌握弹出式菜单的设计和使用方法。
3、掌握各种对话框的使用方法。
实验内容
1、设计菜单（如右图所示）,在窗体上放置一个文本框，设置其 Multiline 属性为 True。设计包含有 3 个主菜单项的菜单系统，分别为“文件”“格式”和“查找” 、。其中 “文件”包括 “打开”“保存” 、、“清除”和“退出”四个子菜单。 “清除”与“退出” 之间有一条分隔线。 “格式”包括“字体”和“颜色”两个子菜单。 “查找”包括“查找下 一个”和“替换”两个子菜单。为菜单编写如下 有关代码： 1）新建：新建一个空的文本文档 2）打开：弹出打开对话框，打开文件显示在 文本框中 3）保存：弹出保存对话框，将文件保存到指 定路径中。 4）退出：关闭应用程序 5）字体：弹出字体对话框，设置文本框的字体属性 6）颜色：弹出颜色对话框，设置文本框的字体颜色 7） 查找： 显示如图输入对话框， 输入要查找的内容后， 可在文本框内查找指定的内容。
要求：1） “格式”菜单的显示与否与文本框中有无内容相关联，当文本框中的内容 为空时，隐藏“格式”菜单；当文本框输入内容的时候，显示“
格式”菜单。 3） 可通过鼠标右键弹出“格式”菜单。 83 代码
Sub „新建空的文档 遇到的主要问题及分析： End Sub Sub „打开
End Sub Sub „保存 End Sub Sub „清除 End Sub Sub „退出 End Sub Sub „字体
End Sub Sub „颜色 End Sub 84 Sub „查找下一个 End Sub Sub „替换 End Sub Sub „显示隐藏格式菜单 End Sub Sub „右键弹出格式菜单 End Sub 实验心得体会 成绩： 教师签名： 85 实验日期 年 月 日 实验十六 实验目的： 随机文件（选作）
1、掌握自定义类型的定义及其变量的声明以及变量元素的引用。
2、掌握随机文件的打开、关闭和读写操作。
3、学会随机文件在应用程序的使用。
实验内容
1、窗体上 Form1 上有三个命令按钮，两个图片框，和一个标签（如图 16.1） 。 Picture1 Picture2 图 16.1 实验 1 运行界面 要求： 1）自定义一个 StudType 类型，包括姓名、性别、电话号码和学校四个成员，结构如下： 姓名 （Name） ：字符串（长度为 10） 性别（Sex） ：字符串（长度为 2） 电话号码（Tel） ：字符串（长度为 11） 学校（School） ：字符串（长度为 20） 遇到的主要问题及分析： 代码
Type „自定义 StudType 类型 End Type 86 2）程序运行后，单击“文件写入” ，则以随机存取方式打开当前目录下的文件”Stud.txt”，把 记录个数显示在标签 Label1 中；并根据提示向文件添加记录，每写入一个记录后，都要询问是否再 输入新记录，回答”N”或”n”时，则停止输入；重新更新标签中的记录个数。 遇到的主要问题及分析： 代码
Sub „向文件添加记录 End Sub 3）单击“文件读取” ，则以随机存取方式打开当前目录下的文件”Stud.txt”，读取文件中的全 部记录，并在图片框 Picture1 显示出来，并把记录个数显示在标签 Label1 中。 遇到的主要问题及分析： 代码
Sub „读取文件中的全部记录 End Sub 4）单击“指定记录读取” ，则弹出一个输入框，提示输入所要显示的记录号，以随机存取方式打 开当前目录下的文件”Stud.txt”， 读取指定记录号的记录， 并在并在图片框 Picture2 显示出来。 程序运行结果如下图所示。
87 代码
Sub „读取文件中的某条指定记录 遇到的主要问题及分析： End Sub 实验心得体会 成绩： 教师签名： 88 附录:VB 统考编程题（精选）
【特别提醒】 统考中的编程题目通常在某个指定的文件夹下面已经
有现成的但不完整的窗体或部分程序，考生在已有的基础上补充完 成，不需要自己重新做窗体和编程。正确的作法是打开指定文件夹 中的工程文件（.vbp） ，之后按题目要求完成并保存。
一、简单操作题（15 分/题）
1、在名称为 Form1 的
窗体中建立一个名为 HS1 的水平滚动条，其最大值为 200，最小值为 0，使用 属性窗口设置控件属性。程序运行后，每次修改滚动条的位置时都执行语句 Print HS1.value。
图附 1 简单操作 1 运行界面
2、请在窗体上添加三个文本框，名称分别为 Text
1、Text2 和 Text3，要求程序运行的时候，焦点 光标在 Text1 上，按下键盘上的 Tab 键后，焦点跳到 Text3 上。（本题不需要编写代码，只需设置 对应的属性即可）。
3、窗体上有一个框架名称为 Frm1，标题为“框架” ，高度为 2000，宽度为 3000.再在框架中画一个文本 框，名称为 T1 , 距离框架左边的距离为 500，上边的距离为 300。文本框的初始内容设置“文本框” ， 同时将窗体的标题设置为“框架及文本框” 。
4、1)设置图像框的初始大小 Height 为 1500，width 为 2000； 2)窗体的最大化，最小化按钮不可见；（提示设置窗体的 MaxButton 和 MinButton 属性） 3)单击缩小按钮，图像框的大小缩小 300，即 Height 和 width 分别减少 300； 4)单击放大按钮，图像框的大小增加 500，即 Height 和 width 分别增加 500； 5)按回车键相当于按“放大”按钮；（提示设置按钮的 Default 属性） 6)按“Esc”键相当于按“缩小”按钮；（提示设置按钮的 Cancel 属性） 注意：控件的初始属性必须通过属性窗口来设置，否则不给分。 （本题将几个简单操作题合并） 图附 2 简单操作 4 运行界面
5、Form1 上画一文本框 Text1，通过属性窗口设置属性实现以下功能： 1）窗体标题为“设置文本框属性” 2）文本框可显示多行，显示垂直滚动条，用 3 号黑体显示“程序设计”
89
6、窗体上有两个名称分别为 cmd1 和 cmd2 的按钮， 运行程序时只能看到 cmd1， 单击 cmd1， cmd2 则 出现，cmd1 隐藏，单击 cmd2，则 cmd1 出现，cmd2 隐藏。
7、建立如下菜单： 第一级 文件 打开 新建 关闭 编辑 第二级 名称 File Open New Close Edit 有效性 有效 有效 有效 无效 有效
8、窗体上有一个文本框和标题为“复制”的命令按钮 C1，编程实现：运行时窗体标题为“修改文本框 内容”（可在 Form_Activate ()事件中修改）；单击按钮，按钮上的标题复制到文本框，并使按钮 不可用；单击窗体空白处，按钮可用。（20 分）
图附 3 简单操作 8 运行界面
9、单击命令按钮 Cmd1， 用代码设置滚动条 Vsb1 的属性： max 为窗体高度， min 为 0， LargeChange 为 50，SmallChange 为 10。当拖动滚动条的滑块时，窗体上显示滚动框的位置值。
10、窗体上有一个文本框和一个水平方向的滚动条， 编程设置： 将滚动条的 min、max 、Largechang、SmallChang 的初始值分别设置为 0，2200，25，5；当移动滚动条时，可扩大或缩小文本框
的高度， 并保持高与宽的比例为 1：3。
11、窗体上有一个文本框和一个垂直方向的滚动条， 在窗体上设置： Text1.Text 为 “家” FontName ， 为黑体，滚动条的 min、max 、Largechang、SmallChang 的初始值分别设置为 10，100，5，2； 当移动滚动条时，Text 的字体随之改变。
12、窗体中有一个标签和一个计时器，设置计时器的间隔为 3 秒。每 3 秒标签显示→隐藏→显示。
13、窗体上有垂直和水平滚动条，设置其最大值 100，最小值 0，增量为 10，鼠标单击滚动条时将两 个滚动条的值分别显示在两个标签中，显示的格式类似 X＝36，Y=80。
基本应用题（20 分/题）
1、在名称为 Form1 的窗体中将窗体标题设置为“售货机”，在窗体中已有一个名称为 Pic1 的图片框， 请画两个标签 Label1 和 Label
2、两个框 Text1 和 Text
2、一个名称为 Command1 的命令按钮（如 图所示），使用属性窗口设置控件属性。程序运行后，输入货物的数量及单价，单击“总价=”按钮求 出总价（总价=数量*单价）并输出在 Pic1 中（不必进行数据的有效性验证）。
图附 4 基本运用 1 运行界面 图附 5 基本运用 2 运行界面 90
2、窗体中有两个标题分别为“体育”和“音乐”的复选框和两个标题为“选修”和“不选修”的单选 按钮，一个名称为 Label1 的标签。编写适当的事件过程，使得程序运行时对复选框和单选按钮进行选 择，单击窗体，可根据下表的规定在标签中显示相应信息。 选择 Check1 和 Option1 Check1 和 Option2 Check2 和 Option1 Check2 和 Option2 Check
1、Check2 和 Option1 Check
1、Check2 和 Option2 在标签中显示的信息 只选修体育 不选修体育 只选修音乐 不选修音乐 选修音乐和体育 不选修音乐和体育
3、窗体上有一个文本框 Text
1、一个标签 Label1 和两个名称分别 C1 和 C2 命令按钮，标题分别为 “显示”和“恢复”，编写程序，程序运行时，在文本框中输入“学习VB 知识”，再单击“显示”按 钮，则标签和文本框消失，并在窗体上显示文本框的内容。单击“恢复”按钮则标签和文本框恢复如初。
4、窗体上有两个标题分别为“添加”和“清除”的命令按钮，以及两个列表框。编写程序，在右边的 列表框中选择一个列表项，单击“添加”按钮，则把该选项移动左边的列表框中。在左边的列表框中选 择一个列表项，则把该项移回列表框中。
5、窗体上一个名称为 C1,标题为：“输入”的命令按钮和一个文本框。程序运行后，单击命令按钮则 弹出一个对话窗口提示“是否输入”，提示窗口上只有两个命令按钮：“是”和“否”，文本框中显示 选择的命令按钮返回值。
6、窗体上有一个名称为Ｃ1，标题为“确定”
推荐第8篇：期末教学工作总结
期末教学工作总结
沈瑶
转眼间，来新疆已经半年了。在这半年的教学工作中，收获挺多感触也挺多，下面对这半年的教学工作作一个总体回顾。
一． 教学方面
本期在教学工作的各个环节里，我觉得我都做得比较扎实。从来不上无准备的课，每次上课前我都要认真备课，并且尽量让自己的知识体系及时更新，多阅读多学习。课堂上我基本都做到了以学生为主体以教师为主导，每节课我从不搞一言堂，都想法积极发动学生的主动性，让学生积极参与课堂教学，因此我的课堂上一般都比较活跃。学生作业我是做到全批全改，这边有一个习惯，一般作业是留着回家做的，但我发现这样效果很不好，学生回家做作业一般都不是很认真，而且很多学生是抄作业而不是做作业，所以我决定下学期改变这个习惯，让学生作业当着老师的面完成。我觉得这样才能保证质量。本学期初三每个月都进行了月考，所以我们自己组织的测试不是很多，本期除了月考我组织了三次测试，感觉质量不是很尽人意，特别是学生规范答题方面还要努力提高。
二． 教研方面
作为一个援疆老师，我知道我还身负着教研任务。本期我在学校讲了一堂公开课，尽管那篇课文不是特别适合讲公开课，但我还是就深度方面做了一些挖掘，总体感觉应该没什么大的问
题。在师教育局组织的中考研讨会上我认真学习了乌鲁木齐专家的发言，对她提出的充分发挥学生的积极性来组织复习深感有收获。在学校组织的师徒结对活动中，我与青年教师李君结成对子，互相促进互相学习。在初三语文教学中，我带动语文老师在本期进行了病句与标点符号的复习，据说这是他们以前所没有的。在今后的教学工作中，只要学校老师需要，我会不遗余力地将自己的教学经验与大家分享研讨，共同学习共同进步。
三． 不足之处
本期各项工作尽管由于我的努力大体上还过得去，但也有一些不足。第一，在教学工作中我还没有象本校老师那样细致落实。学生积极学习的跟我配合好的可能有些收获，但还有一些不爱学习的学生，我对他们抓得不紧，没有一一落实。这些需要在下学期加以改进。第二，在教研工作方面，我发挥的作用不大。平时由于各人的工作都很忙，也没跟大家进行过多的交流，因此我基本是自己埋头干自己的，我希望能有机会多跟这边的同事多多交流多多学习。
下学期我们将进行初三的总复习，我希望能和我的同事们
一起合作将我们八十三的语文成绩提高一点，不拉学校后腿。还希望能和我班科任老师一起将我们九
（七）班多送一些学生到高级学府继续学习。
推荐第9篇：期末教学工作总结
期末教学工作总结
齐黎黎
本学期我担任了学校一到三年级各个班的美术教育教学工作。回顾这个学期所从事的美术教学工作，基本上是比较顺利地完成任务。作为一名教师，我在工作中享受到了收获的喜悦，也在工作中发现一些存在的问题。现对一学期的工作总结如下，以便择优汰劣，取长补短，以待下学期教学水平能更上一层楼。
1.学期初，认真学习校园工作计划和教导处工作计划，明确了学期工作的目标和任务，教学中认真遵照教学大纲要求，大力推广素质教育，按时按质地完成了本学期的教育教学工作。
2.认真备好课，努力上好每一节课。本学期在承担美术教学任务时，美术课有14节课，但如何保证课的质量，让孩子们喜欢上美术课，除了备好课，我平时还查阅各种资料，上网寻找好的教学材料，教学课件，把它们和我所从事的工作结合起来，为我所用。孩子们的学习任务是相当繁重的，各门功课都要兼顾，所以在平时优化课堂教学，提高课堂效率，是十分必要的。教师要善于灵活地运用教材，创造性地使用教材，对教材中一些剩余的或深浅度不适合学生的资料进行缩减，也能够根据自己的经验适当地增加一些学生感兴趣的资料。如在课中增加了手工课，根据学生的兴趣在临摹的基础上，增加学生感兴趣的资料，让学生自己创作有个性的手工作品，并教学生进行简单的作品装裱，这种在原由基础上的拓展大大提高了学生的动手潜力，也提高了学生的兴趣。
3.在美术教学中，我还注重面向全体学生，以学生发展为本，培养他们的人文精神和审美潜力，为促进学生健全人格的构成，促进他们全面发展奠定良好的基础。因此，我选取了基础的、有利于学生发展的美术知识和技能，结合过程和方法，组成课程的基本资料。同时，根据课程资料的层次性，适应不同素质的学生，使他们在美术学习过程中，逐步体会美术学习的特征，构成基本的美术素养和学习潜力，在教学中，依据教学资料，运用故事、游戏、图片等艺术质料，创造一个宽松、和谐、活跃的课堂气氛。不仅仅能够丰富和深化教学资料，而且能够调动学生的情绪，引发学生用心主动探求知识的兴趣，增强学习意识。如在上《冷色》、《暖色》一课时，我课前收集了许多冷色和暖色的图片，并制作了超多的范画，课上又让学生结合现实生活中的资料讨论色彩的运用和构图。使学生感受到色彩的魅力，提高兴趣。
以上是我本学期的教育教学工作总结，在吸取经验教训的同时，我会不断反思，严管课堂教学纪律问题，争取在下学期有所突破，有所提高。
推荐第10篇：期末教学工作总结
期末教学工作总结
本学期的教育教学工作即将结束，学校在上级领导下，以“„”为办学理念，以“„”为办学宗旨，紧紧围绕“„”的目标，全面贯彻党的教育方针，扎实推进素质教育，加强规范管理，逐步提升办学水平。以脚踏实地的工作作风，完成了各项工作任务，并取得了一定的成绩。
首先、学校加强规范化管理，扎实推进素质教育。严格执行教学常规要求，以值日教师和学生会检查为依据，强化了班级量化考核的要求，在卫生、出勤、纪律等方面对各班的管理进行监督。在规范学习行为方面，我们本学期按计划组织了不同学科的知识竞赛，促进了学生学习行为的改进。学校实行半封闭的管理模式，一方面加强了安全防范，强化了门岗24小时值班，另一方面规范学生在校行为。如：中午不许学生进行一切体育活动；早上7：00以后不许学生进行一切体育活动，通过全校师生的共同努力初步取得了一定的效果；校园内多年没看到学生在校园内看书学习的场景，今年在学校随处可见了；在教学方面，老师们勤勤恳恳，积极努力，对学生充满关爱，对工作充满热情，谢梅老师参加全县教师技能大赛和地区级录象课比赛分别获县级三等奖和地级二等奖；王德富老师辅导的学生刘明远同学获全国数学竞赛二等奖，同时王德福老师也获得相应的指导奖等等。
其次、坚持德育为首，通过丰富多彩的活动，培养同学们良好的思想道德素质和行为习惯，努力争做有道德的人。学校深入开展系列德育教育活动，通过主题班会、国旗下讲话等强化学生的养成教育、文明礼仪教育、卫生习惯教育、遵规守纪教育以及学习习惯养成教育，渗透安全教育，理想信念教育，心理健康教育，社会公德教育，从小事做起，逐步提高同学们的思想道德素质和行为习惯。学校团委组织“红歌唱响校园”活动全校师生积极踊跃参加；综合组织了全校师生书画作品竞赛，通过这些活动的开展丰富了全校师生的文化生活，同时陶冶学生情超
第三、突出教学中心地位，加强常规管理，积极开展课堂教学改革，不断提高教学质量。本学期语文组开展的“同课异构”教研工作初步凸显，教师紧紧围绕“上好每一堂课”，探究有效课堂教学模式，提升了课堂教学力。毕业班全体教师一年来在工作中兢兢业业，任劳任怨为本届学生画上了一个句号。第
四、班级文化特色建设初见成效。
学校发挥自身优势，大力开展班级文化建设，上学期部分班级布置美化教室，办了黑板报等，各班的班级布置初具成效，前后标语等使班级更具文化氛围，黑板报内容紧跟时代潮流，关注时事热点，宣传安全知识等，板面新颖别致，本学期学校重建了文化长廊等；各班班级的班级文化内容充实，绘图精美，布局讲究，水平越来越高。这将成为学生第二课堂活动的阵地。
当然，在工作中也存在很多问题和不足，在今后的工作中我们会不断的学习不断的进步。
第11篇：期末教学工作总结
2011-2012学年第一学期工作总结 本学期，我继续担任六年级两个班的数学教学工作，我始终以勤勤恳恳、踏踏实实的态度来对待我的工作，以\"师德\"规范自己的教育教学工作，以\"当一名好老师\"作为自己工作的座右铭。现将一学期的工作总结如下：
一、思想政治学习，师德修养方面
一年来，我端正工作态度，爱岗敬业，始终严格要求自己，重视政治学习，积极涌跃参加学校组织的各种形式的学习，通过学习提高思想认识，提高自身的职业道德修养，并服从工作安排。
二、刻苦钻研业务，努力提高教学效果
教学工作是学校各项工作的中心，也是检验一个教师工作成败的关键。一年来，在坚持抓好新课程理念学习和应用的同时，我积极探索教育教学规律，充分运用学校现有的教育教学资源，大胆改革课堂教学，加大新型教学方法使用力度，取得了明显效果，具体表现在：
（一）发挥教师为主导的作用
1、备课深入细致。平时认真研究教材，多方参阅各种资料，力求深入理解教材，准确把握难重点。在制定教学目的时，非常注意学生的实际情况。教案编写认真，并不断归纳总结经验教训。
2、注重课堂教学效果。针对高年级学生特点，以启发式教学为主，不搞满堂灌，坚持学生为主体，教师为主导、教学为主线，注重讲练结合。在教学中注意抓住重点，突破难点。
3、坚持参加校内外教学研讨活动，不断汲取他人的宝贵经验，提高自己的教学水平。经常和一些年轻教师一起讨论教学问题，向他
们传授经验，自己也学习一些新的教学理念。
4、在作业批改上，认真及时，力求做到全批全改，重在订正，及时了解学生的学习情况，以便在辅导中做到有的放矢。不断更新教学观念。注重把学习新课程标准与构建新理念有机的结合起来。
（二）调动学生的积极性。
在教学中尊重孩子的不同兴趣爱好，不同的生活感受和不同的表现形式，使他们形成自己不同的风格，不强求一律。有意识地以学生为主体，教师为主导，通过各种游戏、比赛等教学手段，充分调动他们的学习兴趣及学习积极性。让他们的天性和个性得以自由健康的发挥。让学生在视、听、触觉中培养了创造性思维方式，变“要我学”为“我要学”，极大地活跃了课堂气氛，相应提高了课堂教学效率。
（三）做好后进生转化工作
作为教师，应该明白任何学生都会同时存在优点和缺点两方面，对优生的优点是显而易见的，对后进生则易于发现其缺点，尤其是在学习上后进的学生，往往得不到老师的肯定，而后进生转化成功与否，直接影响着全班学生的整体成绩。所以，一年来，我一直注重抓好后进生转化工作。
总之，在这一学期中，我不仅在业务能力上，还是在教育教学上都有了一定的提高。但我平时工作中出现需改进的地方也较多。在今后的工作中，我将扬长补短，不断努力。
第12篇：期末教学工作总结
2014—2015学年上学期教学工作总结
时光飞逝，转眼间一个学期将近尾声，在教务的安排下我顺利完成了本学期的教学工作。为使今后的取得更大的进步，现对本学期教学工作总结如下：
一、勤学好问，虚心请教其他老师，不断改进自己的教学。
“三人行，必有我师”，每一个老师对于教学方面都有其出色之处。为弥补自己教学质量，我不断地采取各种措施来改进自己。本学期我坚持积极参加每一次教务处组织的教研活动。同时在自己没课的时候经常去听其他老师讲课，学习他们讲课的方法。通过几次听课，从各位老师的教学中我学到了很多优秀的教学方法，也学会了很多处理应急问题的方式。更加明确授课思路，目的清晰，条理清楚。总之自己首先必须做好的就是要在平时不断学习来增强教学技能，提高课堂教学容量，使自己的讲述更清晰明了，让自己尽快成长。
二、结合学生实际情况，调整教学。
我们从事的是中职教育，从学生的生源来说，生源质量大不如普通高中，学生普遍存在厌学情绪，特别是我所教的《有机化学》。许多学生对于《有机化学》没有任何基础。在教学过程中学生接受非常困难，要合理调整教学内容的层次及教学进度。为解决这一问题，我坚持“讲一点，会一点”的原则，在教学设计的时候尽量挑选从最基础的内容作为教学的切入点，合理调整教学内容。在教学过程中将复杂的只是简单化，用最直白的语言表达出来。这样下来学生的学习兴趣逐渐得到提高，后面的教学有了一定基础就顺利多了。
三、积极认真备课
备好课是上好课的前提，一堂课上的效果如何备课取到相当重要的作用。所以在备课过程中，我认真研究教材，力求准确把握重难点。并注重参阅各种杂志，利用现代先进的网络科技技术，进行课堂教学的研究，制定符合学生认知规律的教学方法及教学形式。注意弱化难点强调重点。教案编写认真，并不断归纳总结提高教学水平，充分利用了网络教学资源。
四、认真上好每一节课。
上课时注重学生主动性的发挥，发散学生的思维，注重综合能力的培养，有意识的培养学生的思维的严谨性及逻辑性，在教学中提高学生的思维素质。保证每一节课的质量。
五、积极批改学生作业，解决问题。
学生作业是课堂学习情况的直观反映，对于学生交上来的每一次作业我都认真批改，从作业中了解学生对知识的掌握情况，针对作业中反映出来的在课堂中作重点讲解，力争解决大多数学生的知识误区，对所学内容有个更清晰的认识。
本学期的教学工作已经顺利完成，在接下来的工作中我将会再接再厉，不断提升自己的教学水平，从各个方面完善自己。
第13篇：期末教学工作总结
西大街初中2010―2011学年度下学期
教学工作总结
在努力的探索中，下学期的教学工作在紧张的期末考试后也落下了帷幕。教导处的工作在教科研等各块的努力配合下，坚持以抓质量为主线，监控课堂、抓教师的备讲批复。本着“求真、务实”的精神，以教育科研为抓手，以巩固“两基”为突破口，扎实开展教导处工作。倡导观念不断更新、方法不断创新、工作细致规范的理念，进一步强化率先意识、效率意识、竞争意识和责任意识、，着力服务意识，提教学质量。
一年来，工作是做了不少，但是作为一名没有工作经验的新教导主任，让我感到更多的是繁琐无序，所以更有必要静下心来进行更深刻的反思：
一、完善考评方案。
坚持以人为本，结合学校实际，做到“干与不干、干多与干少、干好与干差”，制度上一定要有区别、能体现。主要亮点：
1、所有教师工作量重新考核，岗位不同，所承担的工作量也就不尽相同。主科：语、数、外8节满工作量，得分：课时总数×10/8；物、化10节满工作量，得分：课时总数×10/10；地、生、政、史、体12节满工作量，得分：课时总数×10/12；音、美、微14节满工作量，得分：课时总数×10/14。跨学科： +1；教研组长、备课组长各加1课时；年级组长：九年级加2课时，七八年级加1课时；管理人
员：校级：+5陈校长楚校长梁校长陈建勋；中层领导：+3；班主任：+3；毕业班：+2；其他经领导班子同意后酌情加课时。
依据不同的工作量，赋予相应的系数。
2、我校作为一个寄宿制城乡结合部的学校，教师在城里居住的较多，面对更多的辅导时间、早晚自习，又进行了一块辅导工作量的考核，也就是说不再像过去，“上辅导与不上辅导一个样，不愿上早晚自习”。有学生记录每周的各时间段每一位教师的辅导时间，教导处做好统计，一月一量化，依据时间给辅导相应的系数。
3、考试成绩量化。按三项指标：平均分（10）、优秀人数（15）、及格人数（15）。平均分以与年级最高分相差学科满分的10%的范围内开始计分；优秀、及格人数以年级最多人数为基数计分。这种做法既承认了成绩，又警告了差距。
4、量化考核：
量化考核的总成绩=（成绩40%+过程管理60%）*（工作量系数+辅导工作量系数）这样照顾到了工作量大情况。
二、狠抓常规管理，提高教学效益
1、加强常规检查的力度，搞好教学常规反馈工作。本学期教导处进一步完善教学常规检查评价制度，周抽查、月普查制度和教学常规反馈制度。同时加强了随堂听课的力度，制订了领导班子听“推门课”制度。做到听、评、问题的处理一跟到底。
2、向课堂教学要质量。提高课堂效率，坚持向课堂要效益，努力备好每一节课，上好每一堂课。课堂教学作为教学的主阵地，在继
续重视基础知识、基本技能教学的同时，要关注学生情感、态度价值观的培养。具体要求如下：
⑴精细备课，让每一节课充实。
教案是教师实施教学的方案，因此要求每位教师认真研究教材，进行充分备课，教案的整体设计要美观大方，书写工整。教案提倡提倡使用学校统一印制的活页教案纸。数学学科集体备课确定教学内容，讨论重难点，然后主备人写出学案，打印发给备课组其他教师，各人再进行二次备课。
⑵加强课堂课型的研究，大力推进课堂教学模式
在过去我校圆满的完成了新授课教学模式的探究，并且为课堂效率的提高起了很大的作用。本学期主要针对复习课和讲评课模式进行探究。从开始各学科组织立标课；到以教研组为单位听、评，并初步制定各学科的两种课型教学模式；第二阶段大力推行实施阶段：分析问题、总结经验。第三阶段完善总结阶段：推出公开课，评出两种课型教学优质课。经过三轮的听评课，不断总结，初步制订了我校复习、讲评的模式。
⑶科学巩固，加强周清的考核
周清工作已在我校开展实施了较长的时间，每一位教师组织认真，学生参与积极性高。但是随着时间的变化，由于缺少学校层面的督察，使周清工作有所懈怠、效率低下，只是个别学科进行较为扎实。鉴于这种状况，教导处采取了周抽查制度。对弱势学科、问题学科进
行跟踪处理。并把周抽查结果公示在阅报栏。对教师的周清工作在当月量化中显示。
⑷坚持周四学科竞赛制度。
⑸加强小组评价制度的探究
开学以来，九年级结合班级人数少的状况，采取了小组评价，经过一段时间的实践，效果明显，成绩显著。小组评价的实施从班级座位的调整，方便学生相互交流，更大程度的发挥学生的自主学习、自主管理。使课堂稳定了、效率提高了。第二阶段又进一步在七八年级开展开来，由九年级的秦老师作经验交流，七八年级相继展开。第三阶段七八年级自评总结阶段。总结经验、相互交流更好的为下一段工作做好铺垫。
三、妥善安排毕业班的每项工作。
进入下学期，最为繁忙的就是九年级的工作千头万绪，没有合理的安排会使工作被动效率低下。
1、制定相应的中招备考工作方案
领导分包到班、到学科；学科教师分包到人，到中找工作的每个阶段，前期的培优补差、理化生实验的训练、体育训练、学生的学习生活的关心，到后期的报考分流，以及职业学校的动员，并与每一位教师制定目标责任书。
2、各种工作组织井然有序。
认真筹备并圆满完成3月17日的百日动员及家长会；认真抓好
四、五月份的实验操作考查、体育考试、二测冲刺动员、首批考试的
考前辅导等工作，做到有计划，合理安排好考前培训与动员工作；报考动员、志愿填报及分流，讲究方法，合理安排时间，使各项工作高效率、高质量的完成。
3、保送生考试参加57人，被保送26人，报送率到45.6%，位居全市前列。
4、理化生考试、体育考试成绩也较为显著。
四、各项活动成绩显著
1、运动会全市总分第七名。
2、参加市级课堂达标验收的教师达到各个学科，人数达到11人之多。语文：慎晓丽徐晓玉数学 ：秦书杰侯艳霞英语 ：李素楠慎东霞物理：李彩凤政治：惠爱平历史：梁彩虹地理：赵高峰
3、中心校举行的复习课讲评课大赛中
李海英侯艳霞获一等奖；李程艳李彩凤获二等奖
4、美术书法比赛获一等奖，绘画二等奖
5、器乐比赛获市级二等奖。
五、问题：
1、制度的制定还不够完善，落实有不到位。评价不够及时，缺少了时效性，没有起到激励、督促的作用。
2、推门课的实施，力度不大，下学期，各学科组要加强对每个教师的随堂听课，改变以前课前通知，教师精心准备，课后不加思索的情况。这样，有利于加强教师对教材的钻研，认真上好每一堂课，
课后进行教学反思。并且通过这种形式对教师的课堂效率、教学水平、教学手段等进行公正、客观的评价。
3、备课制度的落实每周五下午第三节课上课前，所有教师将当周教案和听课笔记交教导处，未及时上交，视为当周未备课未听课，
第三节课教导处和各教研组长检查教案和听课笔记，写好小结。每周一下午通报上周教学工作检查结果。如果是打印教案必须有详细的二次备课，无论哪种形式，都应眉目清晰，给人以一目了然的感觉。
4、作业是巩固和检查教学效果的重要手段，是教学工作的重要组成部分。因此，教师要按照课程的要求，明确提出作业的内容、数量、次数及交作业的时间。
5、应重视教师业务学习、提高师德修养
教导处要求所有教师加强自身业务学习，每学期读一本好书，至少写一篇学习心德体会，每年有一篇论文发表或获奖，青年要参加青蓝结对工程，工作三年以下教师所用的教案必须是个案，超前一周备课，教案必须先经过师傅审核去修改，然后再送教研组长验收，合格才可以进课堂，所有教师要积极参加各类优课评选和说课比赛，骨干教师要发挥带头作用。
教师除了具有教学能力外，还必须具有职业道德素养。俗话说：“其身正，不令而行，其身不正，虽令不从”。这就要求我们的教师为人师表，教育质量在很大程度上起决于教师的职业道德、敬业精神、为人师表和人格魅力。教师职业道德的好坏，直接影响到学生的身心健康发展与教学质量的高低，所以，现代型教师需要有良好的思想政
治素质和高尚的道德情操，不断提高师德水平，努力推进教师职业道德建设，所以我们的教师要热爱教育事业，下学期学校应加大对教师的考核力度，实行重奖重罚，在一定程度上提高了教师的业务水平。
总之,在过去一学期,整体工作上取得了一些成绩,也存在着一些问题,更面临许多的困惑,如果从制度上加以改革,建立起真正的激励机制,形成良性的竞争环境,抓住每一项制度的落实,工作会做得更好。
西大街初中
2011年7月6日
第14篇： 期末教学工作总结
期末教学工作总结
我在工作中，坚持努力提高自己的思想政治水平和教学业务能力，新的时代，新的教育理念，教育也提出新的改革，新课程的实施，对我们教师的工作提出了更高的要求，我从各方面严格要求自己，努力提高自己的业务水平丰富知识面，结合本校的实际条件和学生的实际情况，勤勤恳恳,兢兢业业，使教学工作有计划，有组织，有步骤地开展。立足现在，放眼未来，为使今后的工作取得更大的进步，现对2014年秋季学期的教学工作作出总结，希望能发扬优点，克服不足，总结经验教训，以促进教学工作更上一层楼。
一、努力增强我的上课技能，提高教学质量，
在平时的教学中力求做到条理化、准确化、情感化、生动化，做到线索清晰，层次分明，言简意赅，深入浅出。在课堂上特别注意调动学生的积极性，加强师生交流，充分体现学生的主作用，让学生学得容易，学得轻松，学得愉快；努力做到精讲精练，在课堂上老师讲得尽量少，学生动口动手动脑尽量多；同时在每一堂课上都充分考虑每一个层次的学生学习需求和学习能力，让各个层次的学生都得到提高。
二、与同事交流，虚心请教其他老师。
在教学上，有疑必问。在各个章节的学习上都积极征求其他老师的意见，学习他们的方法，同时，多听老师的课，做到边听边讲，学习别人的优点，克服自己的不足。
三、完善批改作业：布置作业做到精读精练。
有针对性，有层次性。为了做到这点，我常常到网页上去搜集资料，对各种练习资料进行筛选，力求每一次练习都起到最大的效果。同时对学生的作业批改及时、认真，分析并记录学生的作业情况，将他们在作业过程出现的问题作出分类总结，进行透切的评讲，并针对有关情况及时改进教学方法，做到有的放矢。
四、做好课后辅导工作，注意分层教学。
在课后，为不同层次的学生进行相应的辅导，以满足不同层次的学生的需求，避免了一些弊端，同时加大了后进生的辅导力度。对后进生的辅导，并不限于学习知识性的辅导，更重要的是学习思想的辅导，要提高后进生的成绩，要解决他们心结，让他们意识到学习的重要性和必要性，使之对学习萌发兴趣。要通过各种途径激发他们的求知欲和上进心，让他们意识到学习并不是一项任务，也不是一件痛苦的事情。而是充满乐趣的。从而自觉的把身心投放到学习中去。
五、积极推进素质教育。
新课改提了的，要以提高学生素质教育为主导思想，为此，我在教学工作中并非只是传授知识，而是注意了学生能力的培养，把传授知识、技能和发展智力、能力结合起来，在知识层面上注入了思想情感教育的因素，发挥学生的创新意识和创新能力。让学生的各种素质都得到有效的发展和培养。在以后的教学中要多想其他有经验的老师多学习使自己早一日成为优秀的教育者。
第15篇：期末教学工作总结
2016-2017学年度第一学期
期末教学工作总结
综合实践活动,主要指以学生的兴趣和直接经验为基础,以与学生学习生活和社会生活密切相关的各类现实性,综合性,实践性问题为内容,以研究性学习为主导学习方法,以培养学生的创新精神,实践能力及体现对知识的综合运用为主要目的的一类新型课程。自本学期开始，我成为了综合实践课专任教师，担任
四、
五、六年级三个年级的综合实践教学工作。回顾本学期的工作，在工作中我能做到认真备课，严谨教学，努力创新，注重实效。扎扎实实、有条不紊、卓有成效地展开综合实践教学工作，并取得了较好的效果。现将一学期的工作总结如下：
一、基本情况
本学期我担任
四、
五、六年级的综合实践教学工作。四年级41人，五一班22人，五二班24人，六一班28人，六二班26人。在学生没有课本的情况下，通过各种调查、走访、讨论等形式完成了教学任务。
二、走进生活，确定主题
综合实践活动的主题必须是学生感兴趣的，与学生的生活实际相联系的。所以在确立主题阶段，教师注意抓住契机，开发课程资源，引导学生关注生活，与学生的生活联系起来。我们确立的第一个活动主题是《我爱秋天》；第二个主题是《生活中的错别字》。
三、自主结合，科学合理
综合实践活动的组织是以小组活动为基本组织形式。在综合实践活动中，小组活动的问题确定之后，我们尊重学生的自主选择，指导学生进行合理的分组与分工。我的经验是：在分组中我们先请同学们围绕筛选的几个小组活动内容，根据自己的喜好进行自由的选择，再找合适的同学进行组合。在此基础上，教师为了力求科学性，还要尽量让学生按兴趣、愿望自由分组，同时提出必要的指导性建议，如：提醒学生在组建小组时要注意每组人数应尽量定在5—6人，还要注意小组成员在知识、能力、特长、家庭条件等方面的搭配，尽可能使小组成员在学业成绩、性别、个性、能力等方面具有代表性，已达到各个成员优势互补，互助共进。使得活动中既有利于组员间的取长补短，又便于小组间的公平竞争。学生很快就分好了活动小组。
四、关注活动，适时引导
在活动过程中，教师的指导非常重要。教师必要的指导，能帮助学生在探索活动中把握方向，使活动有序顺利地开展下去。我帮学生把握了方向，使其顺利地开展活动，使学生获得了学习乐趣。
在活动过程中，学生会遇到各种各样的困难。如果不及时解决，就会打击他们对活动的信心和兴趣，老师这时就是他们的钥匙，引路人。因为他们毕竟还是孩子，遇到困难是难免的，给予适当的点拨、引导，会使他们在活动过程中更加充满信心！
小学生年龄较小，对于写作方面还不是很高，往往会忽视一些细节，所以我便抽时间跟孩子们一起参与调查，在调查中及时发现关键之处，提醒他们及时地记录下来。经过一段时间的指导，孩子们便能在体会中记录出一些重要细节。
本学期的教学我以转变学生的学习方法为出发点,强调知识的联系和综合运用,注重过程,强调开放,重视师生互动注意做到以下几地方:
1、基于学生的需要、目的、兴趣和直接经验来设计,实施相关课程活动,充分注意学生的兴趣和直接经验,并以此为基础实现对传统学科知识结构与逻辑体系的超越,建构一个更贴近学生真实学习世界的全新课程领域。
2、回归生活世界。从学生真实的生活世界中选取那些具有一定的综合性,实践性,现实性的问题,事件,现象来设计课程内容。
3、立足实践，不再局限于书本知识的传授。让学生亲身参与,主动实践,在实践中综合运用所学知识解决各种现实问题,提高解决现实问题的能力,实践的内容是丰富的,实践的方法也是多样的。实践并不仅仅意味着让学生作社会调查,参观,访问,更重要的是要为学生营造实践情境,通过引导,让学生自己能够发现问题,提出问题,解决问题.特别是学生能够面对生活世界的各种现实问题,综合运用所学知识,主动地去探索,发现,体验,重演,交往,亲历亲为,获得解决现实问题的真实经验,从中培养实践能力。
4、着眼创新。着眼于学生创新意识,创新精神和创新能力的培养,是综合实践活动课程价值与目标最本质的体现。与学科课程相比,综合实践活动为学生创新品质的形成提供了更为宽松,自由的空间.它不受学科知识体系和逻辑结构的限定,在活动过程中,学生始终处于主体地位,自己发现问题,自己设计方案,自己收集资料,自己解决问题.在这一过程中,学生的想像力和创造力可以充分发挥出来。
一学期来，同学们填写综合实践活动记录卡324页，绘制图画159张，搜集资料322页，学会了101个常用词语的正误辨析。总之，我在在教学中着眼创新,以培养今日的学生适应明天的社会生活为己任,尽可能创造条件,让学生在积极探索,主动实践的过程中,不断地有所发现,有所思考,有所创新,具备初步的怀疑精神和批判精神,具有独立思考问题的能力和解决问题的能力,为将来成为创新精英奠定基础。尽管还有这样和那样的不足，我坚信通过今后扬长避短、不断完善、创新的工作，综合实践教学工作一定会开展的越来越好！
第16篇：期末教学工作总结
期末教学工作总结
高二数学组 霍攀
本学期我担任高二C9和C10两个班的教学工作。两个班是文科班，大部分学生数学基础都非常薄弱，而且学习积极性，对数学的兴趣也不高，我担任的两个班级中数学基础相对来说比较好一些，是极少数同学，对于这种情况我并没有放弃，一学期来，我都是一如既往地，尽心尽力做好自己的本职工作，在教学中不断完善自己的教学方式及技巧，课后耐心的辅导学生。
但尽管如此，不管自己付出多少回报都是少的可怜，一学期下来我知道仍然还有很多学生对数学的积极性提不上来，课后回去主动学习的同学也就那么几个，所以导致大部分学生的数学成绩非常不理想，平时跟学生聊天的时候，很多学生都说：“老师，我每节课听你课都很懂，但做起题目来就不知道从何下手。”对于这样的情况，我想一个很根本的原因就是课后没有回去消化所学的知识，练习巩固，但不管怎样我都已经尽力了，我没有能力一下子把他们的成绩一下子提起来，对于个别学生我也真的没办法激起他们的学习数学的积极性了。 以下是我在本学期的教学情况总结。
一、教学方面
教学过程是师生互动的过程。本人紧扣高考特点，学生特点，把握全局，认真筹划每一章节，精心设计一节课的每个环节，推动教学层层深入，形成良性互动方能取得良好的教育教学效果。了解学生原有的知识技能的质量，他们的兴趣、需要、方法、习惯，学习新知识可能会有哪些困难，采取相应的预防措施，考虑教法，解决如何把已掌握的教材传授给学生，包括如何组织教材、如何安排每节课的活动。
平时课堂上，特别是理科班，我非常注重教给他们一些数学的解题技巧，这学期来，在课堂上每节课的相关知识点都有相对应的类型题目练习，加深他们对新知识的理解，本来一直来都非常喜欢对高考题进行分类总结，平时的星期六课外活动中都进行一些相关的高考专题训练，使他们慢慢的开始接触高考题型。
二、情感教育方面
良好的情感教育也是搞好教育工作重要一环。通过情感交流营造一个民主和谐的课堂气氛，这样可以充分调动学生的积极性。另外学生很辛苦，有时很疲劳，对学生在课堂上打磕睡要给予理解，不要动辄就批评，采用各种办法调节课堂气氛，缓解学生的疲劳，尽可能让学生感觉轻松愉快。正确对待学生犯的错误，尤其是学生回答问题时，学生说错是正常现象，是宝贵信息，只有知道学生怎样错的，才能正确下药方。所以课堂上要鼓励学生大胆回答问题，提出问题，和同学及教师辩论问题。
三、工作考勤方面
我热爱自己的事业，从不因为个人的私事耽误工作的时间。并积极运用有效的工作时间做好自己分内外的工作。
四、课后辅导方面
课后或者平时的午读课间，我常找学生了解听课情况、学习情况，了解他们的困难和疑问，及时解答，根据不同的学生进行不同的辅导。数学是所有高中课程中最难的一科，除了课堂效果之外，还需要让学生多探究，多思考，多练习。发现学生作业问题也及时解决，及时讲清楚，让学生即时消化。鼓励他们的不懂的问题及时解决，不要越积越多，但有些同学非常害羞或者是基础相当的差，不知道从何问起，所以这方面工作开展的不太顺利，每次都只是那么几个同学交流。没达到我的预期效果，下学期继续努力。
以上就是我在本学期的教学工作总结。由于经验颇浅，许多地方存在不足，希望在未来的日子里，能在各位领导老师，前辈的指导下，取得更好成绩。
第17篇：期末教学工作总结
期末教学工作总结
2013年，我报考了黑龙江省的特岗教师招聘考试，经过一系列的笔试、面试、考核以及培训我有幸成为了延寿县延河镇教师队伍中的一员。时间过得真快，转眼间一个学期已经过去了。在这个学期中，我要感谢来自每一位领导的信任、关心、支持和帮助，让我在学校这个优秀的大家庭中慢慢成长。一个学期的磨练，我没有了初入社会时的冲动和莽撞，也没有了初出校门时的稚嫩，同时也让我改正了不少缺点，为了更好地做好今后的工作，总结经验、吸取教训，本人从以下几方面对三年来的工作进行总结。
一、
思想品德方面：
在一个学期的特岗生活当中，我始终坚持热爱中国共产党，热爱社会主义，热爱教育事业，拥护党的各项路线、方针、政策，遵纪守法。认真学习相关法律法规，认真学习《中小学教师职业道德规范》；本着全心全意为人民服务的宗旨，努力提高思想觉悟“吃苦在前，享乐在后”。在实际工作中，注重师德修养，爱岗敬业。在教书的同时，又不忘育人，辛勤耕耘，在三尺讲台上洒下了辛勤的汗水。在思想政治觉悟方面有了很大的进步。
二、
工作能力方面：
自踏上工作岗位起，我就一直担任班主任工作，而且是六年级班主任。对于刚刚参加工作的我来说是非常的苦恼，有些不知所措，但是我并没有退缩，而是积极地向老教师请教该怎样去管理这些小学生，该怎样走进他们的内心世界。一份耕耘，一份收获，很快我的工作步入了正轨，而且做起来是得心应手，也得到了学校领导的一致认可。这个学期，我每项工作都是走在最前端，无论是教学还是学校组织的各项活动，我都做得是有声有色。
三、工作态度勤奋敬业方面：
上岗以来我从未无故缺席，而且每天都是早早的来到班级组织学生上好自习，利用科任课和中午、晚上休息的时间钻研教学，以便更好地上好每一节课。要给学生一滴水，老师要有长流水，尤其是在当今知识更新非常迅速的年代，为更好地适应教学工作。我明白：今天的学习就是为了明天的工作，教师自身素质的提高就是为了更好地干好教育工作。教到老，学到老，才会永远站在教育领域的前端。在教学中，虚心请教其他老师，在教学上，有疑必问。在各个章节的学习上都积极征求其他老师的意见，学习他们的方法，同时，多听老师的课，做到边听边讲，学习别人的优点，克服自己的不足，并常常邀请其他老师来听课，征求他们的意见，改进自己的工作。从大学毕业到今天，我一直没有停止阅读的习惯，不断的充实自己，向学生展示一个丰富的自我。
四、工作业绩方面：
刚开始踏上工作岗位的时候由于教学经验不足，很难带动学生的学习积极性，后来在各位同事的帮助下，我经常听优秀教师的课，找到自己的差距和不足，不断学习改正，终于我的业务水平有了显著地提高，得到了家长和领导的一致好评。
一份春实，一份秋华，在教书育人的道路上我付出的是汗水和泪水，而我收获的却是那一份份充实的、沉甸甸的情感。教育事业任重而道远，学海无涯、学无止境，在今后的教育教学工作中，我将更加严格的要求自己，继续加倍努力，从实际工作中提高自己的教育教学水平和工作能力，争取在教师岗位上做出更突出的成绩。
杜丹丹
延河镇中心小学 2013年12月26日
第18篇：期末教学工作总结
期末教学工作总结
唐加奇
这学期，我在工作中坚持努力提高自己的思想政治水平和教学业务能力，从各方面严格要求自己，努力提高自己的业务水平，丰富知识面，结合苏教版数学的特点和学生的实际情况，有组织，有步骤地开展教学工作。立足现在，放眼未来，为使今后的工作取得更大的进步不断努力，现对这学期的教学工作作出总结，希望能发扬优点，克服不足，总结经验教训，继往开来，以促进教学工作更上一层楼
一、认真钻研教材，对教材的基本思想、基本概念，每句话、每个字都弄清楚，了解教材的结构，重点与难点，掌握知识的逻辑，能运用自如，知道应补充哪些资料，怎样才能教好。除认真钻研教材、吃透教材外，还要深入了解学生，了解学生原有的知识技能的质量，他们的兴趣、需要、方法、习惯，学习新知识可能会有哪些困难，采取相应的预防措施。这样能使课堂教学中的辅导有针对性，避免盲目性。在了解学生的基础上考虑教法，解决如何把已掌握的教材传授给学生，包括如何组织教材、如何安排每节课的活动。把教材和学生实际很好地结合起来，确定课堂上要讲的主要内容。
二、努力增强我的上课技能，提高教学质量，采用不同形式的教学方法，激发学生的学习兴趣。数学科的特点：（1）与日常生活、生产联系紧密；（2）思维能力、空间观念强、针对这些特点，在教学过程中，要使学生适应日常生活，参加生产和进一步学习所必要的基础知识与基本技能，进一步培养运算能力，思维能力和空间观念，能够运用所学知识解决简单的实际问题，培养学生的数学创新意识，良好个性、品质以及初步的辩证唯物主义观点。在课堂上特别注意调动学生的积极性，加强师生互动，充分体现学生的主作用，让学生学得容易，学得轻松，学得愉快；注意精讲精练，在课堂上老师讲得尽量少，学生动口动手动脑尽量多；同时在每一堂课上都充分考虑每一个层次的学生学习需求和学习能力，让各个层次的学生都得到提高。现在学生普遍反映喜欢上数学课，就连以前极讨厌数学的学生都乐于上课了。
三、作业及时批改，对于作业存在的问题及时纠正。课后作业是不可缺的一部分是反馈当天所学内容的最好方法，因此作业必须勤批改并做到有错必改的好习惯。将他们在作业过程出现的问题作出分类总结，进行透切的评讲，并针对有关情况及时改进教学方法，做到有的放矢。
四、做好课后辅导工作，注意分层教学。在课后，为不同层次的学生进行相应的辅导，以满足不同层次的学生的需求，避免了一刀切的弊端，同时加大了后进生的辅导力度。对后进生的辅导，并不限于学习知识性的辅导，更重要的是学习思想的辅导，要提高后进生的成绩，首先要解决他们心结，让他们意识到学习的重要性和必要性，使之对学习萌发兴趣。要通过各种途径激发他们的求知欲和上进心，让他们意识到学习并不是一项任务，也不是一件痛苦的事情。而是充满乐趣的。从而自觉的把身心投放到学习中去。这样，后进生的转
化，就由原来的简单粗暴、强制学习转化到自觉的求知上来。使学习成为他们自我意识力度一部分。在此基础上，再教给他们学习的方法，提高他们的技能。并认真细致地做好查漏补缺工作。后进生通常存在很多知识断层，这些都是后进生转化过程中的拌脚石，在做好后进生的转化工作时，要特别注意给他们补课，把他们以前学习的知识断层补充完整，这样，他们就会学得轻松，进步也快，兴趣和求知欲也会随之增加。
五、积极推进素质教育。新课改提了的，要以提高学生素质教育为主导思想，为此，我在教学工作中并非只是传授知识，而是注意了学生能力的培养，把传授知识、技能和发展智力、能力结合起来，在知识层面上注入了思想情感教育的因素，发挥学生的创新意识和创新能力。让学生的各种素质都得到有效的发展和培养。我会继续努力丰富自己，提高自己，为祖国的教育事业努力奋斗。
一学期过去了，在教学工作中，我取得了一定的成绩，也存在不足，我将继续努力，争取更好的成绩。
第19篇：期末教学工作总结
期末教学工作总结
通过不懈努力，一学期的教育教学工作即将结束，回顾过去，既取得了令人骄傲的成绩，也存在这样或那样的不足，现将具体工作总结如下，如有不妥之处，望批评指正：
一、取得的成绩及经验。
1、提前备好课，认真批改作业。
课堂是教育教学的主阵地，教师每上一节课都要做到心中有数，不打无准备之仗。坚持向课堂40分钟要效益，课后及时辅导学生作业，尽量做到全收全改，不疏忽作业中的每一个漏洞，不放过作业中的每一个错题，做到有错必纠，有错必改，力争使每位学生在不断地改错中学得真知。
2、不断学习各种业务知识，为自己充电。
俗话说得好：“台上一分钟，台下十年功”。要想不断提高教育教学能力和本领，就必须加强学习，为自己充电。教师的业务素质直接关系课堂效益的提高，除了学习专业课相关知识之外，教师还必须学习与教学技巧有关的理论，充分做到“学以致用，学用结合”，用学到的知识更好的服务于课堂，服务于学生。
3、政治理论学习不放松，切实增强自身政治素养。时时刻刻关心身边的人和事，始终坚守“以人为本，注重品质”的育人理念，全方位多渠道地为学生身心健康发展着想，脚踏实地，一步一个脚印地开展各项日常工作。以端正的品行影响1 学生，以高尚的人格激励学生。以身作则，率先垂范，让学生在阳光下学会做人，善于做事，成才成长。
4、集中精力，做好后进学生转优工作。
面对中职学生学习成绩良莠不齐，心理问题多发的现状，教师必须把后进生的转化工作作为当前教学的重中之重来抓紧抓好。针对部分学生思想不稳定，学习兴趣缺乏，经常违反课堂纪律等突出问题，要拿出切实可行的措施来纠治。只有把这部分学生的思想工作做好了，全体学生良好的学习风气就会形成，教学就会收到事半功倍的效果。本期，主要采取个别谈话，进行心理疏导，家访等方法，对部分已经形成心理障碍的学生做了大量思想工作，成效显著。
5、坚持公平、公正、公开的育人原则，平等对待每一位学生。
学校是一方净土，努力营造一个宽松、舒适的育人环境，是每一个教育工作者义不容辞的责任。教师要平等地对待学生，不因成绩差或别的原因而放弃每一位学生。教育成果要尽量做到公平，惠及全体学生，奖励、批评机制要力求公正，课堂教学形式、效果要及时公布、公开。只有做到这些，学生才会自觉地形成“比学赶帮，你追我赶”的学习氛围。
二、存在的不足及努力方向。
1、深入学习研究现代中职学生的学习生活特点，不断探索总结适合现代职业教育的新的教育教学方法，积累教学经验，为2 今后的工作打下坚实的基础。
2、抢抓国家大力发展职业教育的大好机遇，努力学习，不断提升自己的各项业务素质，练就过硬的本领，努力服务学生，不断为国家、为社会培养出更多实用技能型人才，争取使每位中职生都享有人生出彩的机会。
3、从严要求自己，用优秀教师的标准来约束自己。增强政治荣誉感和使命感，不断加强政治理论学习，使自己尽快成长为一名政治素质过硬的好教师，为社会、为他人做出自己应有的贡献。
2015.7.4 3
第20篇：期末教学工作总结
期末教学工作总结
一个学期以来，我能认真地做好自己的本职工作，热爱学生，努力为学生的发展提供契机。在教书育人中，从各方面严格要求自己，使教学工作有计划，有组织，有步骤地开展。现对本学期教学工作进行回顾与思考，以促进今后的工作更上一层楼。
首先在思想方面，我忠诚党的领导，热爱党的教育事业，发扬奉献精神，严格执行教育方针，尽职尽责，教书育人；同时面向全体学生，热爱、尊重、了解和严格要求学生，不歧视、挖苦他们，循循善诱，诲人不倦；要求学生做到的，自己首先做到，以身作则，为人师表。同时处处以《教师职业道德规范》来约束自己的言行，认真的参加政治学习，不断的提高自身的政治素质。加强学习，不断更新教学理念.。作为新课程试验的教师，我深知学习的重要性。所以，在实践中，我努力学习《课程标准》等教学理论，从而丰富更新自己的头脑。紧紧围绕学习新课程，构建新课程，尝试新教法的目标，不断更新教学观念。注重把学习新课程标准与构件新理念有机的结合起来。将理论联系到实际教学工作中，解放思想，更新观念.。确立了\"一切为了人的发展\"的教学理念。树立\"以人为本，育人为本\"的思想。
其次，本人能够严格执行学校的作息时间，不早退，不迟到，做到了早出晚归，按时上下班，从不因为个人问题耽误上课，给学生做了极好的表率。 第三，在教育教学工作中，本人积极认真学习新大纲、新教材，将教材、教法、学法进可能完美的结合，积极、认真备好每一个教案，上好每一节课，充分发挥课堂45分钟的作用，尽可能减轻学生的课业负担，同时积极学习钻研名师、专家的教育、教学理论，探索适合班级的教育方法、教育模式。与此同时，向身边的有经验的教师学习，积极参加听课、评课活动，努力提高自己的教育理论水平；同时在业务上精益求精，积极探索多媒体、网络教学，拓宽教学新思路；与此同时，采用灵活多变的方法，例如演讲朗诵会、读书活动等活动，调动学生学习积极性，提高学生的学习成绩。
第四、教研方面：自己除了能一如既往地认真学习、深入钻研外，积极参加各种教科研活动，制定教研计划，并按计划进行学习、交流、研讨、反思，积极上好汇报课、公开课，撰写教学反思、教学案例、教学论文，为科研课题收集数据、资料。一句话，用科学的方法、严谨的态度、务实的作风搞好校本教研，搞好教学科研。
一分耕耘一分收获。然而，成绩代表过去，未来还须努力。在今后的工作与事业中，自己将再接再励，以饱满的热情、旺盛的精力迎接全新的挑战。
