VB实例制作——倒序输出.docVIP

《VB实例制作——倒序输出》教案 上课时间： 2014.11.21 星期五 【教学目标】 1、掌握Len函数和mid函数的使用 2、理解字符运算符号与字符表达式 3、理解顺序连接与反向连接的区别 【教学重难点】 重点：len函数与mid函数 难点：字符串的正向与反向连接 【教学方法】 任务教学法、自主探究学习法、上机实践操作 【教学环境】 机房、任务单 【教学过程】 一、任务描述 用VB设计一个应用程序，设计如图所示的界面. 在一个文本框里输入一个4位正整数，比如4358，将其逆序组合成8534后在另外一个文本框里输出.单击“清除”按钮，则能清除两个文本框中的数据。 二、操作提示 1、新建工程 在VB中新建一个“标准EXE”工程。 2、界面设计 新建工程后，进入VB的界面设计窗口.按照下面的操作提示，在窗体上添加2个标签（Label）对象，2个命令按钮（Command）对象，2个文本框（TextBox）对象如下图所示。 各个控件对象的主要属性可参见 类 对象名 属性名 属性值 Form Form1 Caption 倒序输出 Label Label1 Caption 请输入一个4位正整数 Label2 Caption 逆序数为 CommandButton Command1 Caption 清除 Command2 Caption 退出 TextBox Text1 Text （空白） Text2 Text （空白） 完成好的界面如下图所示 3、代码填空 在Command1对象的Click事件中输入如下代码： Private Sub Command1_Click() Dim a, b As String 定义字符串变量a，b Dim n As Integer 定义字整型变量n，用来存放字符串的长度 a = Text1.Text 把文本框的值赋值给a n = Len(Text1.Text) 求出文本框1中输入字符串的长度，并赋值给n For i = n To 1 Step -1 逆序求出字符串b b = b + Mid(a, i, 1) Next i Text2.Text = b 把字符串b在文本框2中显示 End Sub Private Sub Command2_Click() 清空文本框1和文本框2的内容 Text1.Text = Text2.Text = End Sub 4、运行调试程序 选择菜单栏“运行”——“启动”命令，或按F5，运行程序，检查是否有错。如下图所示 5、保存程序 在桌面上新建一个文件夹，以自己的名字命名。然后在vb中选择菜单栏“文件”——保存窗体文件（.frm）、工程文件（.vbp）、可执行文件（.exe），文件名为“倒序输出”，如下 最后把做好的结果上交. 课堂小结 Len(X)：计算字符串的长度 例：Len(“ABC”)=3 Mid(X,n,k)：取字符串X中第n个字符起长度为k的子串 例：Mid(“abcd”,3,1)=”c” 布置作业 写一个程序，要求输入“大上海”，输出则为“海上大” 【教学反思】 本堂课的重点是对len函数、mid函数与for语句的综合运用，同学们对代码的编写有一定的难度。通过前面2个课时的学习，有一部分学生能够独立完成。