《VB实例制作——倒序输出》由会员分享，可在线阅读，更多相关《VB实例制作——倒序输出（3页珍藏版）》请在装配图网上搜索。
1、真诚为您提供优质参考资料，若有不当之处，请指正。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）对象如下图所示。各个控件对象的主要属性可参见类对象名属性名属性值FormForm1Caption倒序输出LabelLabel1Caption请输入一个4位正整数Label2Caption逆序数为CommandButtonCommand1Caption清除Command2Caption退出TextBoxText1Text（空白）Text2Text（空白）完成好的界面如下图
3、所示3、代码填空在Command1对象的Click事件中输入如下代码：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 Co
4、mmand2_Click() 清空文本框1和文本框2的内容Text1.Text = Text2.Text = End Sub4、运行调试程序选择菜单栏“运行”“启动”命令，或按F5，运行程序，检查是否有错。如下图所示5、保存程序在桌面上新建一个文件夹，以自己的名字命名。然后在vb中选择菜单栏“文件”保存窗体文件（.frm）、工程文件（.vbp）、可执行文件（.exe），文件名为“倒序输出”，如下最后把做好的结果上交.3、 课堂小结Len(X)：计算字符串的长度 例：Len(“ABC”)=3Mid(X,n,k)：取字符串X中第n个字符起长度为k的子串 例：Mid(“abcd”,3,1)=”c”4、 布置作业 写一个程序，要求输入“大上海”，输出则为“海上大”【教学反思】本堂课的重点是对len函数、mid函数与for语句的综合运用，同学们对代码的编写有一定的难度。通过前面2个课时的学习，有一部分学生能够独立完成。3 / 3
VB实例制作——倒序输出
