VB实例制作——倒序输出

1、VB实例制作一一倒序输出 VB实例制作一一倒序输出教案 上课时间：2014、11、21星期五 【教学目标】 1、掌握Len函数与mid函数的使用 2、理解字符运算符号与字符表达式 3、理解顺序连接与反向连接的区别 【教学重难点】 重点：len函数与 mid函数 难点：字符串的正向与反向连接 【教学方法】 任务教学法、自主探究学习法、上机实践操作 【教学环境】 机房、任务单 【教学过程】 一、任务描述 用VB设计一个应用程序，设计如图所示的界面、 在一个文本框里输入一个 4位正整数, 比如4358,将其逆序组合成8534后在另外一个文本框里输出、单击“清除”按钮 ，则能清除 两个文本框中的数据。

2、 二、操作提示 1、新建工程 在VB中新建一个“标准 EXE”工程。 2、界面设计 新建工程后，进入VB的界面设计窗口、按照下面的操作提示，在窗体上添加 2个标签 (Label)对象,2个命令按钮(Command)对象,2个文本框(TextBox)对象如下图所示。 Forml三2回童 各个控件对象的主要属性可参见 VB实例制作一一倒序输出 类 对象名 属性名 属性值 Form Form1 Capti on 倒序输出 Label Label1 Capti on 请输入一个4位正整数 Label2 Capti on 逆序数为 Comma ndButt on Comma nd1 Capti on 清

3、除 Comma nd2 Capti on 退出 TextBox Text1 Text （空白） Text2 Text （空白） 完成好的界面如下图所示 请输入一亍$位正整数 H : 逆庠转抵I H 3、代码填空 在Command1对象的Click事件中输入如下代码 Private Sub Comma nd1_Click() Dim a, b As Stri ng Dim n As In teger a = Text1、Text 定义字符串变量a,b 定义字整型变量n,用来存放字符串的长度 把文本框的值赋值给a n = Len(Text1、Text) 求出文本框1中输入字符串的长度，并赋值给n

4、For i = n To 1 Step -1 逆序求出字符串b b = b + Mid(a, i, 1) Next i Text2、Text = b 把字符串b在文本框2中显示 End Sub 4、运行调试程序 选择菜单栏“运行” End Sub Private Sub Command2_Click()清空文本框 1与文本框 2的内容 Text1、Text = Text2、Text = “启动”命令，或按F5,运行程序，检查就是否有错。如下图所示 VB实例制作一一倒序输出 5689 请輸入一个4位正整敎 逆常數捕 清除| 5、保存程序 在桌面上新建一个文件夹，以自己的名字命名。然后在vb中选择菜单栏“文件”一一保存窗 体文件(、frm)、工程文件(、vbp)、可执行文件(、exe),文件名为“倒序输出”,如下 !s*yl2Wrg LO.OX) I isual 8351c harm File iJ.1 HE ;皑铜出 ；Visual Base Eject 最后把做好的结果上交、 三、课堂小结 Len(X):计算字符串的长度 例:Len( “ ABC=3 Mid(X,n,k):取字符串X中第n个字符起长度为k的子串 例:Mid( “ abed ”，=” 四、布置作业 写一个程序，要求输入“大上海”，输出则为“海上大” 【教学反