VB实例制作——倒序输出

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

《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)对象如下图所示。

各个控件对象的主要属性可参见
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个课时的学习,有一部分学生能够独立完成。

相关文档
最新文档