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

《VB实例制作——倒序输出.doc》由会员分享，可在线阅读，更多相关《VB实例制作——倒序输出.doc（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、”工程。2、界面设计新建工程后，进入VB的界面设计窗口.按照下面的操作提示，在窗体上添加2个标签（Label）对象，2个命令按钮（Command）对象，2个文本框（TextBox）对象如下图所示。各个控件对象的主要属性可参见类对象名属性名属性值FormForm1Caption倒序输出LabelLabel1Caption请输入一个4位正整数Label2Caption逆序数为CommandButtonCommand1Caption清除Command2Caption退出TextBoxText1Text（空白）Text2Text（空白）完成好的界面如下图所示3、代码填空在Command1对象的Clic

3、k事件中输入如下代码：Private Sub Command1_Click()Dim a, b As String 定义字符串变量a，bDim n As Integer 定义字整型变量n，用来存放字符串的长度a = Text1.Text 把文本框的值赋值给an = Len(Text1.Text) 求出文本框1中输入字符串的长度，并赋值给nFor i = n To 1 Step -1 逆序求出字符串bb = b + Mid(a, i, 1)Next iText2.Text = b 把字符串b在文本框2中显示End SubPrivate Sub Command2_Click() 清空文本框1和文本

4、框2的内容Text1.Text = Text2.Text = End Sub4、运行调试程序选择菜单栏“运行”“启动”命令，或按F5，运行程序，检查是否有错。如下图所示5、保存程序在桌面上新建一个文件夹，以自己的名字命名。然后在vb中选择菜单栏“文件”保存窗体文件（.frm）、工程文件（.vbp）、可执行文件（.exe），文件名为“倒序输出”，如下最后把做好的结果上交.三、 课堂小结Len(X)：计算字符串的长度 例：Len(“ABC”)=3Mid(X,n,k)：取字符串X中第n个字符起长度为k的子串 例：Mid(“abcd”,3,1)=”c”四、 布置作业 写一个程序，要求输入“大上海”，输

5、出则为“海上大”【教学反思】本堂课的重点是对len函数、mid函数与for语句的综合运用，同学们对代码的编写有一定的难度。通过前面2个课时的学习，有一部分学生能够独立完成。3成成能生有习的个通。一有代对同合句 数 、 点重思思大海则，海“要序写 作 =)” “ 子 长符第 符：,(=” 长串算： 小交交好如”输为文 .文执、 文、）（件窗“单中在。字的，文建上程存所下错否查行 或命”行单程试 = . = . 内 本框空 ) 显 本串把 , 串符求 = 给值度的字 文求 给给的把 . 长长放来量整义 ， 符义 ( _ 码下输件 对 填码所所界白 白 退 清 数 整正一 输 性性象参可要象示所如 本个对） 钮命对 标 体窗提的照窗面 入程设面程工 “个新工建提作操据的框两能钮除击.框本另 组逆 ，整 输本一在的示设程应一用描务任程过学务任境环学操实机学主、法法学连反与符字函 数 点点难区区反接序 达符与算字 使数 和 掌标标期 .0 课 教出序作实作作 .标 达序区难 符反法主实境学程描应示本整 组本击除框操提“程程面窗提 对钮对 所示象性 正 所 对输 符 量长.把给 度 符 , 串 )空内 = 单或行错上，字单“）、文文”如小： =(第 子 =序海，思 句对。个生成